Что нового

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

ason

Новичок
Сообщения
25
Репутация
0
Добрый день! Прошу показать пример, как удалить в текстовом файле перенос строки перед тегом "br".
К примеру..
Код:
из этого:

Текст:

I. Текст.

II. Текст.

III. Текст. 

IV. Текст.

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

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

axsmak

Знающий
Сообщения
32
Репутация
7
Код:
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]
Добавлено:
Сообщение автоматически объединено:

[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 :)')
 
Автор
A

ason

Новичок
Сообщения
25
Репутация
0
Да, я что-то перемудрил. Спасибо еще раз помощь!
 
A

Alofa

Гость
Код:
$sFile = @ScriptDir & '\Test.txt'
$sText = FileRead($sFile)
$sText = StringRegExpReplace($sText, '\v+
', '
')
ConsoleWrite($sText & @LF)
;~ $hFile = FileOpen($sFile, 2)
;~ FileWrite($hFile, $sText)
;~ FileClose($hFile)
 
Верх