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

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6420
Награды: 98
Репутация: 87
Аверин Андрей
Доступно только для пользователей

Пример getPath.ini

Код
[Filters]
; только папки
Filter1=111111111
Ignore1=
Ocurrences1=
; только текстовые файлы
Filter2=;txt|
Ignore2=           
Ocurrences2=
; только запучкающие файлы
Filter3=;exe|
Ignore3=
Ocurrences3=
; файлы скриптинга
Filter4=;bat;cmd;vbs;js;msc;scf;scp;vbe;jse;wsf;wsh;sh;au3;ahk;powerpro;a3x;hta|
Ignore4=
Ocurrences4=


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

Код
  "&Извлечь из выделенного Все пути..." Icon("%a\AkelPadImage.dll",556)
             {
             -"Извлечь из ВСЕ пути из выделенного\текста" Call("Scripts::Main", 1, "getPath.vbs", `"0"`) Icon("%a\AkelPadImage.dll",556)
             -"Извлечь пути с РУССКИМИ символами" Call("Scripts::Main", 1, "getPath.vbs", `"1"`) Icon("%a\AkelPadImage.dll",556)
             -"Извлечь пути с ПРОБЕЛАМИ в пути" Call("Scripts::Main", 1, "getPath.vbs", `"2"`) Icon("%a\AkelPadImage.dll",556)
               SEPARATOR
             -"Извлечь пути с ПРОВЕРКОЙ" Call("Scripts::Main", 1, "getPath.vbs", `"3"`) Icon("%a\AkelPadImage.dll",554)
             -"Извлечь НЕСУЩЕСТВУЮЩИЕ пути" Call("Scripts::Main", 1, "getPath.vbs", `"5"`) Icon("%a\AkelPadImage.dll",556)
             -"Извлечь существующие пути" Call("Scripts::Main", 1, "getPath.vbs", `"4"`) Icon("%a\AkelPadImage.dll",556)
               SEPARATOR
               SEPARATOR
             -"% Извлечь ВСЕ пути из выделенного\текста" Call("Scripts::Main", 1, "getPath.vbs", `"0+"`) Icon("%a\AkelPadImage.dll",556)
             -"% Извлечь пути с РУССКИМИ символами" Call("Scripts::Main", 1, "getPath.vbs", `"1+"`) Icon("%a\AkelPadImage.dll",556)
             -"% Извлечь пути с ПРОБЕЛАМИ в пути" Call("Scripts::Main", 1, "getPath.vbs", `"2+"`) Icon("%a\AkelPadImage.dll",556)
               SEPARATOR
             -"% Извлечь пути с ПРОВЕРКОЙ" Call("Scripts::Main", 1, "getPath.vbs", `"3+"`) Icon("%a\AkelPadImage.dll",554)
             -"% Извлечь НЕСУЩЕСТВУЮЩИЕ пути" Call("Scripts::Main", 1, "getPath.vbs", `"5+"`) Icon("%a\AkelPadImage.dll",556)
             -"% Извлечь существующие пути" Call("Scripts::Main", 1, "getPath.vbs", `"4+"`) Icon("%a\AkelPadImage.dll",556)
             SEPARATOR
            -"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `"1" "&Извлечь из выделенного Все пути..."`) Icon("%a\AkelPadImage.dll",93)            
             }
           "Извлечь из выделенного пути &ПАПОК..." Icon("%a\AkelPadImage.dll",552)
             {
             -"Извлечь ВСЕ папки из выделенного\текста" Call("Scripts::Main", 1, "getPath.vbs", `"0" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"Извлечь папки с РУССКИМИ символами" Call("Scripts::Main", 1, "getPath.vbs", `"1" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"Извлечь папки с ПРОБЕЛАМИ в пути" Call("Scripts::Main", 1, "getPath.vbs", `"2" "" "1"`) Icon("%a\AkelPadImage.dll",552)
               SEPARATOR
             -"Извлечь папки с ПРОВЕРКОЙ путей" Call("Scripts::Main", 1, "getPath.vbs", `"3" "" "1"`) Icon("%a\AkelPadImage.dll",554)
             -"Извлечь НЕСУЩЕСТВУЮЩИЕ папки" Call("Scripts::Main", 1, "getPath.vbs", `"5" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"Извлечь существующие папки" Call("Scripts::Main", 1, "getPath.vbs", `"4" "" "1"`) Icon("%a\AkelPadImage.dll",552)
               SEPARATOR
               SEPARATOR
             -"% Извлечь ВСЕ папки из выделенного\текста" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"% Извлечь папки с РУССКИМИ символами" Call("Scripts::Main", 1, "getPath.vbs", `"1+" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"% Извлечь папки с ПРОБЕЛАМИ в пути" Call("Scripts::Main", 1, "getPath.vbs", `"2+" "" "1"`) Icon("%a\AkelPadImage.dll",552)
               SEPARATOR
             -"% Извлечь папки с ПРОВЕРКОЙ путей" Call("Scripts::Main", 1, "getPath.vbs", `"3+" "" "1"`) Icon("%a\AkelPadImage.dll",554)
             -"% Извлечь НЕСУЩЕСТВУЮЩИЕ папки" Call("Scripts::Main", 1, "getPath.vbs", `"5+" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             -"% Извлечь существующие папки" Call("Scripts::Main", 1, "getPath.vbs", `"4+" "" "1"`) Icon("%a\AkelPadImage.dll",552)
             SEPARATOR
            -"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `"1" "Извлечь из выделенного пути &ПАПОК..."`) Icon("%a\AkelPadImage.dll",93)            
             }

           "Извлечь пути определённых &типов" Icon("%a\AkelPadImage.dll",553)
             {
             -"% Извлечь пути TXT файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "2"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути INI файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "9"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути EXE файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "3"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути файлов СКРИПТИНГА" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "4"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути файлов ИЗОБРАЖЕНИЙ" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "6"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути АРХИВНЫХ файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "5"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути ВИДЕО файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "7"`) Icon("%a\AkelPadImage.dll",553)
             -"% Извлечь пути АУДИО файлов" Call("Scripts::Main", 1, "getPath.vbs", `"0+" "" "8"`) Icon("%a\AkelPadImage.dll",553)
             SEPARATOR
            -"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `"1" "Извлечь пути определённых &типов"`) Icon("%a\AkelPadImage.dll",93)            
             }
[/hide]


 
Andrey_AДата: Четверг, 05.04.2012, 13:34 | Сообщение № 2
Генералиссимус

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

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

Пример getPathScanFolder.ini

Код
[Searches]
Extensions1=;txt;ini;bar
NotInclude1=
OnlyElements1=
Extensions2=;bat;cmd;vbs;js;msc;scf;scp;vbe;jse;wsf;wsh;sh;au3;ahk;powerpro;a3x;hta
NotInclude2=
OnlyElements2=
Extensions3=034;_inf;abbr;abp;access;accfl;acctb;acp;acrodata;adb;addon;adf;adm;adml;
NotInclude3=;descript.ion;build.cmd;makefile.bat;akeldll.h;akeledit.h;build-x64.cmd;
OnlyElements3=
Extensions4=
NotInclude4=;descript.ion;build.cmd;makefile.bat;akeldll.h;akeledit.h;build-x64.cmd;
OnlyElements4=

[Filters]
; только папки
Filter1=111111111
Ignore1=
Ocurrences1=
;    
Filter2=;txt|
Ignore2=
Ocurrences2=
Filter3=;exe|
Ignore3=
Ocurrences3=
; файлы скриптинга
Filter4=;bat;cmd;vbs;js;msc;scf;scp;vbe;jse;wsf;wsh;sh;au3;ahk;powerpro;a3x;hta|
Ignore4=
Ocurrences4=
; файлы архивов    
Filter5=;7z;a0;a0?;a1;a2;a3;a4;a5;a6;a7;a8;a9;
Ignore5=
Ocurrences5=
; файлы изображений
Filter6=;032;24b;73i;82i;83i;854;85i;86i;89i;92i;
Ignore6=
Ocurrences6=
; файлы видео
Filter7=;3g2;3gp*;3mm;44;acw;ad;adr;am*;amc;amv;
Ignore7=
Ocurrences7=
; файлы аудио
Filter8=;mtm;aif;au;cda;med;mid;midi;mod;mpa;mp3;
Ignore8=
Ocurrences8=
; файлы    
Filter9=;ini|
Ignore9=
Ocurrences9=
; файлы    
Filter10=
Ignore10=
Ocurrences10=;Programs|


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

Код
  "&ПРОВЕРКА путей в файлах папок" Icon("%a\AkelPadImage.dll",554)
       {
     -"Проверка путей в текстовых файлах Total Commander" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a" "3" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
       SEPARATOR
     -"Проверка путей во всех файлах Total Commander" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах AkelFiles" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\AkelFiles" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
       SEPARATOR
     -"Проверка путей во всех файлах папки Bar" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\BAR" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Files" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Files" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Language" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\LANGUAGE" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Programs" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Programs" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Scripts" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Scripts" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Utilities" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Utilities" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
       SEPARATOR
     -"Проверка путей во всех файлах папки Plugins" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Plugins" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Wcx" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Plugins\Wcx" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Wdx" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Plugins\Wdx" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Wfx" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Plugins\Wfx" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах папки Wlx" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%a\Plugins\Wlx" "4" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
       SEPARATOR
      -"Изменить &меню..." Call("Scripts::Main", 1, "SettingContextMenuFont.vbs", `"1" "&ПРОВЕРКА путей в файлах папок"`) Icon("%a\AkelPadImage.dll",93)      
     }
     "&ПРОВЕРКА путей в файлах в папок" Icon("%a\AkelPadImage.dll",554)
       {
     -"Извлечь все пути во всех файлах в папке текущего файла" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%d" "3" "0" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Извлечь все пути во всех файлах в папке текущего файла (имеющие русские символы)" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%d" "1" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Извлечь все пути во всех файлах в папке текущего файла (имеющие пробелы)" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%d" "3" "2" "0"`) Icon("%a\AkelPadImage.dll",554)
     -"Проверка путей во всех файлах в папке текущего файла" Call("Scripts::Main", 1, "getPathScanFolder.vbs", `"%d" "3" "5+" "0"`) Icon("%a\AkelPadImage.dll",554)
       }
[/hide]


 
Andrey_AДата: Пятница, 08.06.2018, 17:28 | Сообщение № 3
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6420
Награды: 98
Репутация: 87
Аверин Андрей
В последней версии 2-х файлов добавлено
' (если первый символ ">" перед цифрой, то используется 2-й метод обработки путей)
Код

' (если первый символ ">" перед цифрой, то используется 2-й метод обработки путей)
' 0 - записываются все пути
' 1 - записываются пути, имеющие русские символы
' 2 - записываются пути, имеющие пробелы
' 3 - записываются все пути и проверяются на физическое существование (к несуществующим добавляется надпись)
' 4 - записываются только существующие пути
' 5 - записываются только не существующие пути
' (любой 2-й символ в 3-ом параметре означает, что пути будут записываются с относительными путями (символ % не передаётся))
' 0+ - записываются все пути и отображаются с относительными путями


 
c644760Дата: Пятница, 08.06.2018, 18:39 | Сообщение № 4
Рядовой

На сайте с: 10.03.2018
Город: Москва
Сообщений: 8
Награды: 0
Репутация: 0
Обновил оба файла, в результате выполнения скрипта (в случае проверки путей):
Путь существует = пустая строка
Путь не существует = Путь - такого файла не существует
Строка без пути = пустая строка (она не удаляется, как в первой версии скрипта)

Кнопка
Код
-"Извлечь НЕСУЩЕСТВУЮЩИЕ пути" Call("Scripts::Main", 1, "getPath.vbs", `>5`) Icon("%a\AkelPadImage.dll",556)


В тексте:
Код
текст1
текст2
неправильный путь
текст4
правильный путь


Отображается:
Код
пустая строка
пустая строка
путь - такого файла не существует
пустая строка
пустая строка


Сообщение отредактировал c644760 - Пятница, 08.06.2018, 18:55
 
Andrey_AДата: Пятница, 08.06.2018, 19:13 | Сообщение № 5
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6420
Награды: 98
Репутация: 87
Аверин Андрей
c644760, вместо
Код
  Next : GetExistsPathAll = DelLastEmptyLine(gTxt)

вставьте
Код
  Next : GetExistsPathAll = RegExpReplace(gTxt, "(\r\n|\r|\n)+", "$1", 1, 0, 1)

в Functions.vbs в функции GetExistsPathAll
это в самом конце функции

.


 
c644760Дата: Понедельник, 02.07.2018, 20:15 | Сообщение № 6
Рядовой

На сайте с: 10.03.2018
Город: Москва
Сообщений: 8
Награды: 0
Репутация: 0
Благодарю, теперь всё хорошо получается. Только в начале результата работы скрипта первая строка пустая появляется (и в конце тоже одна строка пустая).
Это изменение (Next : GetExistsPathAll) будет в Functions.vbs или нужно самостоятельно добавлять при каждом штатном обновлении Functions.vbs?

Добавлено (02.07.2018, 20:15)
---------------------------------------------
с папками не работает?
Код

"Извлечь ВСЕ папки из выделенного/текста" Call("Scripts::Main", 1, "getPath.vbs", `0 "" 1`) Icon("%a\AkelFiles\Plugs\ico\IF\AkelPadImage.dll",552)

Код

"Извлечь ВСЕ папки из выделенного/текста" Call("Scripts::Main", 1, "getPath.vbs", `>0 "" 1`) Icon("%a\AkelFiles\Plugs\ico\IF\AkelPadImage.dll",552)


Цитата
://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://:
В 3-ем параметре Вы указали "1"
т.е. желание использовать фильтр №1 для извлечения путей, но:
Фильтр №1 не имеет значений
Для использования фильтра необходимо в открытом файле
\AkelFiles\Plugs\Scripts\getPath.ini
произвести его настройку ''под себя''...
Если Вы не знаете как это сделать,
прочитайте информацию в комментариях скрипта
\AkelFiles\Plugs\Scripts\getPath.vbs
://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://://:


Сообщение отредактировал c644760 - Понедельник, 02.07.2018, 20:20
 
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » getPath.vbs - Извлекает пути файлов из выделенного текста (Извлечение объектов)
  • Страница 1 из 1
  • 1
Поиск:

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

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


Перейти на сайт Недвижимость сточи