Вопрос № 176783: Здравствуйте, уважаемые эксперты. Помогите, пожалуйста, с написанием скрипта. Необходимо, чтобы скрипт просматривал архивы *.rar и выводил все содержимое этих архивов (включая папки и файлы) в текстовый файл. Желательно, чтобы указывалась глубина па...
Вопрос № 176783:
Здравствуйте, уважаемые эксперты. Помогите, пожалуйста, с написанием скрипта. Необходимо, чтобы скрипт просматривал архивы *.rar и выводил все содержимое этих архивов (включая папки и файлы) в текстовый файл. Желательно, чтобы указывалась глубина папок.
- будучи запущенным в текущей директории без параметров, выдаст в текстовый файл содержимое архивов в текущей директории и поддиректориях. Пример запуска файла
LISTRAR.BAT
- запущенный с путём к конкретной папке в параметре, выдаст в текстовый файл содержимое архивов в этой директории и её поддиректориях. Пример запуска файла
LISTRAR.BAT "D:\Мои архивы\"
Путь к архиву и его наименование
в текстовом файле выдаётся.
Вот код (Bat-файл должен быть сохранен в текстовый файл в DOS- кодировке (866) , и результаты его работы тоже будут в DOS кодировке) необходимо настроить местоположение rar.exe, путь к выходному текстовому файлу, и маску архива (в принципе, rar позволяет работать и с другими архивами)
Код:
Echo Off rem ----------------------------------------------------------------------------- rem Выдаём в текстовый файл содержимое архивов в папке и подпапках rem В параметре bat-файла -путь к директории, где находятся архивы rem Если в параметре путь не указан, берётся текущая директория rem
rem Ниже настроить переменные под свои потребности rem -----------------------------------------------------------------------------
Set
ListFile=ListFile.txt Set Rar="C:\Program Files\WinRAR\Rar.exe" Set Maska=*.rar
rem -----------------------------------------------------------------------------
if '=='%1 GoTo ThisDir
Echo Директория "%~1" ------- %Date% %Time% >%ListFile% for /R "%~1" %%i in (%Maska%) Do Call :RarView "%%~i"
GoTo View
:ThisDir
Echo Текущая директор
ия ------- %Date% %Time% >%ListFile% for /R %%i in (%Maska%) Do Call :RarView "%%~i"
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.