Как заменить текст в файле целиком а не в строке?

[Tapok]

Почему не работает код:

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead,'^(\w+)\s+(.+)','<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>')
ConsoleWrite($mas1 & @LF)

В RegexBuddy все работает:
поиск:

^(\w+)\s+(.+)

замена:

<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>

на выходе:

<tr>
<td>один</td>
<td>два</td>
</tr>

и если в файле менять, я что-то не так пишу:

$hRead = FileRead(@ScriptDir & '\tmp\спс.txt')
$mas1 = StringRegExpReplace($hRead,'^(\w+)\s+(.+)','<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>')
ConsoleWrite($mas1 & @LF)

тоже не работает

 

[edyapd]

Tapok, вам уже много раз писали "читайте внимательно справку"

\w - [0-9a-zA-Z_] - любой алфавитно-числовой символ или подчеркивание (только символы латинского алфавита)

Попробуйте так

$mas1 = StringRegExpReplace($hRead,'^(\H+)\s+(.+)','<tr>\\r\\n<td>\1</td>\\r\\n<td>\2</td>\\r\\n</tr>')

 

[Tapok]

edyapd, за совет про справку спасибо.
У Вас Ваш код работает? У меня -нет.

 

[alex33]

У меня работает, AutoIt 3.3.12.0

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead,'^(\H+)\s+(.+)','<tr>\\r\\n<td>\1</td>\\r\\n<td>\2</td>\\r\\n</tr>')
ConsoleWrite($mas1 & @LF)

Добавлено:

Сообщение автоматически объединено: 27 Май 2015

В консоле:

<tr>\r\n<td>один</td>\r\n<td>два</td>\r\n</tr>

 

[Tapok]

вот так работает:

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead,"^(\H+)\s+(.+)","<tr>"&@LF&"<td>\1</td>"&@LF&"<td>\2</td>"&@LF&"</tr>")
ConsoleWrite($mas1 & @LF)

но почему надо писать @LF а не \r\n ?

 

[alex33]

Или так:

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead,'^(\H+)\s+(.+)','<tr>'&@CRLF&'<td>\1</td>'&@CRLF&'<td>\2</td>'&@CRLF&'</tr>')
ConsoleWrite($mas1 & @LF)

 

[Tapok]

В консоле:

<tr>\r\n<td>один</td>\r\n<td>два</td>\r\n</tr>

В консоли должно быть:

<tr>
<td>один</td>
<td>два</td>
</tr>

Добавлено:

Сообщение автоматически объединено: 27 Май 2015

Или так:

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead,'^(\H+)\s+(.+)','<tr>'&@CRLF&'<td>\1</td>'&@CRLF&'<td>\2</td>'&@CRLF&'</tr>')
ConsoleWrite($mas1 & @LF)

Так да.

 

[alex33]

Tapok [?]

но почему надо писать @LF а не \r\n ?

Потому что AutoIt так устроен. Попробуйте функцию

StringFormat

Добавлено:

Сообщение автоматически объединено: 27 Май 2015

ConsoleWrite(StringFormat("Первая строка\r\nВторая\r\nИ третья\r\n"))

Консоль:

Первая строка
Вторая
И третья

 

[Tapok]

А можно ли как то подставить "StringFormat" внутрь "StringRegExpReplace", чтобы писать \r\n внутри "StringRegExpReplace"?

 

[alex33]

А можно ли как то подставить "StringFormat" внутрь "StringRegExpReplace", чтобы писать \r\n внутри "StringRegExpReplace"?

Можно.

$hRead = 'один два'
$mas1 = StringRegExpReplace($hRead, '^(\H+)\s+(.+)', StringFormat('<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>'))
ConsoleWrite($mas1 & @LF)

 

[Tapok]

Спасибо!


Добавлено:

Сообщение автоматически объединено: 27 Май 2015

Вдобавок, в продолжение того же вопроса...

Если у нас не строка, а файл

$hRead = FileRead(@ScriptDir & '\tmp\name.txt')
$mas1 = StringRegExpReplace($hRead, '^(\H+)\s+(.+)', StringFormat('<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>'))
ConsoleWrite($mas1 & @LF)

так не работает, надо файл по строкам читать и строки подсовывать?

 

[edyapd]

Если у нас не строка, а файл
так не работает, надо файл по строкам читать и строки подсовывать?

Так вы для примера хоть файл прикрепите. У вас же не одна строка там? И что на выходе надо получить.

 

[Tapok]

Так вы для примера хоть файл прикрепите. У вас же не одна строка там? И что на выходе надо получить.

Прикрепил.
На выходе должно быть:

<tr>
<td>один</td>
<td>два </td>
</tr>
<tr>
<td>три</td>
<td>четыре</td>
</tr>

 

[alex33]

Попробуйте убрать ^

$mas1 = StringRegExpReplace($hRead, '(\H+)\s+(.+)', StringFormat('<tr>\r\n<td>\1</td>\r\n<td>\2</td>\r\n</tr>'))

 

[Tapok]

Работает! Большое спасибо! :IL_AutoIt_1: