Что нового

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

romanzko

Новичок
Сообщения
6
Репутация
0
Всем привет!
Есть условие :
Код:
if StringInStr($line, "красный") then

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

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

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

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

ra4o

AutoIT Гуру
Сообщения
1 088
Репутация
212
Например без регулярных выражений:
Код:
$line='белый'&@CR&'красный'
$line = StringReplace($line,'красный','черный'&@CR&'красный')
MsgBox(0,'',$line)

и при помощи регулярного выражения:
Код:
$line='белый'&@CR&'красный'
$line = StringRegExpReplace($line, '(красный)', 'черный'&@CR&'$1')
MsgBox(0,'',$line)
 
Последнее редактирование:
Автор
R

romanzko

Новичок
Сообщения
6
Репутация
0
Например без регулярных выражений:
Код:
$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 Поставить перед красный - черный

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

ra4o

AutoIT Гуру
Сообщения
1 088
Репутация
212
Добавьте к тому что выше чтение и запись в файл
Оставьте нужную строку замены цвета,не нужную удалите или закомментируйте и укажите полный путь к своему файлу со словами.
Код:
$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)
 
Последнее редактирование:
Автор
R

romanzko

Новичок
Сообщения
6
Репутация
0
Добавьте к тому что выше чтение и запись в файл
Оставьте нужную строку замены цвета,не нужную удалите или закомментируйте и укажите полный путь к своему файлу со словами.
Код:
$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)
ОК! спасибо
 
Верх