Всем привет, пытаюсь разобраться как сделать, чтобы функция Stringregexp искала нужное слово по всему тексту, выводило результат по найденным совпадениям через _ArrayDisplay, после чего исправляла слова с помощью функции StringRegExpReplace и после всех операций сохраняла результат.
Вот мой пример скрипта:
А это сам текст, в котором нужно произвести поиск и сделать замену на нужное слово
Заранее спасибо за помощь.
Вот мой пример скрипта:
Код:
#include <Array.au3>
$file = @ScriptDir & ('\1.txt') ; задаем переменную текстовому документу
$read = FileRead($file) ;производим чтение его содержимого
$string = StringRegExp($read, '[м|М][е|и][т|д]ве[т|д][а-я]', 3) ;ищем совпадение слова с помощью шаблона
_ArrayDisplay($string) ;выводим найденные совпадения в виде таблицы
$stringrep = StringRegExpReplace($read, '[м|М][е|и][т|д]ве[т|д][а-я]', 'Медведь') ;производим поиск в тексте с помощью шаблона и делаем замену на заданное слово 'Медведь'
FileDelete($file); удаляем предыдущий текстовый документ
FileWrite($file, $stringrep) ;производим создание нового документа со старым названием, но с исправленным текстом
Мидведь подошел к большому дубу.
Медветь засунул лапу в дупло.
Медвед зачерпнул пригоршню меда.
Пчелы начали кусать медведя.
Медведь побежал к речке.
Медветь засунул лапу в дупло.
Медвед зачерпнул пригоршню меда.
Пчелы начали кусать медведя.
Медведь побежал к речке.