Рекурсивная распаковка

Flasher

Iori писал(а):Проверь этот файл без опции ввода пароля.

А пароль-то где?

Iori писал(а):Мне тяжело сказать что будет лучше.

Меня интересует юзабильная сторона вопроса. Ведь даже создавая новые кнопки/юзеркоманды, проще же писать 3-4 параметра вместо 4-8. Сюда ещё хочу флаг обработки папок добавить. С другой стороны придётся складывать флаги и что-то менять в уже созданных командах. Вот и спрашиваю.
Доп. работы там минимальные. 2-3 минуты от силы.

Iori · Сообщение **Iori** » Сб июл 29, 2017 02:56

Flasher писал(а):А пароль-то где?

Пароль "aioboot" как имя файла.

Flasher писал(а):Меня интересует юзабильная сторона вопроса

Я честно говоря за дополнительную опцию вместо суммы параметров.

Flasher

Iori писал(а):Пароль "aioboot" как имя файла.

Ага, причина ясна. Опять придётся скорость убивать...

Iori писал(а):Я честно говоря за дополнительную опцию вместо суммы параметров.

А причина? 2 опции-то. 8 штук не многовато будет?

Iori · Сообщение **Iori** » Сб июл 29, 2017 03:42

Flasher писал(а):Ага, причина ясна. Опять придётся скорость убивать...

Нет только не скорость

Flasher писал(а):А причина? 2 опции-то. 8 штук не многовато будет?

Легче менять на лету. Открыл кнопку и поменял 0 на 1 или на оборот.
А где 8 опций? %WL "" 0 s 0 0, если %WL и расширение не считать, то 4 плюс новая - это 5.

Flasher

Iori писал(а):Нет только не скорость

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

Iori писал(а):Легче менять на лету. Открыл кнопку и поменял 0 на 1 или на оборот.

Вот тебе делать нечего, на лету менять.

Под каждую задачу своя кнопка/хоткей. Один раз исправил и забыл. Я понимаю, что склеивать флаги 1|2|4|8|16 - это слишком ответственная задача не для слабых (то бишь математических) умов, но всё же.

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

Iori писал(а):А где 8 опций?

Под штуками я подразумевал параметры. Неопциональным (и то условно) является только первый. У тебя 6. + 2 новых (про 2-й писал выше).

И вообще что-то мне подсказывает, что писать таки надо Игорю по всем этим кривостям. В т. ч. для таких cab: вместо пустых файлов получаем заполненные нулями.

Iori · Сообщение **Iori** » Сб июл 29, 2017 17:42

Flasher писал(а):Я понимаю, что склеивать флаги 1|2|4|8|16 - это слишком ответственная задача не для слабых (то бишь математических) умов, но всё же.

Ум у меня не математический, но думаю склеить флажки я сумею.

Давай попробуем.

Flasher

Iori
Давай. Прокачал скрипт проверками. Где-то на сотую/тые, десятые ускорился, где-то на сотые замедлился. Зависит от архивов.
[cut="Пока только сюда выложу (дальше решим):"]

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

'•••••••••••••••••••••••••••••••••••••• VBS ••••••••••••••••••••••••••••••••••••••
' Распаковка выбранных архивов и/или архивов в структуре выбранных каталогов
' в одноимённые папки рядом с архивами (при наличии в них более одного элемента)
' c автоматическим переходом в случае распаковки одного архива

' Условие: необходима текущая версия утилиты 7z.exe

' Параметры:
' 1. %WL (обязательный)
' 2. <расширения архивов (в т.ч. двойные) через "|"> ("" - все поддерживаемые)
' 3. <пропустить/перезаписать существующие/переименовать извлекаемые файлы: s/a/u>
' 4. Суммируемые значения опций:
'      1 = Распаковка зашифрованных архивов.
'      2 = Удаление удачно распакованных архивов.
'      4 = Не распаковывать архивы нулевой структуры.
'      8 = Обработка всей структуры выбранных каталогов.
'     16 = Распаковка одиночных элементов без подкаталогов.

' Примеры: %WL | %WL "" a | %WL 7z|7zip|arj|bzip2|rar|tar.bz2|zip | %WL "" s 25

Option Explicit : Dim Z7
'••••••••• Путь к утилите 7z.exe •••••••••
Z7 = "%COMMANDER_PATH%\Utils\7-Zip\7z.exe"
'•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• Автор: Flasher © •••

Dim A, C, Filt, O, Mode, List, WSS, FSO, Pass, PWTrue
Set A = WSH.Arguments : C = A.Count: If C = 0 Then WSH.Quit
If C > 1 Then Filt = LCase(A(1))
If C > 2 Then Mode = " -ao" & A(2) : If C > 3 Then O = A(3)
List = A(0): Set WSS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
If InStrRev(LCase(WSH.FullName), "wscript.exe") Then
  Dim Par, Pars
  For Par = 1 To C - 1
    If A(Par) <> "" Then
      Pars = Pars & " " & A(Par)
    ElseIf C - 1 > Par Then Pars = Pars & " """""
    End If
  Next : WSS.Run "cscript.exe //NoLogo """ & WSH.ScriptFullName & """ " & List & Pars,0
  If FSO.GetDrive(FSO.GetDriveName(WSH.FullName)).IsReady Then WSH.Sleep 500 : WSH.Quit
End If : Dim Reg, Cvt, ShA, Fi, Ch, Cn, It : Set Reg = New Regexp
If FSO.FileExists(FSO.GetSpecialFolder(1) & "\oleprn.dll") Then _
Set Cvt = CreateObject("OlePrn.OleCvt.1")
Set ShA = CreateObject("Shell.Application")
Reg.IgnoreCase = True : Reg.Pattern = "^(001|7z(|ip)|a|apm|arj?|bz(|ip)2|cab|cpio|ch[iqmw]" &_
"|cramfs|deb|dmg|docx?|e(sd|pub|xe|xt[234]?)|fat|gz(|ip)|hfsx?|hx[sirqw]|ihex|img|iso|jar|" &_
"li[bt]|l(zh|ma)|lha|mbr|ms(i|lz|sp)|mub|n(si|tf)s|od[st]|qcow(|2c?)|r00|rar|rpm|pkg|ppmd|" &_
"ppt|squashfs|scap|swm|t[agx]z|tar|tbz2?|u(d|efi)f|vdi|vhd|vmdk|wim|x(ar|lsx?|pi|z)|z|zipx?)$"
Dim Rgx : Set Rgx = New RegExp : Rgx.MultiLine = True : Rgx.Global = True
Dim REx : Set REx = New RegExp : REx.MultiLine = True : REx.Global = True
Rgx.Pattern = "^Path = ([^\\\r\n]+)$" : REx.Pattern = "^Size = ([1-9]\d*)?$"

With FSO.OpenTextFile(List,,,-1)
  Do : Fi = Trim(.ReadLine)
    If Fi <> "" Then If FSO.FileExists("\\?\" & Fi) Then _
    ForFile Fi, Ch, It, Cn Else If (O And 8) = 8 Then ForFolder Fi, Ch, It, Cn
  Loop Until .AtEndOfStream : .Close
End With
If Ch > 1 Then WSS.Popup "Распаковка завершена!", 1.4 , " Результат", 64
If Ch = 1 Then If FSO.FileExists(It) Or FSO.FolderExists(It) Then _
If Cn > 1 And FSO.FolderExists(It) Then It = FSO.GetParentFolderName(It) End If :_
WSS.Exec """%COMMANDER_EXE%"" /A /S /O /L=""" & Replace(It, "\\?\", "") & """"
If FSO.FileExists(List) Then FSO.DeleteFile List

Sub ForFile(Arch, T, F1, Sum)
  Dim Ext, BN, Ex, Exe, Item : Ext = LCase(FSO.GetExtensionName(Arch))
  BN = FSO.GetBaseName(Arch) : Ex  = LCase(FSO.GetExtensionName(BN))
  Ex = Len(Ex) * InStr("|" & Filt & "|", "|" & Ex & "." & Ext & "|")
  If (Filt = "" Or Ex Or InStr("|" & Filt & "|", "|" & Ext & "|")) And Reg.Test(Ext) Then
    PWTrue = 1 : If (O And 1) = 1 Then GetPass Arch, "" : If PWTrue = 0 Then Exit Sub
    Set Exe = WSS.Exec("%comspec% /c chcp 1251|""" & Z7 & """ l" &_
                       " -slt """ & Arch & """ -sccUTF-8 -p" & Pass)
    Dim All : All = Split(Exe.StdOut.ReadAll, "----------")(1)
    If (O And 1) = 0 Then If InStr(All, vbLf & "Encrypted = +" & vbCr) Then Exit Sub
    If InStr(All, vbLf & "Errors:" & vbCr) Then Exit Sub
    Dim Sz, Szs, Size : Sum = Rgx.Execute(All).Count
    For Each Sz in REx.Execute(All)
      Szs = Sz.Submatches(0) : If Len(Szs) Then Size = CDbl(Size) + Szs Else Exit For
    Next : If (O And 4) = 4 And CDbl(Size) = 0 Then Exit Sub
    If Sum Then Item = Rgx.Execute(All)(0).SubMatches(0)
    If Sum < 2 And Size Then
      With New RegExp
        .Global = True : .Pattern = "\nPath = ([^\\\r\n]+)" : Sum = 1
        Dim Col: Set Col = .Execute(All) : Item = Col.Item(0).SubMatches(0)
      End With : If Item <> Col(Col.Count - 1).SubMatches(0) Then Sum = 2
    End If
    If Sum = 0 And Ext = "zip" And Len(Arch) < 260 Then
      Dim Items : Set Items = ShA.NameSpace(Arch).Items
      Sum = Items.Count : If Sum Then Item = Items.Item(0)
      For Each I in Items : Size = CDbl(Size) + I.Size : Next
    End If
    If Sum > 0 Or FSO.GetFile(LPath(Arch)).Size Then
      Dim P, Fd, NF : P = FSO.GetParentFolderName(Arch) : Fd = P & "\" & BN
      If IsEmpty(Cvt) Then UTF8 Item Else Item = Cvt.ToUnicode(Item, 65001)
      If Sum = 1 And ((O And 16) = 16 Or BN = Item) Then NF = P Else NF = Fd
      F1 = LPath(NF & "\" & Item)
      Dim FdExist: FdExist = Not FSO.FolderExists(LPath(Fd))
      Dim F1Exist: F1Exist = Not (FSO.FileExists(F1) Or FSO.FolderExists(F1))
      WSS.Run """" & Z7 & """ x """ & Arch & """ -o""" &_
              NF & """" & Mode & " -y -p" & Pass, 0, True
      Dim Fl, FE : Fd = LPath(Fd) : T = T + 1
      Select Case True
        Case FSO.FileExists(F1)   And Sum = 1 Set Fl = FSO.GetFile(F1)   : FE = F1Exist
        Case FSO.FolderExists(F1) And Sum = 1 Set Fl = FSO.GetFolder(F1) : FE = F1Exist
        Case FSO.FolderExists(Fd) Set Fl = FSO.GetFolder(Fd) : FE = FdExist :_
        If Sum = 1 Then F1 = Fd
      End Select : SZ = Fl.Size
      If (Len(Szs) > 0 And CDbl(Size) <> SZ) Or ((O And 4) = 4 And FE And SZ = 0) Then
        If (Fl.Attributes And 1) = 1 Then Fl.Attributes = 0
        Fl.Delete : T = T - 1
      End If : If (O And 2) = 2 And CDbl(Size) = SZ Then FSO.DeleteFile LPath(Arch), 1
    End If
  End If
End Sub

Sub GetPass(Arc, Text)
  If Len(WSS.Exec("""" & Z7 & """ t """ & Arc & """ -y -p" & Pass).StdErr.Read(1)) Then
    PWTrue = 0 : Pass = InputBox(vbCr & "Архив:  """ & Arc & """" & vbCr & vbCr &_
    Text & vbCr & vbCr & "Введите пароль:", Space(30) & "Распаковка архивов", Pass)
    If Len(Pass) Then Text = Space(40) & "Пароль неверен!" : GetPass Arc, Text
  Else PWTrue = 1 End If
End Sub

Sub UTF8(Nm): Dim F
  While Len(Nm) > 0
    If Asc(Left(Nm,1)) >= 128 Then
      If Asc(Left(Nm,1)) < 224 Then F = F & ChrW(S(Nm,2,64) + S(Nm,1,32)*64):_
        Nm = Right(Nm, Len(Nm)-2) Else F = F & ChrW(S(Nm,3,64) + (S(Nm,2,32)+_
        S(Nm, 1, 16)*64)*64) : Nm = Right(Nm, Len(Nm) - 3)
    Else F = F & Left(Nm, 1) : Nm = Right(Nm, Len(Nm) - 1) End If
  Wend : Nm = F
End Sub : Function S(Name, b, m) S = Asc(Mid(Name, b, 1)) Mod m End Function

Sub ForFolder(Fold, T, F1, Cnt)
  Dim N : Set Fold = FSO.GetFolder(LPath(Fold))
  For Each N In Fold.SubFolders : ForFolder N.Path, Ch, It, Cnt : Next
  For Each N In Fold.Files      : ForFile   N.Path, Ch, It, Cnt : Next
End Sub

Function LPath(Obj)
  LPath = Obj : If Len(Obj) > 259 And Left(Obj, 1) <> "\" Then LPath = "\\?\" & Obj
End Function

[/cut]Пофиксил проблемы с такими архивами. C запароленными cab-ами ничего (проверку CRC не берём), увы, поделать не могу, там препона.

Iori · Сообщение **Iori** » Вс июл 30, 2017 16:42

Flasher
Спасибо.
В скрипте пример

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

%WL "" 1 s 25

. Откуда 1?
Поясни что значит 8 = Обработка всей структуры выбранных каталогов.?

Flasher

Iori
Убрал 1 из примера.
По 8. А что тут неясно? Это стартовый запрос топика. См. его название и исходное название скрипта.

Iori · Сообщение **Iori** » Вс июл 30, 2017 16:54

Flasher писал(а):По 8. А что там неясно? Это стартовый запрос топика.

Ни чё себе, я про это и не знал.

В предыдущей версии скрипта эта опция не была как выбор вроде.

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

Flasher

Iori писал(а):Ни чё себе, я про это и не знал.

Ну, ты меня насмешил! Уже 4-й год пользуешься — и не прочёл названия?

:lol:

Iori писал(а):В предыдущей версии скрипта эта опция не была как выбор вроде.

Опции не было. Это верно. Работа в выбранных папках велась изначально с самой первой версии, как ни странно. Я же выше тебе про неё как раз писал и ссылку скинул. Да и особого смысла во втором параметре просто бы не было. Ну, ты, блин, даёшь...

Iori писал(а):Скрипт выглядит чище у удобнее в использование.

Интересно, как ты к такому выводу пришёл с учётом его увеличения и твоей предшествующей склонности не в пользу сумм?

Iori · Сообщение **Iori** » Вс июл 30, 2017 18:41

Flasher писал(а):Ну, ты меня насмешил! Уже 4-й год пользуешься — и не прочёл названия?

Ну это не совсем так. Пользоваться я начал после того как ты исправил роботу скрипта в WinPe. До этого использовал батники.

Flasher писал(а):Интересно, как ты к такому выводу пришёл с учётом его увеличения и твоей предшествующей склонности не в пользу сумм?

Я спешил и плохо выразился. Чище строка параметров стала. А суммы оказались и не такие страшные как я думал.

Flasher

Iori писал(а):Ну это не совсем так. Пользоваться я начал после того как ты исправил роботу скрипта в WinPe.

Т. е. с 2014 ты тупо участвовал в тестах, а дальнейшие разговоры о подключении 7zG и т. п. были только для отвода глаз? Хм. Не за что бы не подумал, что бывают такие энтузиасты.

P.S.: Не хотел бы ещё что-нибудь потестировать до лучших времён? У меня тут полно всякого.

Iori · Сообщение **Iori** » Вс июл 30, 2017 20:10

Flasher писал(а):Т. е. с 2014 ты тупо участвовал в тестах, а дальнейшие разговоры о подключении 7zG и т. п. были только для отвода глаз?

Совсем не так. Какое-то время с твоей помощью я пытался настроить скрипт под себя (7zG), но потом пришёл к выводy что батник более подходит под мои нужды, ибо работает везде и понимает запароленные архивы.
Лучше конечно в личку раз дело пошло про использовал я твой скрипт или не использовал с 2014 года.

Flasher

Iori
О каком батнике речь? Есть такой, который располагает одиночные файлы или папки без подкаталогов, фильтрует файлы и осуществляет избирательный переходит? Ну-ка, ну-ка.

Iori писал(а):позже хорошо прогоняю скрипт.

Как успехи?