Добавить перенос строки в заданном месте

[ason]

Здравствуйте! Прошу подсказать, в текстовом файле ищу строки типа "567. Вопрос" и далее пытаюсь добавить перед ними перенос строки, но вот так не работает. Примечание: цифра у каждой строки разная

Local $sText = FileRead(@ScriptDir & "\test.txt")
;66. Вопрос:
Local $sPattern = '.*?\d\.\h[А-яЁё]'
$sText = StringReplace($sText, $sPattern, @CR & $sPattern)
$sText = StringReplace($sText, $sPattern, @LF & $sPattern)

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

 

[Garrett]

OffTopic:
ason
Не надо баловаться репутацией!
Есть пункт (справа внизу) "Сообщить модератору"!

 

[Alofa]

ason пример test.txt в студию.

 

[ason]

Добавил в первый пост

 

[Alofa]

$sFile = @ScriptDir & '\Test.txt'
$sText = FileRead($sFile)
$sText = StringRegExpReplace($sText, '(\d{3}\.\h*Вопрос)', @CRLF & '$1')
ConsoleWrite($sText & @LF)
;~ $hFile = FileOpen($sFile, 2)
;~ FileWrite($hFile, $sText)
;~ FileClose($hFile)

Прям как в предыдущей вашей теме.

 

[ason]

Спасибо, очень помогли!