[Creat0R]

RemoteAdmin

из конца файла отрезается маленький кусок

Это можно поправить убрав - 1 от общего числа массива (For $iaar = 1 To $aArray[0]), но тогда в конец файла всегда будет дописываться новая строка...

Могу предложить такой вариант на функцию замены текста в файле:

Код:

Func ReplaceText($FileName, $OldText, $NewText)
     If $OldText <> "" Then
        $hFile = FileOpen($FileName, 0)
        $VarToWrite = FileRead($hFile, FileGetSize($FileName))
        $ReplStr = StringReplace($VarToWrite, $OldText, $NewText)
        FileClose($hFile)
        $hFilew = FileOpen($FileName, 2)
        FileWrite($hFilew, $ReplStr)
        FileClose($hFilew)
    EndIf
 EndFunc

Diamond_m

Отлично придумал!!!

Это благодаря твоим наводкам - спасибо ещё раз!