$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
BREAK ON

DIM $file
DIM $handle
DIM $read
DIM $line
DIM $c
DIM $M
DIM $sub
DIM $cdetail
DIM $ccode
DIM $mdetail
DIM $mcode


$file = "C:\temp\m\m.txt"


$file = loadfile($file,@CRLF)

For Each $line In $file 

If $line <> 0		
	
If InSTR($line,"Place:") <> 0

	$line ?
	$c = Split($line,":")
	$cdetail = Split($c[1]," ")

		
;$ccode = SubSTR($c[1],14,4)

"p detail: " + $cdetail[14] ?


	Else


EndIf

If InSTR($line,"CODE:") <> 0
	
	$line ?
	$m = Split($line,":")
	$mdetail = Split($m[1]," ")
	
;$mcode = SubSTR($m[1],15,4)
"m detail: " + $mdetail[15] ?


	Else
EndIf


	
EndIf
Next

;Functionction	LoadFile()
;
;Author		Bryce Lindsay Bryce@isorg.net
;
;Action		Loads a file in to a variable or an array.
;
;Syntax		LoadFile("Filename",[Array Delim], [UNI/ANSI file type])
;
;Version	1.1
;
;Date Revised	9:14 AM 8/15/2006
;
;Parameters	Filename
;		name of the file that you want to load.
;
;		Optional Array
;		set this option if you want to return the 
;		information as an array split on the given value
;
;		Unicode/ANSI file type
;		3 = force file open as ANSI
;		2 = forse file open as UNI
;		1 = Opens the file using the system default. (the UDF will use this as default)
;
;Remarks		finaly made this into a UDF and posted it... got tired 
;		of having to hunt it down.
;
;Returns		if the array flag is not set it returns a variable 
;		containing the contents of the file.
;
;		if the array flag is set, it will return an array 
;		of the file split on the value of the given variable
;
;Dependencies	Scripting.FileSystemObject
;
;KiXtart Ver	4.51
; 
;Example(s)	
;		;load the file test.txt into a variable
;		$Data=loadfile('test.txt')
;		? $data 
;
;		;load the file "test.txt" into an array split on @crlf
;		$data = loadfile('test.txt',@crlf)
;		for each $line in $data
;			? $line
;		next
;*/
Function loadfile($file, optional $array, $Uni)
	DIM $fso,$f,$fs
	if $uni $uni = $uni-3 else $uni = -2 endif

	if not $uni $uni = -2 endif
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit 2 EndIf
	$fs = $f.OpenAsTextStream(1,$uni)
	if not $array
		$loadfile = $fs.Read($f.size)
	else
		$loadfile = Split($fs.Read($f.size),$array)
	endif
	Exit @ERROR 
EndFunction

Break on

$file = "D:\m.txt"
$fileold = "D:\m.old"
$filenew = "D:\m.new"

$filecontents = ReadFile($file)


For Each $line in $filecontents
	If Trim($line) <> ""
		If InStr($line, "Status:")
			$line = Split($line, " ")
			$status = $line[UBound($line)]
		EndIf
	EndIf
Next

$rc = Open(1, $filenew, 5)

For Each $line in $filecontents
	If Trim($line) <> ""
		If InStr($line, "Place:")
			? $line
			$line = Split($line, "XXXX")
			$line = Join($line, $status)
			$rc = WriteLine(1, $line + @CRLF)
		Else
			$rc = WriteLine(1, $line + @CRLF)
		EndIf
	EndIf
Next

$rc = Close(1)
Move $file $fileold
Move $filenew $file


;Function	ReadFile()  
;  
;Author		Radimus  
;  
;Contributors	Lonky... This is basically his code that I trimmed down to its  
;		simplest function  
;  
;Action		Reads a file into an array  
;  
;Syntax		$array=ReadFile($file)  
;  
;Version	1.0.1  
;  
;Date           10/21/2003  
;  
;Date Revised   10-22-2003 - dimmed vars 
;  
;Parameters 	file   
;		source filename  
;  
;Remarks	Pair this with WriteFile() to read and write an entire file easily  
;  
;Returns	@error if failed  
;   
;Dependencies 	None  
;  
;KiXtart Ver	4.02  
;   
;Example(s)	$array=ReadFile('c:\file.txt')  
Function ReadFile($file)
	Dim $lf, $f, $_, $t
	$lf = Chr(10)
	$f = FreeFileHandle
	$_ = Open($f, $file)
	If @error Exit @error EndIf
	Do $t = $t + $lf + ReadLine($f) Until @error
	$_ = Close($f)
	$ReadFile = Split(SubStr($t, 2), $lf)
EndFunction

$inputfile = @ScriptDir+"\242.txt"
$outputfile = @ScriptDir+"\242_temp.txt"

$lines = LoadFile($inputfile,@CRLF)
If @Error = 0
   For Each $line in $lines
      If Left($line,7) = "STATUS:"
         $status = Trim(Split($line,":")[1])
      Endif
   Next
   If Len($status) = 4
      $fh = FreeFileHandle()
      If Open($fh,$outputfile,5) = 0
         For Each $line in $lines
            If Left($line,6) = "Place:"
               $nul = WriteLine($fh,Left($line,20)+$status+@CRLF)
            Else
               $nul = WriteLine($fh,$line+@CRLF)
            Endif
         Next
         $nul = Close($fh)
         Move $inputfile $inputfile+".bkup"
         Move $outputfile $inputfile
      Else
         Exit 1
      Endif
   Else
      Exit 1
   Endif
Else
   Exit 1
Endif

Function loadfile($file, optional $array, $Uni)
	DIM $fso,$f,$fs
	if $uni $uni = $uni-3 else $uni = -2 endif
	if not $uni $uni = -2 endif
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit 2 EndIf
	$fs = $f.OpenAsTextStream(1,$uni)
	if not $array
		$loadfile = $fs.Read($f.size)
	else
		$loadfile = Split($fs.Read($f.size),$array)
	endif
	Exit @ERROR 
EndFunction

$inputfile = @ScriptDir+"\242.txt"
$outputfile = @ScriptDir+"\242_temp.txt"

$lines = LoadFile($inputfile,@CRLF)
If @Error = 0
   For Each $line in $lines
      If Left($line,7) = "STATUS:"
         $status = Trim(Split($line,":")[1])
      Endif
   Next
   If Len($status) = 4
      $fh = FreeFileHandle()
      If Open($fh,$outputfile,5) = 0
         For Each $line in $lines
            If Left($line,6) = "Place:"
               $nul = WriteLine($fh,Left($line,20)+$status+Right($line,-24)+@CRLF)
            Else
               $nul = WriteLine($fh,$line+@CRLF)
            Endif
         Next
         $nul = Close($fh)
         Move $inputfile $inputfile+".bkup"
         Move $outputfile $inputfile
      Else
         Exit 1
      Endif
   Else
      Exit 1
   Endif
Else
   Exit 1
Endif

Function loadfile($file, optional $array, $Uni)
	DIM $fso,$f,$fs
	if $uni $uni = $uni-3 else $uni = -2 endif
	if not $uni $uni = -2 endif
	$fso = CreateObject("Scripting.FileSystemObject")
	$f = $fso.GetFile($file)
	If @ERROR Exit 2 EndIf
	$fs = $f.OpenAsTextStream(1,$uni)
	if not $array
		$loadfile = $fs.Read($f.size)
	else
		$loadfile = Split($fs.Read($f.size),$array)
	endif
	Exit @ERROR 
EndFunction

			? $line
			$line = Split($line, "XXXX")
			$line = Join($line, $status)
			$rc = WriteLine(1, $line + @CRLF)

			? $line
			$line = Left($line, 20)+$status+Right($line, 24)
			$rc = WriteLine(1, $line + @CRLF)