Что нового

[Данные, строки] Поиск определенных данных в txt и копирование их в другой txt

erience

Новичок
Сообщения
1
Репутация
0
Добрейшего времени суток форумчане.


Обратится хочу к вам с вопросом таким.

Есть несколько текстовых файлов, в которых нужно осуществить поиск информации с помощью регулярного выражения,
и переносом полученной информации в другой текстовый файл.

Поиском по форуму был найден следующий скрипт

Пробуйте
Код:
$source = FileOpen("source.txt") ; файл-источник
$dest = FileOpen("dest.txt", 2) ; файл-получатель
$template = "Текст"

While 1
  $str = FileReadLine($source)
  If @error = -1 Then ExitLoop
  If StringInStr($str, $template) = 1 Then
    FileWriteLine($dest, $str)
  EndIf
WEnd

FileClose($source)
FileClose($dest)

для регулярного выражения изменил его вот так

Код:
$source = FileOpen("source.txt") ; файл-источник
$dest = FileOpen("dest.txt", 2) ; файл-получатель
$template = "Текст"

While 1
  $str = FileReadLine($source)
  If @error = -1 Then ExitLoop
  If StringRegExp($str, $template) = 1 Then
    FileWriteLine($dest, $str)
  EndIf
WEnd

FileClose($source)
FileClose($dest)


но проблема заключается в том, что мне не нужна вся строка, а нужен лишь результат поиска в новом текстовом файле.
Прошу о помощи и да прибудет с нами сила =)
 

InnI

AutoIT Гуру
Сообщения
4,634
Репутация
1,310
Код:
While 1
  $str = FileReadLine($source)
  If @error = -1 Then ExitLoop
  $arr = StringRegExp($str, $template, 3)
  If Not @error Then FileWriteLine($dest, $arr[0])
WEnd
 
Верх