Andrey_A
|
Posted: Tue Mar 23, 2010 12:45 Post subject: Быстрое добавление типов файлов в Ассоциации ТС |
|
|
Кто занимался Ассоциациями знает... Для того, чтобы добавить тип (расширение) нужно сделать ряд нажатий мышью (диалог Ассоциаций...), далее прописать сам тип... короче на это уходит время и если кто-то этим захочет заняться вплотную, тот наверное хотел бы это сделать побыстрее, а для тех кто редко, но всё же добавляет типы в ассоциации, тем более не хотелось бы тратить своё драгоценное время на ряд этих мелочей
На мысль об автоматизации процесса натолкнула тема
http://forum.wincmd.ru/viewtopic.php?t=13058&start=0&postdays=0&postorder=asc&highlight=
Для этого надо:
1. Скрипт из верхнего поста Замена текста в файле
2. Настроить 5-10 основных Фильтров в Ассоциациях
3. Сделать выпадающее меню на панели с соответствующими параметрами
1 С позваления Batya я размещу скрипт и здесь, т.к. в той теме выложено несколько скриптов (для незапутанности) Code: | '=============================================
' Замена текста в файле
'
' Параметры:
' {файл} {текст для поиска} {текст для замены}
'=============================================
Option Explicit
Dim FSO, F, Str1, Str2, Text
Set FSO = CreateObject("Scripting.FileSystemObject")
With WScript
F = .Arguments(0)
Str1 = .Arguments(1)
Str2 = .Arguments(2)
End With
F = FSO.GetAbsolutePathName(CreateObject("WScript.Shell").ExpandEnvironmentStrings(F))
Text = FSO.OpenTextFile(F, 1).ReadAll
Text = Replace(Text, Str1, Str2, 1, -1, 1)
FSO.OpenTextFile(F, 2).Write Text
Set FSO = Nothing
WScript.Quit 0 |
У меня скрипт сохранён с названием ReplaceText.vbs
2. Настроим 10-ть популярных ассоциаций типов. К примеру:
1.Текстовые
2.Изображения
3.Видео
4.Музыка
...
т.е. нам важно какими программами будут открываться эти типы и какой значок будет отображаться, вот пример начальной настройки:
Code: | [Associations]
Filter1=; 1 |
Filter1_open="""%COMMANDER_PATH%\Plugins\exe\AkelPad\AkelPad.exe" "%1"""
Filter1.icon=%COMMANDER_PATH%\Wcmicons.dll,62
Filter2=; 2 |
Filter2_open=""%COMMANDER_PATH%\Plugins\wlx\Imagine\Imagine.exe" "%1""
Filter2.icon=%COMMANDER_PATH%\Wcmicons.dll,26
Filter3=; 3 |
Filter3_open=""%COMMANDER_PATH%\Programs\VideoLAN\App\VLC\vlc.exe" "%1""
Filter3.icon=%COMMANDER_PATH%\Wcmicons.dll,74 |
По аналогии можно сколько хошь
3. Настроим кнопки:
Первый вид копок - Добавление расширение в Ассоциации Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Files\Scripts\ReplaceText.vbs
"%%COMMANDER_PATH%%\WinAssociations.ini" "Filter1=" "Filter1=*.%E;"
%COMMANDER_PATH%\Wcmicons.dll,2060
Добавл. расш. под курс. в Ассоциации в Filter1 (Тестовый)
0
-1
|
По аналогии создаются остальные
Второй вид копок - Добавление полного имени...параметр Code: | "%%COMMANDER_PATH%%\WinAssociations.ini" "Filter1=" "Filter1=%O.%E;"
|
Третий вид копок - кроме этого расширения...параметр Code: | "%%COMMANDER_PATH%%\WinAssociations.ini" "1 | " "1 | *.%E;" |
Четвёртый вид копок - Копока удаления расширения...параметр Code: | "%%COMMANDER_PATH%%\WinAssociations.ini" "*.%E;" "" |
Четвёртый вид копок - Копока удаления полного имени...параметр Code: | "%%COMMANDER_PATH%%\WinAssociations.ini" "%O.%E;" "" |
Потратив несколько минут, собрав всё это в выпадающее меню, каждый получит своё, у меня к примеру так:
|
|