Возможна ли распаковка tar.bz2-архивов в один заход?

Обсуждение Total Commander. Установка, использование, настройка, решение проблем, скрытые функции. Обсуждение новых версий.

Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik

Ответить
Аватара пользователя
Ciber SLasH
Сообщения: 209
Зарегистрирован: Сб авг 20, 2005 21:41
Откуда: С.-Петербург

Возможна ли распаковка tar.bz2-архивов в один заход?

Сообщение Ciber SLasH »

Приветствую всех!
Есть ли способ распаковать tar.bz2-архивы за один раз, не распаковывать сначала bz2, а потом tar ?
Аватара пользователя
Tol!k
Сообщения: 1727
Зарегистрирован: Вт апр 01, 2008 20:02
Откуда: Арзамас

Сообщение Tol!k »

Аватара пользователя
Ciber SLasH
Сообщения: 209
Зарегистрирован: Сб авг 20, 2005 21:41
Откуда: С.-Петербург

Сообщение Ciber SLasH »

Вариант, но есть 2 неприятных момента у этого плагина:
1. При распаковки tar.bz2-архива (Alt+F9) [распкованный tar-файл весит 500 Mb] TC подвисает на 49 сек., потом появляется прогресс распаковки
2. При распаковки появляется диалог замены файлов - якобы файл такой существует и что с ним делать, заменить или нет.
Аватара пользователя
Flasher
Сообщения: 14229
Зарегистрирован: Пт ноя 06, 2009 00:33
Откуда: Москва

Сообщение Flasher »

Ciber SLasH, скриптом, может?:

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

'============================================================================
' Распаковать двойной архив в папку с базовым именем архива
' Параметры: %V "<путь получателя: %P/%T>"
'============================================================================
Z7 = """%COMMANDER_PATH%\Utils\7-Zip\7z.exe""" : Set A = WScript.Arguments
With CreateObject("Scripting.FileSystemObject")
BN1 = .GetBaseName(A(0)) : BN2 = .GetBaseName(BN1) : End With
With CreateObject("WScript.Shell")
  .Run Z7 & " x """ & A(0) & """ -o""%TEMP%"" -y", 0, True
  .Run Z7 & " x ""%TEMP%\" & BN1 & """ -o""" & A(1) & BN2 & "\"" -y", 0, True
  .SendKeys "^R" : .Run "cmd /c del ""%TEMP%\" & BN1 & """", 0
End With
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Ответить