#include <File.au3>

$find = "ДО ЗАМЕНЫ"
$replace = "УЖЕ ПОСЛЕ"

$filename = "C:\_ReplaceStringInFile.test"

$msg = "Привет тест " & $find & " Привет тест" & @CRLF & _
"Привет тест" & @CRLF & @CRLF & $find

FileWrite($filename, $msg)

MsgBox(4096, "До замены", $msg)

$retval = _ReplaceStringInFile($filename, $find, $replace)
If $retval = -1 Then
	MsgBox(4096, "Ошибка", "Текст не был заменён в файле: " & $filename & ", Ошибка = " & @error)
	Exit
Else
	MsgBox(4096, "Информация", "Выполнено " & $retval & " замен образца: " & $find & " в файле: " & $filename)
EndIf

$msg = FileRead($filename, 1000)
MsgBox(4096, "После замены", $msg)
FileDelete($filename)