Сжатие\распаковка WinRAR'ом с помощью горячих клавиш в TC

Йяхе

Друзья, посодействуйте.

1. Допустим, в каталоге а\ есть каталог 123\. Необходимо, установив курсор на 123\ и нажав хоткей, получить архив 123.rar в каталоге a\. Как сделать хоткей понятно, но для этого нужно указать команду:
Команда, Параметры, Путь запуска.
Ну, команда ясно - rar.exe.

Вот, с параметрами не получается. Колупаюсь уже давно, а время не терпит.
2. Например, в каталоге 123\ нужно выделить несколько файлов и папок (не все). И, также, хоткеем создать архив 123.rar с выделенным содержимым, здесь же, - в каталоге 123\. Хотелось бы, конечно, 1-ое и 2-ое одной командой выполнять, если возможно.
3. Распаковка. В каталоге 123\ есть архив asd.rar. Курсор на asd.rar, нажим горячих клавиш, получаем каталог 123\asd\ с содержимым архива asd.rar. Также, выделяя несколько архивов, нужно их распаковать с созданием папок по именам архивов.

Прошу помочь.
Спасибо.

kadvlad

Я пользуюсь такими кнопками (точнее, шорткатами через кнопки).
Брал здесь на форуме и в TCKB (спасибо авторам):

Упаковать:
RAR лежит в %PATH%, -hp = "шифровать имена файлов", "-m" = "степень сжатия", "-р" = "пароль на открытие", "-r" = "инфо для восстановления, %", "-v" = разбивать на части такого размера (байт).

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

TOTALCMD#BAR#DATA
rar.exe
a -hpPASSWORD1 -m5 -vSIZE_BYTES -rr3 -pPASSWORD2 "%O.rar" ""%N""
%Commander_path%\TOTALCMD.EXE,7
Pack Here

1
-1

Распаковать (см. путь к скрипту):

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

TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Plugins\UnpackHere.vbs"

%COMMANDER_PATH%\TOTALCMD.EXE,21
Unpack Here

1
-1

Скрипт "UnpackHere.vbs":

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

Option Explicit 
Dim TCS 
Set TCS=CreateObject("TCSCRIPT.Helper") 
TCS.Pause=100 
TCS.SendCommand "cm_UnpackFiles", False 
TCS.SendKeystroke "{DELETE}" 
TCS.SendKeystroke "{TAB 4}" 
TCS.SendKeystroke chr(32) 
TCS.SendKeystroke "{ENTER}" 
Set TCS = Nothing 
If WScript.Arguments.Count > 0 Then 
  Dim FSO, FileName, oFile, PathNew 
  Set FSO   = CreateObject("Scripting.FileSystemObject") 
  FileName  = WScript.Arguments(0) 
  Set oFile = FSO.GetFile(FileName) 
  PathNew   = oFile.ParentFolder & "\" & FSO.GetBaseName(FileName) & "\Old\" 
  If Not FSO.FolderExists(PathNew) Then 
FSO.CreateFolder(PathNew) 
  End If 
  oFile.Move(PathNew) 
  Set oFile = Nothing 
  Set FSO   = Nothing 
End If
WScript.Quit

Йяхе

kadvlad, благодарю! Буду попробовать

Йяхе

kadvlad, назначил скрипт на хоткей.
При запуске такая ошибка:

kadvlad

Йяхе,
для работы скриптов необходима установка Script Helper (в архиве есть инструкция).

_92 · Сообщение **_92** » Пт фев 05, 2010 08:05

юзайте семьзэт
http://wincmd.ru/plugring/7zip_new.html
рар вчерашний день

Avada · Сообщение **Avada** » Пт фев 05, 2010 08:31

_92
Людям лучше знать, какой архиватор их устраивает. А работа с 7-Zip обсуждается в отдельной теме форума, и там своих проблем хватает. И от подобных рекомендаций попрошу впредь воздержаться — они вполне подпадают под определения оффтопа и флуда.

Йяхе

Со скриптом для распаковки получилось, спасибо.
Пытаюсь теперь упаковку сделать на хоткей.
Чего-то не идет

Что тут не так?

kadvlad

смотри внимательней на параметры.
не указал архиватору, с чем работать.

из справки (F1):

%O - помещает в командную строку текущее имя файла без расширения.
%N - помещает в командную строку имя файла под курсором.
%T - вставляет текущий каталог назначения. Особенно полезно для упаковщиков

т.е. в параметры добавь:

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

a -m5 %T"%O.rar" ""%N""

Йяхе

Поставил в параметры

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

a -m5 %T"%O.rar" ""%N""

При выполнении проскакивает досовое окно - rar.exe запускается, но архив не создается.
Что там пишет не успеваю увидеть.

kadvlad

у меня работает.
специально проверил с твоими параметрами.
надеюсь, ты понял, что архив создаётся в каталоге напротив? Т.е. в противоположной панели. И курсор должен стоять на архивируемом файле.

Вообще, у меня rar.exe лежит в %PATH%, так меньше проблем.
Попробуй положить файл, например, в C:\Windows.
Тогда команда (первая строка) будет просто rar.exe

Ну, и ещё раз проверь пути, скобки, кавычки, пробелы.. Почитай справку, в конце концов :)

Rodny · Сообщение **Rodny** » Вт фев 09, 2010 00:36

Йяхе
Путь запуска очисти.
И если не вполне владеешь синтаксисом команд, сначала из командной строки всё оттестируй (cmd запусти), там будешь сообщения видеть.

Flasher

kadvlad писал(а):надеюсь, ты понял, что архив создаётся в каталоге напротив? Т.е. в противоположной панели. И курсор должен стоять на архивируемом файле.

%T - Tab - другая панель, параметр не востребован, Alt+F5 никто не отменял. На RU.TCKB он не указан, что и логично.
Йяхе, твой случай:

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\DOSArc\rar.exe
a -m5 -s "%O.rar" %S
wcmicons.dll,30
Упаковать выделенные файлы в RAR-архив в исходный каталог с именем файла под курсором

1
-1

kadvlad

Flasher
Ну как же не востребован? Alt+F5 ведь просто вызвает диалог архивирования без специальных настроек, как в нашем случае (каталог назначения, сжатие, пароль, восстановление).
Насчёт %S и %N — согласен с тобой, так удобнее, когда несколько папок/файлов.

ask-rus

kadvlad
В wincmd.ini можно задать эти настройки. Мои:

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

[Packer]
RAR=%COMMANDER_PATH%\PLUGINS\arc\Rar.exe -m5 -rr5p -t