Как удалить в текстовом файле перенос строк в определенном месте

[ason]

Добрый день! Прошу показать пример, как удалить в текстовом файле перенос строки перед тегом "br".
К примеру..

из этого:

Текст:

I. Текст.

II. Текст.

III. Текст. 

IV. Текст.

получить так:

Текст:
I. Текст.
II. Текст.
III. Текст.
IV. Текст.

 

[axsmak]

Local $sText = FileRead(@ScriptDir & "\source.txt")

$sText = StringReplace($sText, @CRLF & "
", "
")
$sText = StringReplace($sText, @CR & "
", "
")
$sText = StringReplace($sText, @LF & "
", "
")

FileWrite(@ScriptDir & "\new.txt", $sText )

[info]Здесь автор темы написал ответ, но пока я отвечал, он его удалил[/info]
Добавлено:

Сообщение автоматически объединено: 5 Фев 2017

[list type=decimal]
[*]Зачем в StringReplace нужен $s_String_Patern_1?
[*]Зачем искать через StringRegExp? Достаточно StringInStr
[*]А сохранять файл кто будет?
[*]А зачем в цикле?
[/list]

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 :)')

 

[ason]

Да, я что-то перемудрил. Спасибо еще раз помощь!

 

[Alofa]

$sFile = @ScriptDir & '\Test.txt'
$sText = FileRead($sFile)
$sText = StringRegExpReplace($sText, '\v+
', '
')
ConsoleWrite($sText & @LF)
;~ $hFile = FileOpen($sFile, 2)
;~ FileWrite($hFile, $sText)
;~ FileClose($hFile)