[nibble74]

Mike909,

Спасибо за помощь

Вот мой вариант

Код:

#include <MsgBoxConstants.au3>


If MsgBox(BitOR($MB_YESNO, 32 + 262144), "ВНИМАНИЕ", "Внести данные в файл Test.txt") = $IDYES Then

Local $hFile = FileOpen(@ScriptDir & "\Test.txt", 0)
Local $sFilePath = @ScriptDir & "\Test.txt"

$sStr = FileRead($hFile)
If @error = 1 Then
   MsgBox(16 + 262144, "Ошибка", "Файл Test.txt не найден")
   Exit
EndIf

$sResult = StringInStr($sStr, "Tekst")
If $sResult = 0 Then
   If Not FileWriteLine($sFilePath, "Tekst") Then
	  MsgBox(16 + 262144, "Ошибка", "Не удалось внести данные в файл Test.txt")
   EndIf
Else
   MsgBox(64 + 262144, "", "Вносимые данные присутствуют в файле Test.txt" & @CRLF & "Подстрока: " & $sResult)
EndIf

FileClose($hFile)

EndIf