getWords.vbs - Извлечение русских\английских слов\цифр
|
|
Andrey_A | Дата: Четверг, 05.04.2012, 16:29 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
Извлечение русских\английских слов\цифр из выделенного текста Используется скрипт 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 |
|
Магистр, скрипт очень бы пригодился, если бы: -вытягивал русские фразы с кавычек (именно с кавычек, где то одинарных, где то двойных) -если в этих кавычках были бы английские слова вперемешку с русскими, то брал бы и их -одно и двух буквенные - тоже выбирал бы, а не выбрасывал -и результат выводил бы в новый файл по фразам, а не по слову на строку сами кавычки в выборке не нужны
|
|
| |
Andrey_A | Дата: Среда, 11.12.2013, 21:43 | Сообщение № 3 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
asmadeus, это можно решить в TCIMG
Добавив в секцию [FormatUser] в TCIMG.ini вставить
Код ; получить все фразы между кавычками (одинарными или двойными) U10=["']+([^"'\r\n]*)["']+
кнопка для Total Commander:
Извлечь из содержимого файла под курсором все фразы между одинарными или двойными кавычками и сохранить в активной панели с приставкой _test
Доступно только для пользователей
Если произвести ещё действия, то можно ещё отсеять...
т.к. утилита интегрируется в AkelPad, то попробую это вставить, но не скоро
|
|
| |
asmadeus | Дата: Среда, 11.12.2013, 21:46 | Сообщение № 4 |
|
Andrey_A, попробую этот способ пока
|
|
| |
Andrey_A | Дата: Четверг, 12.12.2013, 06:13 | Сообщение № 5 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
asmadeus, вариантов может быть масса. По тем файлам которые ты прислал сложность в том, что внутри фраз, заключённых в двойные кавычки могут присутствовать одинарные и наоборот... посмотри обобщённый вариант:
getLineBetweenQuotes.vbs - Извлечение фраз между двойными и одинарными кавычками из выделенного текста
|
|
| |
Dimsok5405 | Дата: Среда, 29.03.2023, 09:16 | Сообщение № 6 |
Рядовой
На сайте с: 03.03.2023
Город: Санкт-Петербург
Сообщений: 3
|
Возможно добавить в скрипт сортировку в случайном порядке?
|
|
| |
Andrey_A | Дата: Среда, 29.03.2023, 09:36 | Сообщение № 7 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
Dimsok5405, перемешать строки можно через InsertPlus.vbs - Скрипт библиотека различных преобразований текста и вставка
Код -"Перемешать выделенные строки случайным образом" Call("Scripts::Main", 1, "InsertPlus.vbs", `153 "vb"`) Icon("%a\AkelPadImage.dll",411)
.
|
|
| |
goldenge | Дата: Четверг, 30.03.2023, 13:51 | Сообщение № 8 |
Сержант
На сайте с: 17.12.2017
Сообщений: 37
|
Как создать например wifi пароль скриптом 1) 12345678 это от 1 до 8 - первый такой вариант 2) и так например abcdef от a до f - это второй вариант
|
|
| |
Andrey_A | Дата: Четверг, 30.03.2023, 15:20 | Сообщение № 9 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
В сборке AkelPad Image есть утилита TCIMG - через неё можно
Код -"Генератор паролей" Call("Scripts::Main", 1, "TCIMG.vbs", `pasgen`) Icon("%a\AkelPadImage.dll",1483)
Так же есть
Код { -"Генератор паролей" Call("Scripts::Main", 1, "TCIMG.vbs", `pasgen`) Icon("%a\AkelPadImage.dll",1483) SEPARATOR -"Случайный пароль" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 3 20`) Icon("%a\AkelPadImage.dll",352) SEPARATOR -"В буфер случайные символы (длина в диалоге) LAT" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 0 -1`) Icon("%a\AkelPadImage.dll",1419) -"В буфер случайные символы (длина в диалоге) NUM" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 1 -1`) Icon("%a\AkelPadImage.dll",1421) -"В буфер случайные символы (длина в диалоге) RUS" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 2 -1`) Icon("%a\AkelPadImage.dll",1420) -"В буфер случайные символы (длина в диалоге) LAT NUM" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 3 -1`) Icon("%a\AkelPadImage.dll",1422) -"В буфер случайные символы (длина в диалоге) 32-161DEC" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 4 -1`) Icon("%a\AkelPadImage.dll",1423) -"В буфер случайные символы (длина в диалоге) 32-191DEC" Call("Scripts::Main", 1, "ClipboardPlus.vbs", `24 5 -1`) Icon("%a\AkelPadImage.dll",1424) }
Если надо только скриптом, то под ваши символы надо писать новую функцию... пока времени нет
|
|
| |
Dimsok5405 | Дата: Понедельник, 03.04.2023, 08:46 | Сообщение № 10 |
Рядовой
На сайте с: 03.03.2023
Город: Санкт-Петербург
Сообщений: 3
|
Как можно разделить текст на слова и перемешать их за один подход в комстроке? К примеру, такое не действует: "c:\Program Files\Total Commander\Plugins\exe\AkelPad.exe" /Command(4157) /Command(4155) /Command(4157) /Call("Scripts::Main", 1, "getwords.vbs", `"0" "0" "1" "1"`) /Call("Scripts::Main", 1, "InsertPlus.vbs", `153 "vb"`).
Кстати, последняя строка остаётся не отсортированной. Это было в 1.5 версии. Попробовал последнюю (1.8) - та же проблема. И ещё я заметил, что InsertPlus.vbs сохраняет текстовый файл без запроса. Это нормально?
|
|
| |
Andrey_A | Дата: Понедельник, 03.04.2023, 20:01 | Сообщение № 11 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
Цитата Dimsok5405 ( ) Кстати, последняя строка остаётся не отсортированной Основные функции находятся в Functions.vbs - обновите http://tc-image.3dn.ru/forum/9-346-1#1076
Цитата Dimsok5405 ( ) InsertPlus.vbs сохраняет текстовый файл без запроса. Это нормально? Для меня это более чем нормально. Т.к. все мои скрипты из сборки AkelPad Image, то в ней есть настройки, которые отключают автосохранение. Если вы без сборки используете, то в Functions.vbs замените SaveOrNoDocuments = 1 на 0.
Цитата Dimsok5405 ( ) Как можно разделить текст на слова и перемешать их за один подход в комстроке? Если честно уже не помню)) в AkelPad есть 3 обрамляющих символа, одинарная кавычка, обычные кавычки, и открывающая одиночная кавычка ( гравис, знак ударения) используйте их... + минимизируйте ненужные пробелы + прочитайте про Scripts::Main - варианты запуска...
Код /Call(`Scripts::Main`,1,`getwords.vbs`,`'0' '0' '1' '1'`)
Можно и без AkelPad воспользоваться TCIMG
Код TOTALCMD#BAR#DATA %COMMANDER_PATH%\TCIMG.exe sends=-1??0||?Fwords1,1||?P %COMMANDER_PATH%\Wcmicons.dll,1 Из буфера обмена получить русские слова более 3-х символов, удалить дубликаты, перемешать случайным образом и записать в буфера обмена
0 -1
.
|
|
| |
Dimsok5405 | Дата: Вторник, 16.05.2023, 11:10 | Сообщение № 12 |
Рядовой
На сайте с: 03.03.2023
Город: Санкт-Петербург
Сообщений: 3
|
А с помощью InsertPlus возможно перемешать в случайном порядке знаки или слова в пределах одной строки?
|
|
| |
Andrey_A | Дата: Среда, 17.05.2023, 09:35 | Сообщение № 13 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7187
Награды: 143
Репутация: 125
Аверин Андрей
|
Dimsok5405, обновите скрипт - http://tc-image.3dn.ru/forum/9-384-1159-16-1333716091
Код -"Перемешать символы в выделенном" Call("Scripts::Main", 1, "InsertPlus.vbs", `1531`) Icon("%a\AkelPadImage.dll",1706) SEPARATOR -"Перемешать в выделенной строке фрагменты - разделитель ','" Call("Scripts::Main", 1, "InsertPlus.vbs", `153 ","`) Icon("%a\AkelPadImage.dll",1652) -"Перемешать в выделенной строке фрагменты - разделитель '# '" Call("Scripts::Main", 1, "InsertPlus.vbs", `153 "# "`) Icon("%a\AkelPadImage.dll",1652) -"Перемешать в выделенной строке фрагменты между пробелами" Call("Scripts::Main", 1, "InsertPlus.vbs", `153 " "`) Icon("%a\AkelPadImage.dll",1652) SEPARATOR -"Перемешать выделенные строки случайным образом" Call("Scripts::Main", 1, "InsertPlus.vbs", `153 "vb"`) Icon("%a\AkelPadImage.dll",411)
|
|
| |
|