Автор Тема: Нахождение последнего конкретного слова в txt  (Прочитано 617 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Snegovik [?]

  • Новичок
  • *
  • Сообщений: 29
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Версия AutoIt: 3.3.14.0

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

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

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

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

Примечания:


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Русское сообщество AutoIt

Нахождение последнего конкретного слова в txt
« Отправлен: Апрель 19, 2019, 10:27:51 »

Помечен как лучший ответ пользователем Snegovik Отправлен Апрель 21, 2019, 12:07:35

Оффлайн xXx [?]

  • Осваивающий
  • **
  • Сообщений: 72
  • Репутация: 22
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.x.x
Код: AutoIt [Выделить]
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)

« Последнее редактирование: Апрель 20, 2019, 22:58:45 от xXx »

Оффлайн Snegovik [?]

  • Новичок
  • *
  • Сообщений: 29

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
xXx
Спасибо за ответ.

Русское сообщество AutoIt

Re: Нахождение последнего конкретного слова в txt
« Ответ #2 Отправлен: Апрель 21, 2019, 12:06:24 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
3564 Просмотров
Последний ответ Июнь 03, 2010, 12:27:05
от Yuriy
3 Ответов
3180 Просмотров
Последний ответ Апрель 12, 2012, 17:47:14
от sufx
4 Ответов
2289 Просмотров
Последний ответ Июнь 10, 2013, 16:24:26
от andriy111
1 Ответов
1167 Просмотров
Последний ответ Март 12, 2015, 12:32:20
от InnI
1 Ответов
565 Просмотров
Последний ответ Ноябрь 21, 2017, 17:05:59
от sergioz
2 Ответов
669 Просмотров
Последний ответ Ноябрь 22, 2017, 06:32:13
от SergVrn
4 Ответов
794 Просмотров
Последний ответ Декабрь 14, 2017, 12:24:48
от serg41
3 Ответов
617 Просмотров
Последний ответ Январь 27, 2018, 22:57:17
от Alofa
1 Ответов
313 Просмотров
Последний ответ Июль 22, 2018, 13:45:45
от sngr
4 Ответов
388 Просмотров
Последний ответ Январь 06, 2019, 21:06:28
от radioamator16