Quote:

---

;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

[ 22. October 2003, 11:26: Message edited by: Radimus ]

---

Quote:

---

You could simply use WriteProfileString. See the docs.

---

Thanks for pointing me in the right direction.

Code:

---

$sMyIni = @SCRIPTDIR + "\appsrv.ini"
$sOldString="old-citrix.olddomain.com"
$sNewString="new-citrix.newdomain.com"
 
For Each $sSection in Split(ReadProfileString($sMyIni,"",""),Chr(10))
   If $sSection
      "Checking section "+$sSection+@CRLF
      For Each $sEntry in Split(ReadProfileString($sMyIni,$sSection,""),Chr(10))
         If $sEntry
            $sValue=ReadProfileString($sMyIni,$sSection,$sEntry)
            "Entry "+$sEntry+" has value "+$sValue+" status:"
            If $sValue=$sOldString
               " **UPDATED**"+@CRLF
               $=WriteProfileString($sMyIni,$sSection,$sEntry,$sNewString)
            Else
               " No change"+@CRLF
            EndIf
         EndIf
      Next
   EndIf
Next

---

Quote:

---

If $sValue=$sOldString1 Or $sValue=$sOldString2

---