Total Commander

Совет или секрет это я не знаю, просто занимаясь настройкой внутренних ассоциаций накопилось в окне Внутренних Ассоциаций кучу типов файлов (расширений) и захотелось их как-то по группам разбить, но Сепаратора там не оказалось
Я просто стал вставлять вместо типа файла строку:
"========================="
А между ними типы файлов по группам
- текстовые к текстовым
- музыкальные к музыкальным.....
"========================="
Можно вместо "=" вставлять xno-то своё на свой вкус и взгляд
"+++++++++++++++++++"
"==== тестовые ======="
"--- музыкальные -------"

Разбираясь в очередной раз в ассоциациях наткнулся на такую интересную вещь:
При множественных ассоциациях к примеру

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

Filter1=*.txt;*.lng
Filter1_open=*
Filter1.icon=%COMMANDER_PATH%\Wcmicons.dll,1539
Filter1_AkelPad=""%COMMANDER_PATH%\Plugins\exe\AkelPad\AkelPad.exe" "%1""
Filter1_Notepad++=""%COMMANDER_PATH%\Programs\Notepad++\Notepad++.exe" "%1""

если при команде cm_InternalAssociate (в настроенном по примеру выше шаблону) в строке расширений добавить в конце =1

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

*.txt;*.lng=1

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

Если строка типов файлов длинная, то выглядет не красиво,
но всё же есть возможность видеть группу ассоциированных типов файлов

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

Filter1=*.txt;*.lng=1
Filter1_open=*
Filter1.icon=%COMMANDER_PATH%\Wcmicons.dll,1539
Filter1_=*.txt;*.lng=1
Filter1_-------------------=1
Filter1_AkelPad=""%COMMANDER_PATH%\Plugins\exe\AkelPad\AkelPad.exe" "%1""
Filter1_Notepad++=""%COMMANDER_PATH%\Programs\Notepad++\Notepad++.exe" "%1""

Развивая тему дальше (при множественных асоциациях) меню, которое появляется по Entery можно добавить скрипт, который вызывает окно настройки ассоциаций, что позволит прямо в этом же меню (если есть желание) вызывать настройку
Скрипт:

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

'Вызывает окно настройки внутренних ассоциаций TC
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendCommand "cm_InternalAssociate"
Set TCS = Nothing

Пример меню

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

Filter1=*.txt;*.lng=1
Filter1_open=*
Filter1.icon=%COMMANDER_PATH%\Wcmicons.dll,1539
Filter1_=*.txt;*.lng=1
Filter1_-------------------=1
Filter1_AkelPad=""%COMMANDER_PATH%\Plugins\exe\AkelPad\AkelPad.exe" "%1""
Filter1_Notepad++=""%COMMANDER_PATH%\Programs\Notepad++\Notepad++.exe" "%1""
Filter1_--------------------=1
Filter1_Ассоциации=""%COMMANDER_PATH%\Files\Scripts\InternalAssociate.vbs" "%1""

замените пути на свои и вызывайте настройку ассоциаций

Написал, а потом решил ещё и скрин выложить для визуальности

Total Commander

Сортировка типов файлов во внутренних ассоциациях

Сортировка типов файлов во внутренних ассоциациях