Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Как заменить в файле TAB пути ...
Goto page Previous  1, 2, 3, 4, 5, 6
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 01:01    Post subject: Reply with quote

Было весело. Особенно порадовала зубодробительная часть, когда заменяли одни непонятные мне символы, на другие, и при этом говорили "такого не может быть!!!". Жена отвлекла, пропустил кульминацию. Что это в итоге был за косяк, я напортачил?

Quote:
Могу сделать безотносительно панели
Всмысле? Не понимаю что это значит.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 05, 2015 01:07    Post subject: Reply with quote

alexfmos wrote:
Было весело.
Ага, было весело наблюдать за собой, когда привычные мне хоткеи не работали (особенно Alt+Tab), и я буксовал на месте. Ну, так часто бывает через удалёнку. )
alexfmos wrote:
я напортачил?
Нет, там регистр у букв дисков при сравнении не совпадал, что я и исправил.
alexfmos wrote:
Не понимаю что это значит.
Я под кодом объяснял.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 01:20    Post subject: Reply with quote

Кстати да, прошу прощения за CTRL+SHIFT. Чертовски знакомая ситуация, т.к. везде на любых компах по умолчанию alt+shift, а мне вот уже лет 15 удобнее именно так, потому что они ближе друг к другу. Одним пальцем можно нажать )))

Честно , уже 15 раз прочитал ту фразу, но все равно не понимаю. Как она (кнопка) откроет вкладки проекта, если не знает какого именно?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 05, 2015 01:32    Post subject: Reply with quote

alexfmos wrote:
потому что они ближе друг к другу
Ближе то да, но пальцы на них ложатся неудобно, а тут указательный на Alt, безымянный и средний на Shift - не нужно кисть поворачивать.
alexfmos wrote:
Как она (кнопка) откроет вкладки проекта, если не знает какого именно?
Я же там написал про параметр для имени проекта.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 01:36    Post subject: Reply with quote

Мда... Вообщем давайте я посмотрю, что надо сделать?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 05, 2015 01:57    Post subject: Reply with quote

Просто соответвовать шапке скрипта:
Code:
'==================================================================
' Добавить вкладки для папки-проекта
' Параметры: <Путь к шаблону tab> <шабл. имя проекта> <имя проекта>
' Пример: "%%COMMANDER_PATH%%\Tabs\Projects.tab" PPOJECTS MyProject
'====================== Путь к утилите TCFS2 ======================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'==================================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Set A = WScript.Arguments
If A.Count <> 3 Then MsgBox "Укажите 3 параметра!", 48
With CreateObject("Scripting.FileSystemObject")
  TF = CreateObject("Shell.Application").NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & .GetTempName
  .CreateTextFile(TF).Write Replace(.OpenTextFile(WSH.ExpandEnvironmentStrings(A(0))).ReadAll, "\" & A(1) & "\", "\" & A(2) & "\")
  WSH.Run TCFS2 & " /ef ""tem(`em_APPENDTABS " & TF & "`) msg($433,3009,,1) send(`{UP}{ENTER}`,0)""",,True : .DeleteFile TF, 1
End With

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Sat Jun 06, 2015 08:23; edited 2 times in total
Back to top
View user's profile Send private message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 02:14    Post subject: Reply with quote

Вываливается укажите 2 параметра, потом открываюся вкладки.
Я правильно понимаю, что <строка замены> это название проекта, в котором мне нужно открыть вкладки? Это же должна быть переменная. Я не должен её указывать в скрипте, иначе смысл теряется. Мне для каждого проекта надо создать кнопку? И для каждого нового тоже? Наверное я уже туплю и спать пора.
Смотрю скрипт изменился. Теперь не вываливается, но зачем мне эта кнопка не понимаю Smile
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 05, 2015 02:18    Post subject: Reply with quote

Я неск. минут назад уже успел это исправить. И описание параметров в шапке тоже.
alexfmos wrote:
Мне для каждого проекта надо создать кнопку? И для каждого нового тоже?
А их так много? Я же предложил бар-меню с кнопками. Открыл это меню и выбрал нужное. Это же проще, чем заходить каждый раз в папку проектов и ставить курсор на нужную папку.

Я, в принципе, могу сделать скрипт автоматического создания такого бара, если очень надо. Хотя это, мне кажется, даже быстрее будет сделать вручную, продублировав кнопки и пройдясь в bar-файле массовой заменой в текстовом редакторе.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 02:27    Post subject: Reply with quote

Quote:
А их так много?

Пока что 139, но дело не в этом, т.к. естественно не ко всем обращаюсь, дело в том что проекты появляются новые. То есть, мне с каждым новым проектом надо будет создавать кнопку в баре, что по сути приведет к замене активной панели - будет тот же список проектов Smile
Так что спасибо, думаю и так идеально.

В знак благодарности могу при случае дать какие то советы в "моей" области: 3DS MAX, V-ray, Coreldraw, illustrator, photoshop. Хотя конечно сейчас все инфа есть в гугле.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Jun 05, 2015 02:43    Post subject: Reply with quote

alexfmos wrote:
что по сути приведет к замене активной панели - будет тот же список проектов
Почему замене? Я же объяснил, в чём преимущество. Думаю, вкладок 50-70 - это норма для такого меню и хорошего разрешения экрана.

Спасибо, по последним 3-м прог-ам советы я и сам могу дать. Wink

Добавлено спустя 20 минут:

В оба варианта ещё добавил убор дубликатов после открытия.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
alexfmos



Joined: 29 Jun 2005
Posts: 78

Post (Separately) Posted: Fri Jun 05, 2015 10:48    Post subject: Reply with quote

Quote:
В оба варианта ещё добавил убор дубликатов после открытия

Хм. То же хорошая штука. Спасибо еще раз.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4, 5, 6
Page 6 of 6

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group