Total Commander

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

Могу сделать безотносительно панели

Всмысле? Не понимаю что это значит.

alexfmos писал(а):Было весело.

Ага, было весело наблюдать за собой, когда привычные мне хоткеи не работали (особенно Alt+Tab), и я буксовал на месте. Ну, так часто бывает через удалёнку. )

alexfmos писал(а):я напортачил?

Нет, там регистр у букв дисков при сравнении не совпадал, что я и исправил.

alexfmos писал(а):Не понимаю что это значит.

Я под кодом объяснял.

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

Честно , уже 15 раз прочитал ту фразу, но все равно не понимаю. Как она (кнопка) откроет вкладки проекта, если не знает какого именно?

alexfmos писал(а):потому что они ближе друг к другу

Ближе то да, но пальцы на них ложатся неудобно, а тут указательный на Alt, безымянный и средний на Shift - не нужно кисть поворачивать.

alexfmos писал(а):Как она (кнопка) откроет вкладки проекта, если не знает какого именно?

Я же там написал про параметр для имени проекта.

Мда... Вообщем давайте я посмотрю, что надо сделать?

Просто соответвовать шапке скрипта:

Код: Выделить всё

'==================================================================
' Добавить вкладки для папки-проекта
' Параметры: <Путь к шаблону 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

Вываливается укажите 2 параметра, потом открываюся вкладки.
Я правильно понимаю, что <строка замены> это название проекта, в котором мне нужно открыть вкладки? Это же должна быть переменная. Я не должен её указывать в скрипте, иначе смысл теряется. Мне для каждого проекта надо создать кнопку? И для каждого нового тоже? Наверное я уже туплю и спать пора.
Смотрю скрипт изменился. Теперь не вываливается, но зачем мне эта кнопка не понимаю

Я неск. минут назад уже успел это исправить. И описание параметров в шапке тоже.

alexfmos писал(а):Мне для каждого проекта надо создать кнопку? И для каждого нового тоже?

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

Я, в принципе, могу сделать скрипт автоматического создания такого бара, если очень надо. Хотя это, мне кажется, даже быстрее будет сделать вручную, продублировав кнопки и пройдясь в bar-файле массовой заменой в текстовом редакторе.

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

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

Так что спасибо, думаю и так идеально.

В знак благодарности могу при случае дать какие то советы в "моей" области: 3DS MAX, V-ray, Coreldraw, illustrator, photoshop. Хотя конечно сейчас все инфа есть в гугле.

alexfmos писал(а):что по сути приведет к замене активной панели - будет тот же список проектов

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

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

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

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

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

Хм. То же хорошая штука. Спасибо еще раз.

Total Commander

Как заменить в файле TAB пути ...