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

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

' Версия: 1.8 (08.09.2012 - 24.12.2014)
Скачать OpenAllFiles



 
Andrey_AДата: Воскресенье, 09.09.2012, 12:45 | Сообщение № 2
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
Примеры использования:

Code
-"Открть все файлы папки текущего файла" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "%f"`)
' -"Открыть ве файлы папки Scripts" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "%a\AkelFiles\Plugs\Scripts"`)
  -"Открыть все файлы папки Language" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "%COMMANDER_PATH%\Language"`)
  -"Открыть все файлы списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "C:\MyFiles\List.txt`)
  -"Открыть все файлы выделенного списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"2"`)
  -"Открыть только .txt файлы папки" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "%f" "+;txt;"`)
  -"Открыть все файлы списка, кроме .txt" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "C:\MyFiles\List.txt" "-;txt;"``)
  -"Открыть только .txt и .ini  файлы выделенного списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"2" "" "+ini;txt;"`)


 
Andrey_AДата: Среда, 12.09.2012, 19:15 | Сообщение № 3
Генералиссимус

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

Code
-"Открыть все файлы папки    Ctrl + Shift + F" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "%f"`) Icon("%a\AkelPadImage.dll",325)
-"Открыть все файлы папки (диалог выбора папки)" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "?"`) Icon("%a\AkelPadImage.dll",325)
-"Открыть все файлы выделенной папки" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" "#"`) Icon("%a\AkelPadImage.dll",325)
-"Открыть все файлы пути списка из буфера" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"0" ">"`) Icon("%a\AkelPadImage.dll",325)
     SEPARATOR
-"Открыть все файлы списка (диалог выбора списка)" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "?"`) Icon("%a\AkelPadImage.dll",1079)
-"Открыть все файлы выделенного пути списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "#"`) Icon("%a\AkelPadImage.dll",1079)
-"Открыть все файлы списка (путь из буфера)" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" ">"`) Icon("%a\AkelPadImage.dll",1079)
     SEPARATOR
-"Открыть все файлы выделенного списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"2"`) Icon("%a\AkelPadImage.dll",1080)
-"Открыть все файлы списка из буфера" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"3"`) Icon("%a\AkelPadImage.dll",1081)


 
GGG8Дата: Среда, 07.11.2012, 16:24 | Сообщение № 4
Подполковник

На сайте с: 28.02.2012
Город: Владимир
Сообщений: 114
Награды: 2
Репутация: 4
Andrey_A, в скрипте открывается диалог записи файла, а не открытия
 
Andrey_AДата: Среда, 07.11.2012, 18:52 | Сообщение № 5
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
Quote (GGG8)
в скрипте открывается диалог записи файла, а не открытия

поправил, заодно и FunctionsDialog.vbs


 
Andrey_AДата: Четверг, 06.02.2014, 08:56 | Сообщение № 6
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
Ещё пару примеров:

Код
-"Открыть все файлы из файл списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "C:\text.txt"`) Icon("%a\AkelPadImage.dll",103)
-"Открыть все файлы из файл списка" Call("Scripts::Main", 1, "OpenAllFiles.vbs", `"1" "%COMMANDER_PATH%\Files\text.txt"`) Icon("%a\AkelPadImage.dll",103)


Файл список может содержать относительные пути:

text.txt

Код
%COMMANDER_PATH%\Files\Help\TCInfo\Programs.tcinfo
%COMMANDER_PATH%\Files\Help\TCInfo\Utilities.tcinfo
%COMMANDER_PATH%\Files\Help\TCInfo\WlxPlugins.tcinfo


 
shveicarДата: Четверг, 06.02.2014, 13:11 | Сообщение № 7
Генерал-лейтенант

На сайте с: 18.05.2012
Город: Санкт-Петербург
Сообщений: 562
Награды: 10
Репутация: 23
Попробовал открыть файлы из файла списка - выскакивает ошибка

Там в коде ссылка, - может это и не нравиться.


Сообщение отредактировал shveicar - Четверг, 06.02.2014, 13:22
 
Andrey_AДата: Четверг, 06.02.2014, 13:19 | Сообщение № 8
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7167
Награды: 139
Репутация: 125
Аверин Андрей
Цитата shveicar ()
выскакивает ошибка

shveicar, Я не экстрасенс)

1. Кнопка которой запускался скрипт
2. Пример списка
3. Скрин ошибки или текст

----------------------
Добавлено : выложил архивом - сайт бьёт код.


 
shveicarДата: Четверг, 06.02.2014, 13:32 | Сообщение № 9
Генерал-лейтенант

На сайте с: 18.05.2012
Город: Санкт-Петербург
Сообщений: 562
Награды: 10
Репутация: 23
Спасибо, всё обновил и теперь все работает..
 
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » OpenAllFiles.vbs - Универсальное открытие всех файлов (Открытие файлов)
  • Страница 1 из 1
  • 1
Поиск:

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