Всё сразу становится обозримо (некрасиво).sa писал(а):Какие аргументы против?
Быстрый переход к заданному расширению
Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik
Последнюю поставил. Последний вариант вроде заработал. Потом попробую приспособить это дело всё же к askparam, чтобы был список предопределённых расширений, которые можно было бы быстро выбирать.Версия ТСFS2 у тебя какая?
Добавлено спустя 4 минуты:
Только окно TC как-то странно себя ведёт, на фон куда-то уходит, если такого расширения не оказывается.
Dimsok
Последний релиз или бету? С бетой выше проблемка.
И чем тебя меню не устраивает? Можно создать команду в TCFS2.ini для этих дел. Зато удобнее пользоваться, иконки можно приспособить.
Последний релиз или бету? С бетой выше проблемка.
И чем тебя меню не устраивает? Можно создать команду в TCFS2.ini для этих дел. Зато удобнее пользоваться, иконки можно приспособить.
Вообще-то должно появляться окно "Такие файлы не найдены".Dimsok писал(а):на фон куда-то уходит
Последний раз редактировалось Flasher Вт ноя 22, 2016 17:22, всего редактировалось 1 раз.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Эта годится.
Добавлено спустя 40 минут:
Добавлено спустя 40 минут:
Скриптом можно проверять:Dimsok писал(а):если такого расширения не оказывается
Код: Выделить всё
'===================== VBS =====================
' Перейти к первому файлу с заданным расширением
' Условие: путь запуска - пустой
' Параметр: <расширение>
'================ Путь к TCFS2 =================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
With CreateObject("WScript.Shell")
Set Items = CreateObject("Shell.Application").NameSpace(.CurrentDirectory).Items
Items.Filter 73920, "*." & WScript.Arguments(0)
If Items.Count Then _
.Exec TCFS2 & " /ef msg($0B,0) tcm(524) tcm(521,1) send(@`*.xml`,0) send({ENTER},0) " &_
"eval(send_wait(,findwnd(`TMyListBox`))) tcm(2023) tcm(524) tcm(2050) msg($0B,1) tcm(540)"
End With
Последний раз редактировалось Flasher Вт ноя 22, 2016 19:00, всего редактировалось 2 раза.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Что-то видимо у меня со зрением не так или смотрю не там, но так и не увидел улучшения картинки при отключении проверки активности окна в команде send. Проверял на /ef tcm(2915) send(@.txt,0) send(`{Esc 2}`,0) для TCFS2 (вер. 504) и /ef tcm(2915) send(@.txt,-1) send(`{Esc 2}`,-1) для TCFS2 (вер. 510)
Ладно, не важно, всё равно вариант так себе. Вот новый без всяких окон:
TCFS2.exe /ef "msg($0B,0) tcm(2050) tcm(524) tem(`em_Sel *.ext`) tcm(2053) msg($0B,1) tcm(524)"
em_Sel: SELECTFILES: %A
TCFS2.exe /ef "msg($0B,0) tcm(2050) tcm(524) tem(`em_Sel *.ext`) tcm(2053) msg($0B,1) tcm(524)"
em_Sel: SELECTFILES: %A
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Не надо спрашивать. Раз прямого указания не было, значит, и подтверждения твоих слов по умолчанию нет.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.