Global $s_File_Read = @ScriptDir & '\test.txt'
Global $sPattern_Read = '
'
;While 1
;$s_File_Read_Open = FileOpen ($s_File_Read, 0)
$s_String_Read = FileRead($s_File_Read)
$s_String_Patern_1 = StringInStr($s_String_Read, $sPattern_Read)
If $s_String_Patern_1 Then ; Если в файле есть совпадение «
»
$s_String_Read = StringReplace($s_String_Read, @CRLF & "
", "
")
$s_String_Read = StringReplace($s_String_Read, @CR & "
", "
")
$s_String_Read = StringReplace($s_String_Read, @LF & "
", "
")
FileWrite($s_File_Read, $s_String_Read)
EndIf
;WEnd
MsgBox (0, 'test', 'OK :)')