Добавить строку по условию

[romanzko]

Всем привет!
Есть условие :

if StringInStr($line, "красный") then

задача добавить строку перед "красный"

Исходный вариант:
белый
красный

Что должно получиться:
белый
черный
красный

Подскажите пожалуйста

 

[ra4o]

Например без регулярных выражений:

$line='белый'&@CR&'красный'
$line = StringReplace($line,'красный','черный'&@CR&'красный')
MsgBox(0,'',$line)

и при помощи регулярного выражения:

$line='белый'&@CR&'красный'
$line = StringRegExpReplace($line, '(красный)', 'черный'&@CR&'$1')
MsgBox(0,'',$line)

 

[romanzko]

Например без регулярных выражений:

$line='белый'&@CR&'красный'
$line = StringReplace($line,'красный','черный'&@CR&'красный')
MsgBox(0,'',$line)

и при помощи регулярного выражения:

$line='белый'&@CR&'красный'
$line = StringRegExpReplace($line, '(красный)', 'черный'&@CR&'$1')
MsgBox(0,'',$line)

Попробовал, - только суть моей задачи - что мне нужно в самом блокноте внедрить доп строку.
В исходном файле идут слова построчно:
белый
красный

А мне нужно исправить этот файл что бы в нем было содержание:
белый
черный
красный

То есть условие такое :

$line = FileReadLine("Исходный.txt")
if StringInStr($line, "красный") then Поставить перед красный - черный

Сообщение автоматически объединено: 29 Июн 2020

 

[ra4o]

Добавьте к тому что выше чтение и запись в файл
Оставьте нужную строку замены цвета,не нужную удалите или закомментируйте и укажите полный путь к своему файлу со словами.

$TextFile = @ScriptDir & '\Исходный.txt'
$MyColor = 'красный'
$AddColor = 'черный'
$sText = FileRead($TextFile)
$sText = StringReplace($sText, $MyColor, $AddColor & @CR & $MyColor) ; Без регулярного выражения
;$sText = StringRegExpReplace($sText, '('&$MyColor&')', $AddColor&@CR&'$1'); С регулярным выражением
$hFile = FileOpen($TextFile, 2)
FileWrite($hFile, $sText)
FileClose($hFile)

 

[romanzko]

Добавьте к тому что выше чтение и запись в файл
Оставьте нужную строку замены цвета,не нужную удалите или закомментируйте и укажите полный путь к своему файлу со словами.

$TextFile = @ScriptDir & '\Исходный.txt'
$MyColor = 'красный'
$AddColor = 'черный'
$sText = FileRead($TextFile)
$sText = StringReplace($sText, $MyColor, $AddColor & @CR & $MyColor) ; Без регулярного выражения
;$sText = StringRegExpReplace($sText, '('&$MyColor&')', $AddColor&@CR&'$1'); С регулярным выражением
$hFile = FileOpen($TextFile, 2)
FileWrite($hFile, $sText)
FileClose($hFile)

ОК! спасибо