[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, simup, ХарВик, chip642  
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » getWords.vbs - Извлечение русских\английских слов\цифр (Извлечение объектов)
getWords.vbs - Извлечение русских\английских слов\цифр
Andrey_AДата: Четверг, 05.04.2012, 16:29 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7032
Награды: 131
Репутация: 117
Аверин Андрей
Извлечение русских\английских слов\цифр из выделенного текста
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах

Доступно только для пользователей

Примеры использования:

Код
"Извлечь слова из выделенного текста"
          {
          -"Извлечь все русские слова" Call("Scripts::Main", 1, "getWords.vbs") Icon("%a\AkelPadImage.dll",551)
          -"Извлечь все русские слова -дубликаты" Call("Scripts::Main", 1, "getWords.vbs", `"0" "0" "1"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь все русские слова -дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"0" "0" "1" "1"`) Icon("%a\AkelPadImage.dll",551)
          SEPARATOR
          -"Извлечение русских слов >2 символов" Call("Scripts::Main", 1, "getWords.vbs", `"0" "2"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь русские слова >2 симв.-дубл." Call("Scripts::Main", 1, "getWords.vbs", `"0" "2" "1"`) Icon("%a\AkelPadImage.dll",551)
          -"Извлечь русские слова >2 симв.-дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"0" "2" "1" "1" "1"`) Icon("%a\AkelPadImage.dll",551)
          SEPARATOR
          SEPARATOR
            -"Извлечь все англ. слова" Call("Scripts::Main", 1, "getWords.vbs", "1") Icon("%a\AkelPadImage.dll",550)
          -"Извлечь все англ. слова -дубликаты" Call("Scripts::Main", 1, "getWords.vbs", `"1" "0" "1"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь все англ. слова -дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"1" "0" "1" "1"`) Icon("%a\AkelPadImage.dll",550)
          SEPARATOR
          -"Извлечь англ. слова >2 символов" Call("Scripts::Main", 1, "getWords.vbs", `"1" "2"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь англ. слова >2 симв.-дубл." Call("Scripts::Main", 1, "getWords.vbs", `"1" "2" "1"`) Icon("%a\AkelPadImage.dll",550)
          -"Извлечь англ. слова >2 симв.-дубл.+нижн регистр." Call("Scripts::Main", 1, "getWords.vbs", `"1" "2" "1" "1" "1"`) Icon("%a\AkelPadImage.dll",550)
          SEPARATOR
          SEPARATOR
          -"Извлечь все цифры" Call("Scripts::Main", 1, "getWords.vbs",`"2"`) Icon("%a\AkelPadImage.dll",917)
          -"Извлечь все цифры +сорт.-дубликаты" Call("Scripts::Main", 1, "getWords.vbs",`"2" "0" "1" "0" "1"`) Icon("%a\AkelPadImage.dll",917)
          }
[/hide]


 
asmadeusДата: Среда, 11.12.2013, 20:34 | Сообщение № 2
Генералиссимус

На сайте с: 14.12.2012
Город: Кривой Рог
Сообщений: 1372
Награды: 29
Репутация: 32
Магистр, скрипт очень бы пригодился, если бы:
-вытягивал русские фразы с кавычек (именно с кавычек, где то одинарных, где то двойных)
-если в этих кавычках были бы английские слова вперемешку с русскими, то брал бы и их
-одно и двух буквенные - тоже выбирал бы, а не выбрасывал
-и результат выводил бы в новый файл по фразам, а не по слову на строку
сами кавычки в выборке не нужны
 
Andrey_AДата: Среда, 11.12.2013, 21:43 | Сообщение № 3
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7032
Награды: 131
Репутация: 117
Аверин Андрей
asmadeus, это можно решить в TCIMG

Добавив в секцию [FormatUser] в TCIMG.ini вставить

Код
; получить все фразы между кавычками (одинарными или двойными)
U10=["']+([^"'\r\n]*)["']+


кнопка для Total Commander:

Извлечь из содержимого файла под курсором все фразы между одинарными или двойными кавычками и сохранить в активной панели с приставкой _test

Доступно только для пользователей

Если произвести ещё действия, то можно ещё отсеять...

т.к. утилита интегрируется в AkelPad, то попробую это вставить, но не скоро


 
asmadeusДата: Среда, 11.12.2013, 21:46 | Сообщение № 4
Генералиссимус

На сайте с: 14.12.2012
Город: Кривой Рог
Сообщений: 1372
Награды: 29
Репутация: 32
Andrey_A, попробую этот способ пока
 
Andrey_AДата: Четверг, 12.12.2013, 06:13 | Сообщение № 5
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7032
Награды: 131
Репутация: 117
Аверин Андрей
asmadeus, вариантов может быть масса. По тем файлам которые ты прислал сложность в том, что внутри фраз, заключённых в двойные кавычки могут присутствовать одинарные и наоборот... посмотри обобщённый вариант:

getLineBetweenQuotes.vbs - Извлечение фраз между двойными и одинарными кавычками из выделенного текста


 
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » getWords.vbs - Извлечение русских\английских слов\цифр (Извлечение объектов)
  • Страница 1 из 1
  • 1
Поиск:

Сообщите о находке всему миру:
Рейтинг@Mail.ru Тиц и pr сайта Яндекс.Метрика

Интеллектуальные права и отказ от ответственности