Try This...
;to read file and put in array
Function ReadFile($file)
Dim $lf, $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
;func to replace string a to b
Function ReplaceSTR($string, $from, $to)
If InStr($string, $from)
$string=$to
$cont=$cont+1
Exit 0
Else
$ReplaceSTR=$string
Exit 1
EndIf
EndFunction
;func to write array in a new file
Function WriteFile($array,$file)
Dim $f
$f=FreeFileHandle
$=Open($f,$file,5)
If @error Exit @error EndIf
For Each $line In $array
$=WriteLine($f,$line + @crlf)
Next
$=Close($f)
Exit @error
EndFunction
;cod for replace string in the file using funcs
$Usuario_Anterior="xxxx"
$Usuario_Actual="yyyy"
$file='%allusersprofile%\Datos de programa\IBM\Personal Communications\Medellin.acg'
$arrFile=ReadFile($file)
For $line =0 to Ubound($arrFile)
$arrFile[$line]=ReplaceSTR($arrFile[$line],$Usuario_Anterior,$Usuario_Actual)
Next
$=WriteFile($arrFile,$file)
_________________________
Look always 4 the best...
