Форум

Вторник, 03.12.2024, 02:27

Приветствую Вас Гость | RSS

[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 219 из 278 « 1 2 … 217 218 219 220 221 … 277 278 »
Модератор форума: Andrey_A, simup, ХарВик, chip642

TCIMG - Мощное средство автоматизации (Утилиты для системы и Total Commander)

TCIMG - Мощное средство автоматизации

Andrey_A

Дата: Вторник, 12.06.2012, 04:41 | Сообщение № 1

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

TCIMG

Дата выпуска: 21.10.2024
Версия: 34.9
Автор: Averin Andrey
Скачать: Страница обновления TCIMG
Скачать 2 : Ссылка обновления TCIMG
Справка: TCIMG ONLINE

'=============================== Спасибо ================================
Выражаю искреннюю благодарность всем, кто напрямую или косвенно помогал и повлиял на развитие проекта, отдельное спасибо: Loopback, LonerD, GGG8, ХарВик, shveicar, Yashied, asmadeus, amel27, madmasles, CreatoR, Ward, thesittingbull, Metchnik, InnI, wakillon, Yaroslav, Abel11, chip642, Deus-V, inververs, sims, BezDNaU, Veosys, getaumy, UEZ, homer77, wpitty, JKT, vakula, boriska, =BD=, G.Sandler, Mrakobes, mopodede, Skif_off, wpitty, Rustamer, wpitty, Mchoff, iifoks447, Andarin, oshizelly, Egorkaru, coherent, Атос, yug78, vanhallen, mopodede, Афи, Axel, addhaloka, Matros, Finn, Aleks431, Zmy, Паразит, TarasBY, Userrr, Jury Abel', VikTor1985, HA3APET, alexxxxx, konuk2007, Lupo73, Prog@ndy, Avada, monoceres, авторам библиотеки MediaInfo, авторам Carl Worth и Behdad Esfahbod библиотек Cairo, авторам библиотеки librhash, авторам библиотеки Bass, авторам библиотеки FFmpeg, автору Zenden за утилиту ImgUpload, Slava10779, maK, zep, Rako1, zzzten, Nuker-Hoax, regist123, shusler, sibirnik, Romario, Lord_NEVR, Ли Чжицзюнь (李志军), ruizone (瑞), alexostrov, CaptainFlint, Thomasmolover, eukalyptus, Tuape, Helpmister, NIKZZZZ, smit0966, rediffusion, zybrevl, Rioran, I95, Vimann, And000010, VasRoman, MonarchLFV, jktgeorge, Mario Arhivario, Songbird, Malkey, Placetoload, ziabriev, Antonij72, weaponx, Angelfuze, Pendelgrast, smit0966, Jacob, Rakosvist, Karbucho, Karolinka69, SLIM, ogenry, VladMo, jentoso, Kindom, Megakrok, Altruumann, vaskamy, Alizadombej, Krasovskii, Kurolesova, Svetka99, AkulaBig, Proudhawk, Yymn7, vruzin, Xprajs, Danyfirex, Party Hu, Lost Zombie, derrikF, Karabush, aorist, o2candoo, goog0le, P8gonyajlo, destiny child, Alex Penguin, Broken_Brain, rupinskiy, FedorLashchenko, destiny_child, JenTOSO, моим близким друзьям и родственникам: одним спасибо, что поддерживали, другим - за то, что не мешали!
'=======================================================================
TCIMG - утилита для вызова различных команд Total Commander и выполнения дополнительных действий.
Мощное средство для расширения функциональности Total Commander и других программ.
Направлена на автоматизацию монотонных действий, связанных с файловыми, системными, программными, оконными операциями.
Полностью портабельна, т.е. не требует установки и не вносит в реестр или куда-либо ещё дополнительную информацию.
Утилита представляет из себя скомпилированный AutoIt3-скрипт.
Утилиту разрешено распространять только с указанием сайта поддержки: http://tc-image.3dn.ru

Кнопки для TCIMG

Регулярные выражения

Control Viewer - Просмотр информации элементов окна

Страница обновления TCIMG

Как правильно обновлять утилиту TCIMG?

В справке TCIMG.chm более 16.450 примеров применения.

Актуальная версия (бета версии) в последних сообщениях темы

Тема развития справки утилиты

Расширение функционала TCIMG

Помощь и советы ПОДКЛЮЧЕНИЕ ПРОГРАММ и СКРИПТОВ

Для запросов кнопок тема ЗАКАЗ КНОПОК

Дополнительное обсуждение TCIMG на forum.ru-board

Группа в Telegram

Сборки программ, в которых участвует утилита TCIMG, в них так же можно увидеть много интересных примеров:
• AkelPad Image - сборка текстового редактора AkelPad (автор Andrey_A)
• TC IMAGE - сборка файлового менеджера Total Commander (автор Andrey_A)
• TC VIM - сборка файлового менеджера Total Commander (автор Matros)
• TC Universal Edition - сборка файлового менеджера Total Commander (авторы Yaroslav & asmadeus)
• TC Hot-Shot - сборка файлового менеджера Total Commander (автор ice_daemon)
• TC Titan Portable - сборка файлового менеджера Total Commander (автор pcDenPro)
• TC AkulaBig - сборка файлового менеджера Total Commander (автор AkulaBig)
• TCnative - сборка файлового менеджера Total Commander (автор ziabriev)

MonarchLFV

Дата: Среда, 04.12.2019, 05:55 | Сообщение № 3271

Майор

На сайте с: 04.06.2015

Сообщений: 81

Награды: 1

Репутация: 3

Andrey_A,

Цитата

Добавил: по нажатию "ПРОБЕЛА" в полигоне идёт запись в переменные GLOBALXYPOS1, GLOBALXYPOS2, ...

Не совсем то, что нужно. Получается, я могу получить только промежуточные данные (только коэффициент масштаба) в самом конце и один раз, дальше сессия заканчивается:

Код

exect=$var_ir=InputBox('Запрос','Введите~~известный~~размер~~по~~диагонали~~(в~~метрах)') xypos=1 GLOBALXYPOS<a> exect=$var_k=$var_ir/GLOBALXYPOS1<7>||_ViewValues($var_k)

и не могу проводить дальнейшие измерения, тем более когда не один размер нужно получить, а десяток например.

И рамкой не очень удобно измерять, отрезком было бы лучше, а так только диагональю приходится делать измерения. Кстати, в коне подсказки нет диагонального размера (гипотенузы).
Если не получится сделать отрезком, то возможно ли просто в самом начале сделать запрос (как в коде выше) на известный размер по диагонали (для получения масштаба, в нашем случае - запрос на ввод значания "2"). А далее работа команды xypos и в окне подсказки, где отображаются все координаты, добавить еще строку с пересчитанными размерами (по X, по Y и Диагональ). Формула будет простая: =$var_k*Х.
Тогда отпадет надобность в пробеле, все нужные размеры уже пересчитаны и отображаются в подсказке и есть возможность выполнять такие обмеры многократно за сессию, просто перемещая рамку.

Сообщение отредактировал MonarchLFV - Среда, 04.12.2019, 08:15

asmadeus

Дата: Среда, 04.12.2019, 08:53 | Сообщение № 3272

Генералиссимус
За 100 сообщений на форуме!

За 200 сообщений на форуме! Активный участник!

За 300 сообщений на форуме! Заслуженный участник!

На сайте с: 14.12.2012
Город: Кривой Рог

Сообщений: 1375

Награды: 29

Репутация: 32

Цитата Andrey_A (

)

ЖЕЛАТЕЛЬНО ПРОВЕРИТЬ ВСЕМ

Привет!
У меня "-1" на отсутствующих DLL для утилиты (докачаю).
Но вот "-1" для MediaInfo - непорядок, он у меня есть, просто по другому пути (в папке одноименного плагина)

Код

[DLL]
MediaInfo=%COMMANDER_PATH%\Files_VOG\Plugins\Wdx\TCMediaInfo\MediaInfo.dll

На скрине тоже смотрю у тебя пути не к папке утилиты, но все со значением "1"

sibirnik

Дата: Среда, 04.12.2019, 12:02 | Сообщение № 3273

Генерал-лейтенант
За 100 сообщений на форуме!

На сайте с: 27.08.2014

Сообщений: 742

Награды: 26

Репутация: 10

Andrey_A,
Проверил DLL - докладываю:
Также как и у asmadeus был, но "-1"
MediaInfo=%COMMANDER_PATH%\TC_MInst\software\Media\MediaInfo\MediaInfo.dll
Этого вообще не было flash10c.ocx.
Скачал оба проблемных с указанного вами сайта, закинул в папку DLL, прописал пути:
MediaInfo=%COMMANDER_PATH%\Files\DLL\MediaInfo.dll
Flash=%COMMANDER_PATH%\Files\DLL\flash10c.ocx
Теперь ОК!

Andrey_A

Дата: Среда, 04.12.2019, 12:37 | Сообщение № 3274

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

Цитата asmadeus (

)

Но вот "-1" для MediaInfo - непорядок, он у меня есть, просто по другому пути (в папке одноименного плагина)

Если в плагинах, то он тоже у меня есть, только старой версии, но путь такой

Код

%COMMANDER_PATH%\Plugins\Wdx\TCMediaInfo\MediaInfo.dll

Цитата MonarchLFV (

)

Не совсем то, что нужно

Ну тогда оставим затею на потом, я пока не вижу как её проще реализовать, возможно когда-нибудь идея придёт...

Lord_NEVR

Дата: Среда, 04.12.2019, 12:49 | Сообщение № 3275

Полковник
За 100 сообщений на форуме!

На сайте с: 24.06.2016
Город: Калининград

Сообщений: 212

Награды: 5

Репутация: 0

Сборка Matros`а.

SQLite3|-1|D:\TOTALS\TCVIM38\Utilities\Images\SQLite3\sqlite3.dll
Flash|-1|D:\TOTALS\TCVIM38\Utilities\Images\Flash\Flash10c.ocx

Сообщение отредактировал Lord_NEVR - Среда, 04.12.2019, 12:50

Andrey_A

Дата: Четверг, 05.12.2019, 02:43 | Сообщение № 3276

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

Из темы "Расширение функционала" http://tc-image.3dn.ru/forum/5-964-23044-16-1573893226

Цитата shveicar (

)

можно добавить для режима i400, получения наибольшего значение большей стороны для списка изображений (выбор между шириной и высотой) и такой же вариант, для наименьшего значения меньшей стороны (аналог и , но только со списками).

Реализовано: Тестовая версия TCIMG 267_b7, в версии TCIMG 26.6 замените соответствующие файл(ы)

Последние описания:
http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/add/add_info.htm
http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/com_infos.htm
http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/com_presww.htm
http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/com_xypos.htm

[helpquote]
[±] Исправлена ошибка в отображении переменных в GLOBALEXECT<$var_array>
[+] Оптимизирован функционал параметра info (см. Дополнение №10#n98)
- в режимах "x98", ..., "x101" исправлена ошибка
- в режим "i400" добавлены режимы 21, 22, 23, 24
[+] Оптимизирована команда infos
- в режим "3||15" (PDF) добавлена дополнительная информация: Linearized
--- ускорено получение информации из больших файлов
- добавлены режимы "infos=6||1", "infos=7||1"
[+] В UDF функцию _ArrayDisplay() добавлены возможность устанавливать различные значки для заголовка колонок Header,N
[+] Добавлены новые команды
"xypos"
- добавлены глобальные переменные GLOBALXYPOS, GLOBALXYPOS1, GLOBALXYPOS2, ...
- в TCIMG_Russian.lng в ключ Translite6 добавлено описание
[±] Исправлена ошибка в команде infow
[+] Оптимизирована команда watch
- в секцию [Watch] добавлен ключ ColorTextPause
- добавлен параметр delbut<>
[+] Добавлен новый метод запуска команд относительно нажатых/отжатых клавиш после запуска
<PRESSW=...> ... <PRESSW=...> ... <PRESWEND>
[/helpquote]

Последние примеры:

Код

"exect=$var_handle=WinClose('[CLASS:TTOTAL_CMD]')||WinWaitClose(Eval('var_handle')) infbx=||TC~~Закрыт||3||150||40" - закрытие Total Commander с ожиданием закрытия окна
"global cmdbt=''''?PDFInfo?''~~''%P%N''''||std<8> GLOBALCMDBT<a>" - получить информацию PDF файла под курсором с помощью утилиты PDFInfo

"infos=6||1" - таблица форматов стандартизованных размеров бумажного листа

"xypos=1 GLOBALXYPOS<a>" - получение координат выбранной области
"xypos=0 GLOBALXYPOS<a>" - получение координат выбранной области (без zoom)

"xypos=0 GLOBALXYPOS<a> GLOBALXYPOS1<a> GLOBALXYPOS2<a>" - получение координат выбранных областей (при нажатии ПРОБЕЛА)
"xypos=0 GLOBALXYPOS<a> GLOBALXYPOS1<a> GLOBALXYPOS2<a> exect=$var_i=Round(GLOBALXYPOS1<7>*2/59,2)||_ViewValues($var_i)" - пример получения координат выбранных областей (при нажатии ПРОБЕЛА) и вычисление данных

"watch=0||countdown<20s>||delbut<1>" - запустить секундомер с обратным отсчётом на 20 секунд (окно таймера без дополнительных кнопок)
"watch=3||delbut<2> pause=3s watch=24" - запустить секундомер, через 3 секунды остановить (окно таймера без кнопки для буфера обмена)

"slist=@C:\Test.bar blist=%WL barjn=$GLOBALSLIST+$GLOBALBLIST||"%t//0//New"||upd<3>" - к Test.bar добавить содержимое выделенных bar файлов и сохранить новый файл в другой панели с именем New
"slist=@C:\Test.bar blist=%WL barjn=$GLOBALBLIST+$GLOBALSLIST||"%t//0//New"||upd<3>" - объединить выделенные bar файлы, добавив в конец содержимое Test.bar и сохранить новый файл в другой панели с именем New

"slist=[tc=SL] GLOBALSLIST<a> barjn=$GLOBALSLIST||"%t//0//New"||upd<3>" - объединить выделенные bar файлы обеих панелей и сохранить новый файл в другой панели с именем New

"infos=7||1" - проверить существование DLL библиотек, используемых в TCIMG (0 - нет в системе, -1 - путь не найден)

"<PRESW=10,11,53> infbx=||SHIFT+CTRL+S||3||150||40 <PRESW=10,11,44> infbx=||SHIFT+CTRL+D||3||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT+CTRL+D||3||220||40 <PRESW=20> infbx=||ПРОБЕЛ||3||100||40 <PRESW=12> infbx=||ALT||3||100||40 <NOPRESW> infbx=||ОТЖАТИЕ~~ALT||3||150||40 <PRESW=0D> infbx=||ENTER||3||100||40 <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXIT: <PRESWEND>" - пример работы команды <PRESW> [presww]
"<PRESW=10,11,53> infbx=||SHIFT+CTRL+S||3||150||40 <PRESW=10,11,44> infbx=||SHIFT+CTRL+D||3||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT+CTRL+D||3||220||40 <PRESW=20> infbx=||ПРОБЕЛ||3||100||40 <PRESW=12> infbx=||ALT||3||100||40 <NOPRESW> infbx=||ОТЖАТИЕ~~ALT||3||150||40 <PRESW=0D> infbx=||ENTER||3||100||40 <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXITPRESW: <PRESWEND> infbx=||Завершена~~работа~~PRESW.~~Выполняются~~последущие~~команды||3||300||65" - пример работы команды <PRESW> [presww]

"slist=[tc=AM] sends=<info=i400$GLOBALSLIST|1,2,3,4,21,22,23,24>??-4 GLOBALSENDS<a>" - для выделенных изображений получить заданные данные ширины и высоты

MonarchLFV

Дата: Четверг, 05.12.2019, 08:54 | Сообщение № 3277

Майор

На сайте с: 04.06.2015

Сообщений: 81

Награды: 1

Репутация: 3

Andrey_A,
Как-то у меня неправильно работает часть кода:

Код

<PRESW=10,11,44> infbx=||SHIFT+CTRL+D||1||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT+CTRL+D||1||220||40

(пример работы команды <PRESW>)
даже если нажать и держать нажатыми, то все равно следом выскакивает окно "ОТЖАТИЕ...", это проявляется на любых клавишах и комбинациях.
PS. команды в справке и в примере отличаются <NOPRESW> и <NOPRESSW>, также как и <PRESW> и <PRESSW>. Лишняя "S" или наоборот "SS" должно быть.

Сообщение отредактировал MonarchLFV - Четверг, 05.12.2019, 09:18

Andrey_A

Дата: Четверг, 05.12.2019, 19:35 | Сообщение № 3278

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

MonarchLFV, подправил.

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

TCIMG 26.7 от 05.12.2019

Скачать TCIMG 26.7

Код

"renms=%UL||&&.*\K_\d+!!" - в базовых именах выделенных объектов удалить в конце счетчик типа _01, _02...
"renms=%UL||&&.*\K$\d+$!!" - в базовых именах выделенных объектов удалить в конце счетчик типа (01), (02)...
"bufsr=^^||formt<63,54>||&&.*\K~~!!:" - удалить в буфере обмена пустые строки, начальные и конечные пробелы и заменить последний пробел на двоеточие
"marks=1||test<1n!!$\d+$$> exect=$var_n=MsgBox(4+32+262144,'Сообщение','Удалить~~файлы~~с~~счётчиком~~(№)~~в~~конце~~имён?')||$var_i=$var_n=7?_Exit():1 delss=[tc=AL]||1||upd<1>" - удалить файлы с счётчиком (№) в конце имён
"slist=%WL||#Z@CRLFC:\Test.bar barjn=$GLOBALSLIST||"%p//1//USER.BAR"" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER" (кнопки Test.bar в конце USER.bar)
"slist=%WL||#AC:\Test.bar barjn=$GLOBALSLIST||"%p//1//USER.BAR"@CRLF" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER" (кнопки Test.bar в начале USER.bar)
"sends=USER.BAR slist=%WL||#Z@CRLFC:\Test.bar||<dellist=$GLOBALSENDS|5> barjn=$GLOBALSLIST||"%p//1//USER.BAR"" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER" (исключая из списка выделенного файл с именем USER.BAR, кнопки Test.bar в конце общего файла)
"sends=USER.BAR slist=%WL||#AC:\Test.bar@CRLF||<dellist=$GLOBALSENDS|5> barjn=$GLOBALSLIST||"%p//1//USER.BAR"" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER" (исключая из списка выделенного файл с именем USER.BAR, кнопки Test.bar в начале общего файла)
"slist=[tc=AF-1f] <IF> <info=t51$GLOBALSLIST[1]|USER.BAR> = 1 <THEN> Exit() <ELSE> slist=%WL||#Z@CRLFC:\Test.bar barjn=$GLOBALSLIST||"%p//1//USER.BAR" <ENDIF>" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER", выход из программы, если в активной панели уже существует файл USER.BAR (кнопки Test.bar в конце USER.bar)
"slist=[tc=AF-1f] <IF> <info=t51$GLOBALSLIST[1]|USER.BAR> = 1 <THEN> Exit() <ELSE> slist=%WL||#AC:\Test.bar barjn=$GLOBALSLIST||"%p//1//USER.BAR"@CRLF <ENDIF>" - склеить C:\Test.bar с выделенными *.bar, с сохранением результирующего *.bar в активную панель с именем"USER", выход из программы, если в активной панели уже существует файл USER.BAR (кнопки Test.bar в начале USER.bar)
"bufsr=&&\[(.*?)\]|$(.*?)$!!||formt<54,56>" - в буфере обмена построчно удалить круглые и квадратные скобки вместе с содержимым
"bufsr=&&\''[^\'']*\''!!||formt<54,56>" - в буфере обмена построчно удалить кавычки вместе с содержимым
"bufsr=^^||formt<0!!(?m)\[(.*?)\]|$(.*?)$>||formt<54,56,63,1>" - извлечь из буфера обмена содержимое круглых и квадратных скобок в столбец и удалить дубликаты строк
"bufsr=^^||formt<0!!(?m)(?:(?<=$).+?(?=$)|(?<=\[).+?(?=\]))>" - извлечь из буфера обмена содержимое круглых и квадратных скобок в столбец.
"bufsr=^^||formt<0!!(?m)$(.*?)$>" - извлечь из буфера обмена содержимое круглых скобок в столбец
"bufsr=^^||formt<0!!(?m)\[(.*?)\]>" - извлечь из буфера обмена содержимое квадратных скобок в столбец
"bufsr=?T|p2#2|e,1:-1!!#G8" - в буфере обмена в нечетных строках удалить все пробелы
"rends=%P%N!!-1||?E|1:-1|2:3 GLOBALRENDS<a>" - в данных файла под курсором поменять местами 1-ю и последнюю строку, 2-ю и 3-ю
"bufsr=?T|c>6,1!!0!!^(.)!!" - удалить первый символ в первой строке если в строке больше 6 символов
"bufsr=?T|p2#1|a,1:-1!!@CRLF" - вставить пустые строки начиная со второй
"slist=[tc=SM] barjn=$GLOBALSLIST||"%p//0//Name"" - склеить выделенные BAR файлы в обеих файловых панелях TC (разделитель пустая кнопка), создать один файл в активной панели именем Name
"alist=%UL slist=%UL||test<1n!!(\d{4}).(\d{2}).(\d{2})> renms=$GLOBALSLIST||&&(\d{4}).(\d{2}).(\d{2})!!date<YYYY.MM.DD> blist=$GLOBALALIST||<dellist=$GLOBALSLIST|2> renms=$GLOBALBLIST||^^[info=s38]_||upd<1>" - если в базовых именах выделенных объектов имеется дата вида YYYY.MM.DD, то заменить её на текущую, если дата отсутствует, то добавить дату в начало имени (через тире)
"alist=%UL slist=%UL||test<1n!!(\d{4}).(\d{2}).(\d{2})> renms=$GLOBALSLIST||&&(\d{4}).(\d{2}).(\d{2})!!date<YYYY.MM.DD> blist=$GLOBALALIST||<dellist=$GLOBALSLIST|2> renms=$GLOBALBLIST||$$_[info=s38]||upd<1>" - если в базовых именах выделенных объектов имеется дата вида YYYY.MM.DD, то заменить её на текущую, если дата отсутствует, то добавить дату в конец имени
"alist=%UL slist=%UL||test<1n!!(\d{4}).(\d{2}).(\d{2})> renms=$GLOBALSLIST||&&(\d{4}).(\d{2}).(\d{2})!!date<YYYY.MM.DD> blist=$GLOBALALIST||<dellist=$GLOBALSLIST|2> renms=$GLOBALBLIST||$$~~[info=s38]||upd<1>" - если в базовых именах выделенных объектов имеется дата вида YYYY.MM.DD, то заменить её на текущую, если дата отсутствует, то добавить дату в конец имени
"macro=$f212\ShortcutsBarMenu.txt||0" - создать на активной панели инструментов панель в виде меню из *.lnk открытой папки в другой файловой панели (ввод имени панели в диалоговом окне)
"exect=$var_handle=WinClose('[CLASS:TTOTAL_CMD]')||WinWaitClose(Eval('var_handle')) infbx=||TC~~Закрыт||3||150||40" - закрытие Total Commander с ожиданием закрытия окна
"global cmdbt=''''?PDFInfo?''~~''%P%N''''||std<8> GLOBALCMDBT<a>" - получить информацию PDF файла под курсором с помощью утилиты PDFInfo

"infos=6||1" - таблица форматов стандартизованных размеров бумажного листа

"xypos=1 GLOBALXYPOS<a>" - получение координат выбранной области
"xypos=0 GLOBALXYPOS<a>" - получение координат выбранной области (без zoom)

"xypos=0 GLOBALXYPOS<a> GLOBALXYPOS1<a> GLOBALXYPOS2<a>" - получение координат выбранных областей (при нажатии ПРОБЕЛА)
"xypos=0 GLOBALXYPOS<a> GLOBALXYPOS1<a> GLOBALXYPOS2<a> exect=$var_i=Round(GLOBALXYPOS1<7>*2/59,2)||_ViewValues($var_i)" - пример получения координат выбранных областей (при нажатии ПРОБЕЛА) и вычисление данных

"watch=0||countdown<20s>||delbut<1>" - запустить секундомер с обратным отсчётом на 20 секунд (окно таймера без дополнительных кнопок)
"watch=3||delbut<2> pause=3s watch=24" - запустить секундомер, через 3 секунды остановить (окно таймера без кнопки для буфера обмена)

"slist=@C:\Test.bar blist=%WL barjn=$GLOBALSLIST+$GLOBALBLIST||"%t//0//New"||upd<3>" - к Test.bar добавить содержимое выделенных bar файлов и сохранить новый файл в другой панели с именем New
"slist=@C:\Test.bar blist=%WL barjn=$GLOBALBLIST+$GLOBALSLIST||"%t//0//New"||upd<3>" - объединить выделенные bar файлы, добавив в конец содержимое Test.bar и сохранить новый файл в другой панели с именем New

"slist=[tc=SL] GLOBALSLIST<a> barjn=$GLOBALSLIST||"%t//0//New"||upd<3>" - объединить выделенные bar файлы обеих панелей и сохранить новый файл в другой панели с именем New

"infos=7||1" - проверить существование DLL библиотек, используемых в TCIMG (0 - нет в системе, -1 - путь не найден)

"<PRESW=10,11,53> infbx=||SHIFT+CTRL+S||3||150||40 <PRESW=10,11,44> infbx=||SHIFT+CTRL+D||3||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT+CTRL+D||3||220||40 <PRESW=20> infbx=||ПРОБЕЛ||3||100||40 <PRESW=12> infbx=||ALT||3||100||40 <NOPRESW> infbx=||ОТЖАТИЕ~~ALT||3||150||40 <PRESW=0D> infbx=||ENTER||3||100||40 <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXIT: <PRESWEND>" - пример работы команды <PRESW> [presww]
"<PRESW=10,11,53> infbx=||SHIFT+CTRL+S||3||150||40 <PRESW=10,11,44> infbx=||SHIFT+CTRL+D||3||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT+CTRL+D||3||220||40 <PRESW=20> infbx=||ПРОБЕЛ||3||100||40 <PRESW=12> infbx=||ALT||3||100||40 <NOPRESW> infbx=||ОТЖАТИЕ~~ALT||3||150||40 <PRESW=0D> infbx=||ENTER||3||100||40 <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXITPRESW: <PRESWEND> infbx=||Завершена~~работа~~PRESW.~~Выполняются~~последующие~~команды||3||300||65" - пример работы команды <PRESW> [presww]
"<PRESW=10> infbx=||SHIFT||3||150||40 <NOPRESW> infbx=||ОТЖАТИЕ~~SHIFT||3||220||40 <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXIT: <PRESWEND>" - пример работы команды <PRESW> [presww]
"<PRESW=12> exect=$var_i+=1||ToolTip('Нажатие~~ALT~~'&$var_i,5,5) <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXIT: <PRESWEND>" - пример работы команды <PRESW> - количество нажатий в подсказке [presww]
"<PRESW=12> exect=$var_i+=1||ToolTip('Нажатие~~ALT~~'&$var_i,5,5)+Sleep(99) <PRESW=1B> infbx=||ESC~~ВЫХОД||3||150||40 :EXIT: <PRESWEND>" - пример работы команды <PRESW> - количество нажатий в подсказке с заданной задержкой между нажатиями [presww]

"slist=[tc=AM] sends=<info=i400$GLOBALSLIST|1,2,3,4,21,22,23,24>??-4 GLOBALSENDS<a>" - для выделенных изображений получить заданные данные ширины и высоты

MonarchLFV

Дата: Пятница, 06.12.2019, 03:43 | Сообщение № 3279

Майор

На сайте с: 04.06.2015

Сообщений: 81

Награды: 1

Репутация: 3

Andrey_A,
Сейчас PRESW не совсем верно отрабатывает, если в коде одновременно встрачаются <PRESW=12,04> и <PRESW=04>, то при нажатии Alt+средняя кнопка мыши вызываются действия обеих команд одновременно, как пример, написал кнопку экранной линейки:

Код

<PRESW=12,04> exect=$var_x1=MouseGetPos(0) exect=$var_y1=MouseGetPos(1) infbx=||Начало~~известного~~отрезка||1||250||40 <NOPRESW> exect=$var_x2=MouseGetPos(0) exect=$var_y2=MouseGetPos(1) infbx=||Конец~~известного~~отрезка||1||250||40 exect=$var_otr=sqrt(($var_x1-$var_x2)^2+($var_y1-$var_y2)^2) exect=$var_ir=InputBox('Запрос','Введите~~известный~~размер~~данного~~отрезка~~(в~~мм)') <PRESW=04> exect=$var_xi1=MouseGetPos(0) exect=$var_yi1=MouseGetPos(1) infbx=||Начало||1||150||40 <NOPRESW> exect=$var_xi2=MouseGetPos(0) exect=$var_yi2=MouseGetPos(1) infbx=||Конец||1||220||40 exect=$var_otri=sqrt(($var_xi1-$var_xi2)^2+($var_yi1-$var_yi2)^2)*($var_ir/$var_otr) exect=MsgBox(4096,'Результат','Длина~~отрезка,~~мм:~~~~$var_otri',3) <PRESW=1B> infbx=||ESC~~ВЫХОД||1||150||40 :EXIT: <PRESWEND>

Andrey_A

Дата: Пятница, 06.12.2019, 04:24 | Сообщение № 3280

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

Цитата MonarchLFV (

)

Сейчас PRESW не совсем верно отрабатывает

Она отрабатывает верно, об этом написано в справке:
[helpquote]• Определение нажатых клавиш работает быстро, поэтому при совпадении значений клавиш в разных , например, <10,11,53> <10,11> <10> будет срабатывать всегда наименьшее.[/helpquote]
Не прописывайте подобных сочетаний, найдите другие...

.

Andrey_A

Дата: Суббота, 07.12.2019, 23:42 | Сообщение № 3281

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

Из темы "Расширение функционала" http://tc-image.3dn.ru/forum/5-964-23054-16-1574325397

Цитата shveicar (

)

подключить для фильтра test<> и файлов с расширением pdf режим проверки на количество страниц

Цитата shveicar (

)

при считывании EXIF информации из выделенных изображений, сделать доп опцию, при которой, в случае пустого значения, оно заменялось на пробел.
Что бы можно было менять пустое значение, на имя типа - no-comment для каждой строки.
А то сейчас, при пустых значениях, ломается обработка в списке

Реализовано: Тестовая версия TCIMG 268_b2, в версии TCIMG 26.7 замените соответствующие файл(ы)

[helpquote]
[±] Исправлена ошибка в команде textx
[+] Оптимизирована команда infos
"3||16"
[+] Оптимизирован функционал параметра info (см. Дополнение №10#i)
- для режимов i20 - i215 добавлен подпараметр
[+] Оптимизирован параметр test<> (см. Дополнение №16)
- добавлены режимы "50m", ... , "54m"
[/helpquote]

Последние примеры:

Код

"sends=@[tc=AA]||\!!\\ nfsis=1||CIM_DataFile~~WHERE~~Name='GLOBALSENDS<1>' GLOBALNFSIS<a>" - получить информацию для файла под курсором

"infos=3||16||advapi32.dll" - получить имена функций заданного DLL файла
"infos=3||16||advapi32.dll||A*" - получить имена функций заданного DLL файла, начинающиеся с символа "A"
"infos=3||16||advapi32.dll||[AB]*" - получить имена функций заданного DLL файла, начинающиеся с символа "A" и "B"
"infos=3||16||%P%N" - получить имена функций DLL файла под курсором

"slist=%WL||##<info=i201::|#//> GLOBALSLIST<a>" - получить комментарий для выделенных изображений, если его нет возвратить символ "#"

"slist=%WL||test<50m!!1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить одностраничные
"slist=%WL||test<51m!!1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить многостраничные (больше 1)
"slist=%WL||test<52m!!5>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых меньше 5 страниц
"slist=%WL||test<53m!!6>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых страниц не равно 6
"slist=%WL||test<54m!!7-15>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых страниц от 7 до 15 включительно
"slist=%WL||test<50m!!-1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить нестандартные - те, у которых пока неправильно определяется количество страниц (такие pdf файлы можно передать для уточнения определения)

-DED-

Дата: Понедельник, 09.12.2019, 13:32 | Сообщение № 3282

Рядовой

На сайте с: 20.02.2017
Город: Москва

Сообщений: 11

Награды: 0

Репутация: 0

Имеются две кнопки:

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\Arhive.vbs
%p "%O" "7z"
D:\TCPU68\WCMICONS_оригинал.dll,286
В активную панель
%COMMANDER_PATH%\Scripts\

-1

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\Arhive.vbs
%t "%O" "7z"
D:\TCPU68\WCMICONS_оригинал.dll,284
В соседнюю панель
%COMMANDER_PATH%\Scripts\

-1

и скрипт с сайта Arhive.vbs

так вот в обоих случаях архив создаётся в неактивной панели.
Раньше было нормально.

Сообщение отредактировал -DED- - Понедельник, 09.12.2019, 13:33

Andrey_A

Дата: Понедельник, 09.12.2019, 14:14 | Сообщение № 3283

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

-DED-, тут не тема скриптов, пишите в теме скрипта... их написано более 1000 и лет пять я ими почти не занимаюсь...

По поводу архивации можно посмотреть:

http://tc-image.3dn.ru/forum/11-635-1

http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/tem/tem_arhives.htm

.

shveicar

Дата: Понедельник, 09.12.2019, 20:51 | Сообщение № 3284

Генерал-лейтенант
Лучший тестер TCIMG

На сайте с: 18.05.2012
Город: Санкт-Петербург

Сообщений: 562

Награды: 10

Репутация: 23

-DED-
Уже давно все пользуются прямым вызовом Winrar прямо через утилиту, минуя всяческие скрипты.
В справке для Start (RAR, 7-ZIP) полно примеров.

Спасибо Андрей за новый функционал.
Для Pdf, пока не попадались "проблемные" файлы, но если будут то сообщу.

Сообщение отредактировал shveicar - Понедельник, 09.12.2019, 20:52

Andrey_A

Дата: Понедельник, 09.12.2019, 23:23 | Сообщение № 3285

Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста

Сообщений: 7187

Награды: 143

Репутация: 125

Аверин Андрей

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_

Тестовая версия TCIMG 268_b4, в версии TCIMG 26.7 замените соответствующие файл(ы)

Последние описания:

http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/add/add_lines.htm
http://tcimg.dreamlair.net/TCIMG_ONLINE/html/html/add/add_test.htm

[helpquote]
[±] Исправлена ошибка в командах textx, patha
[+] Оптимизирована команда infos
"3||16"
[+] Оптимизирован функционал параметра info (см. Дополнение №10#i)
- для режимов i20 - i215 добавлен подпараметр
[+] Оптимизирован параметр test<> (см. Дополнение №16)
- добавлены режимы "50m", ... , "54m"
[+] Добавлено в команду clipi создание недостающих папок при создании файла
[+] Добавлено в команду creat в параметр content подпараметры для преобразования из Дополнения №24
[+] Дополнение №24
- в параметр "#K" добавлены подпараметры "#KCount~Delim1~Mode~Delim2!!String"
- в параметр "?O" добавлены подпараметры "?O|Key|Mode|Dilim"
- добавлены параметры "?i", "#i"
[±] Исправлена ошибка в передаче данных переменным $GLOBAL0XXXX, $GLOBAL1XXXX
[/helpquote]

Последние примеры:

Код

"infos=3||16||advapi32.dll" - получить имена функций заданного DLL файла
"infos=3||16||advapi32.dll||A*" - получить имена функций заданного DLL файла, начинающиеся с символа "A"
"infos=3||16||advapi32.dll||[AB]*" - получить имена функций заданного DLL файла, начинающиеся с символа "A" и "B"
"infos=3||16||%P%N" - получить имена функций DLL файла под курсором

"slist=%WL||##<info=i201::|#//> GLOBALSLIST<a>" - получить комментарий для выделенных изображений, если его нет возвратить символ "#"

"slist=%WL||test<50m!!1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить одностраничные
"slist=%WL||test<51m!!1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить многостраничные (больше 1)
"slist=%WL||test<52m!!5>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых меньше 5 страниц
"slist=%WL||test<53m!!6>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых страниц не равно 6
"slist=%WL||test<54m!!7-15>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить те, у которых страниц от 7 до 15 включительно
"slist=%WL||test<50m!!-1>||progres<> GLOBALSLIST<a>" - из выделенных PDF файлов получить нестандартные - те, у которых пока неправильно определяется количество страниц (такие pdf файлы можно выслать для уточнения значений)

"bends=1,3,5,7??-6,||?V|##|StringRegExpReplace('::','(\d+)(,|$)','Number(${1}+15)${2}') GLOBALBENDS<a>" - прибавить 15 к числам
"bends=1,3,5,7??-6,||?V|##|StringRegExpReplace('::','(\d+)','Number(${1}+15)') GLOBALBENDS<a>" - прибавить 15 к числам
"bends=1,3,5,7??-6, slist=$GLOBALBENDS||##Number(list1<$GLOBALBENDS>+15) GLOBALSLIST<a>" - прибавить 15 к числам
"bends=1,2,3,4??-6, slist=$GLOBALBENDS||##Number(list1<$GLOBALBENDS>+15+:NUMBER:*20) GLOBALSLIST<a>" - выполнить математические вычисления с числами

"creat="%p"||New.txt||content<cliptext**^^Begin@CRLF**$$@CRLFEnd>" - создать в активной панели файл New.txt с содержимым из буфера обмена, вставив в начало слово "Begin", в конец слово "End"

"sends=zzzz||#K3~§~1!!xxx GLOBALSENDS<a>" - продублировать строку и добавить в конец данных
"sends=zzzz||#K3~§~2!!xxx GLOBALSENDS<a>" - продублировать строку и добавить в начало данных

"sends=zzzz||#K3~§~1~###!!xxx GLOBALSENDS<a>" - продублировать строку и добавить в конец данных через разделитель "###"
"sends=zzzz||#K3~§~2~###!!xxx GLOBALSENDS<a>" - продублировать строку и добавить в начало данных через разделитель "###"

"bends=zzzz||?O|L1|1 GLOBALBENDS<a>" - получить строку из TCIMG.ini©Lines из секции [Lines] из ключа L1 и добавить в конец данных
"bends=zzzz||?O|L1|2 GLOBALBENDS<a>" - получить строку из TCIMG.ini©Lines из секции [Lines] из ключа L1 и добавить в начало данных

"bends=zzzz||?O|L1|1|### GLOBALBENDS<a>" - получить строку из TCIMG.ini©Lines из секции [Lines] из ключа L1 и добавить в конец данных через разделитель "###"
"bends=zzzz||?O|L1|2|### GLOBALBENDS<a>" - получить строку из TCIMG.ini©Lines из секции [Lines] из ключа L1 и добавить в начало данных через разделитель "###"

"bends=zzzz||?i|C:\Test.txt|1 GLOBALBENDS<a>" - добавить содержимое файла в конец данных
"bends=zzzz||?i|C:\Test.txt|2 GLOBALBENDS<a>" - добавить содержимое файла в начало данных

"bends=zzzz||?i|C:\Test.txt|1|### GLOBALBENDS<a>" - добавить содержимое файла в конец данных через разделитель "###"
"bends=zzzz||?i|C:\Test.txt|2|### GLOBALBENDS<a>" - добавить содержимое файла в начало данных через разделитель "###"

"slist=%WL bends=zzzz||?i|$GLOBALSLIST|1|### GLOBALBENDS<a>" - добавить список выделенных файлов в конец данных через разделитель "###"
"slist=%WL bends=zzzz||?i|$GLOBALSLIST[1]|2|### GLOBALBENDS<a>" - добавить первый из выделенных файлов в начало данных через разделитель "###"

"bends=zzzz||#i|%WL|1|===|### GLOBALBENDS<a>" - добавить содержимое выделенных файлов в конец данных, разделитель в конец данных через разделитель "###"
"slist=%WL bends=zzzz||#i|$GLOBALSLIST|2 GLOBALBENDS<a>" - добавить содержимое выделенных файлов в начало данных

TCIMG - Мощное средство автоматизации (Утилиты для системы и Total Commander)

Страница 219 из 278
«
1
2
…
217
218
219
220
221
…
277
278
»

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

sha=Math.floor(Math.random() * 35); document.write('<img style="margin-left: 40px; alt="" src="http://tc-image.3dn.ru/Image/Sitelogo/TCImageGroup_'+sha+'.png" border="0" />');