Что нового

Нахождение последнего конкретного слова в txt

Snegovik

Новичок
Сообщения
47
Репутация
0
Версия AutoIt: 3.3.14.0

Описание:
Добрый день.

У меня есть txt файл.
В нем периодически встречаются слова "утро перпол7", "день вторпол16" и "вечер вторпол21".

Посоветуйте, как скриптом Autoit - проанализировать "1.txt" на последнее введенное слово данного и скопировать его в 2.txt ?

То есть если последнее слово, которое я введу в 1.txt - будет слово "день вторпол16" - то после сохранения 1.txt запуска Autoit-скрипта в файл 2.txt - впишется "день вторпол16" (заменив предыдущее содержимое файла).

Примечания:
 

Вложения

  • 1.rar
    254 байт · Просмотры: 3

xXx

╚{■_■}╗
Меценат
Сообщения
248
Репутация
95
Код:
Global $sFile_1 = @ScriptDir & '\1.txt'
Global $sFile_2 = @ScriptDir & '\2.txt'
Global $aSearch[3] = ['утро перпол7', 'день вторпол16', 'вечер вторпол21'] ; Искомые словосочетания
Global $sText_1 = FileRead($sFile_1)
Global $sSearch, $sText_2, $aArray, $hFile

If @error Then Exit 10
For $i = 0 To UBound($aSearch) - 1
	$sSearch &= StringRegExpReplace($aSearch[$i], '([^А-Ё\w\s])', '\\$1') & '|'
Next
$aArray = StringRegExp($sText_1, StringTrimRight($sSearch, 1), 3)
$sText_2 = (@error) ? '' : $aArray[UBound($aArray) - 1]

$hFile = FileOpen($sFile_2, 2 + 512)
If $hFile = -1 Then Exit 20
FileWrite($hFile, $sText_2)
FileClose($hFile)
 
Верх