View previous topic :: View next topic |
Author |
Message |
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 13:18 Post subject: |
|
|
Да скрипт работает. Но мне, как я говорил, не нужны все подкаталоги, а только нужные. И еще в отличие от щелка по tab они открываются не мгновенно, а как то медленно по очереди, видимо потому, что становятся активными по очереди.
Quote: | под курсором или выделенные |
Только под курсором. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 13:26 Post subject: |
|
|
alexfmos wrote: | Только под курсором. | Да это общий случай. Я спрашиваю об открытии одного/нескольких выбранных проектов или только одного невыбранного и уже открытого.
И ещё вопрос: если ли в каких-то проектах папки окромя вложенных? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 13:36 Post subject: |
|
|
В конец запутали. нужно открывать папки только от одного проекта.
В проектах есть много уровней подкаталогов, нужны только те что в корне. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 14:43 Post subject: |
|
|
ОК. Сперва нужно создать пользовательскую команду em_APPENDTABS, где APPENDTABS будет в поле "Команда:", а %A в "Параметры:".
Скрипт следующий: Code: | '=========================================================
' Добавить вкладки для папки-проекта под курсором
' Параметры: %V <строка поиска>
'================= Путь к утилите TCFS2 ==================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'================== Путь к шаблону tab ===================
PFile = "%COMMANDER_PATH%\Tabs\Projects.tab"
'=============== Путь к каталогу Projects ================
Projects = "F:\My doc\Projects"
'=========================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Set A = WScript.Arguments : CD = A(0)
If A.Count <> 2 Then MsgBox "Укажите 2 параметра!", 48
PFile = WSH.ExpandEnvironmentStrings(PFile)
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(CD) Or StrComp(.GetParentFolderName(CD), Projects, 1) <> 0 Then WScript.Quit
TF = CreateObject("Shell.Application").NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & .GetTempName
.CreateTextFile(TF).Write Replace(.OpenTextFile(PFile).ReadAll, "\" & A(1) & "\", "\" & .GetFileName(CD) & "\")
WSH.Run TCFS2 & " /ef ""tem(`em_APPENDTABS " & TF & "`) msg($433,3009,,1) send(`{UP}{ENTER}`,0)""",,True : .DeleteFile TF, 1
End With | TCFS2 см. тут. Все пути указать верные.
P.S.: И, по большому счёту, можно было бы вообще никак не зависеть от того, что в активной панели, а просто создать бар-меню с выпадающим списком кнопок, каждая из которых запускает вкладки своего проекта. Мне достаточно лишь добавить ещё один параметр для имени папки-проекта. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sat Jun 06, 2015 08:23; edited 4 times in total |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 20:15 Post subject: |
|
|
Уезжал по делам.
Создал комманду
em_APPENDTABS в usercmd
Команда APPENDTABS
Параметр %A
Создал скрипт , проверив пути.
Создал кнопку, со скриптом, параметр %V <имя проекта в шаблоне tab>
MSG Укажите 2 параметра!
Я так понимаю данная строчка кода была специально для меня , что я забыл указать? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 20:26 Post subject: |
|
|
Ох.. Опять возвращаемся к устаревшей версии ТС...
%P%N вместо %V. Если есть пробелы во втором параметре, то обрамить его кавычками. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 20:40 Post subject: |
|
|
Обещаю в ближайшие свободные деньки перейти на новую версию. Тут же куча всего настроенного, плаги и т.п. Там это надо будет все подстраивать.
Исправил %V на %P%N.
Теперь по нажатию ничего не происходит. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 21:01 Post subject: |
|
|
Если устанавливать 32-битную версию и всё грамотно делать с предварительной распаковкой INSTALL.CAB, то ничего подстраивать не придётся.
Если не происходит, значит, либо какой-то путь неверно прописан (напр., в пути к Projects стоит бэкслеш на конце), либо курсор не там, где требуется. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 21:09 Post subject: |
|
|
Перепроверил. Пути верные (не вручную, копирую).
Курсор стоит на одной из папок проекта. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 21:14 Post subject: |
|
|
К TCFS2 путь точно в тройных кавычках?
И <имя проекта в шаблоне tab> - это PROJECTNAME? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 21:32 Post subject: |
|
|
Все верно. Именно так.
Имя проекта в файле tab я заменил на filefolder, соответственно и параметр %P%N filefolder.
Может действительно перейти сейчас на 8.51 ? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 21:37 Post subject: |
|
|
Если следом за WScript.Quit прописать : msgbox true, сообщение вылезет?
Начать можно с проверки в новой версии, установив ТС в отдельную папку. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 21:48 Post subject: |
|
|
Прописал, не вылезает. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Jun 04, 2015 21:58 Post subject: |
|
|
Если из комстроки ТС запустить em_APPENDTABS "<путь к рабочему tab-файлу>", вкладки добавятся?
TCFS2 тот, что по ссылке, т.е. последний? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
alexfmos
Joined: 29 Jun 2005 Posts: 78
|
(Separately) Posted: Thu Jun 04, 2015 22:02 Post subject: |
|
|
Установил в отдельную папку 8.51
Заменил параметр скрипта с %P%N filefolder на %V filefolder
Ничего не происходит.
Да вкладки добавляются
Добавлено спустя 3 минуты:
TCFS2_2.2.1.476 |
|
Back to top |
|
|
|