View previous topic :: View next topic |
Author |
Message |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Tue Oct 16, 2012 20:57 Post subject: |
|
|
Flasher
Не подумал бы что такую простую вещь он не исправил за столько лет существования командера.
Спасибо за скрипт. Буду копаться. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Oct 16, 2012 23:30 Post subject: |
|
|
Iori
Там таких вещей воз и маленькая тележка, всего сходу и не перечислишь.. |
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Sun Oct 21, 2012 22:44 Post subject: |
|
|
Tol!k, за долгое время использования внезапно обнаружил, что твой батник не распаковывает архивы внутри каталогов с кириллическими именами или это только у меня одного так?
Можно это дело починить без ущерба прежнему функционалу? Ибо батник крайне нужен, вся распаковка на нем висит. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 21, 2012 23:02 Post subject: |
|
|
vbyen
Если нужно распаковывать в папки рядом с архивами, то можно ещё мой скрипт использовать. |
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Mon Oct 22, 2012 01:04 Post subject: |
|
|
Flasher, спасибо, великолепный скрипт!
Единственное, можно подсказку - что в коде нужно изменить, чтобы сделать второй вариант скрипта (или доработку этого) для пакетной простой распаковки (не в одноименные каталоги)?
Это где-то здесь?
Code: | WSH.Run """" & Proga & """ x """ & File & """ -o""" & NF & """ -y", 0, True |
|
|
Back to top |
|
|
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Mon Oct 22, 2012 01:23 Post subject: |
|
|
vbyen
У меня вроде Толикин батник нормально распаковывает архивы внутри каталогов с кириллическими именами.
Закачайте ваш файил на rghost. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Oct 22, 2012 02:06 Post subject: |
|
|
vbyen
Поменять
Code: | NF = FSO.CreateFolder(FSO.GetParentFolderName(File) & "\" & FSO.GetBaseName(File) & "\" )
WSH.Run """" & Proga & """ x """ & File & """ -o""" & NF & """ -y", 0, True | на
Code: | WSH.Run """" & Proga & """ x """ & File & """ -o""" & FSO.GetParentFolderName(File) & "\"" -y", 0, True |
|
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Mon Oct 22, 2012 04:15 Post subject: |
|
|
Flasher, еще раз спасибо! Фикс кода сработал на ура.
И к слову, этот вариант скрипта у меня вел себя своеобразно - мгновенно после запуска радостно сообщал "Распаковка завершена!" соответственно без всякой распаковки)
Iori, да вроде как очевидно, что дело не в конкретных архивах. Вероятно, баг работы Толиного батника имеет мой частный характер (никто ведь еще не жаловался на его неработоспособность). Недавно чинил сбой в системных шрифтах после установки/сноса одного кривого ПО - возможно, в этом причина ранее указанного бага с кириллическими именами каталогов. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Oct 22, 2012 11:54 Post subject: |
|
|
vbyen, пожалуйста.
vbyen wrote: | без всякой распаковки | Потому что он обрабатывает только архивы в структуре выбранных каталогов, а не выбранные в панели архивы. |
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Thu Nov 01, 2012 18:37 Post subject: |
|
|
Flasher, еще такой нюанс — возможно ли и как сделать визуализацию процесса распаковки для твоих скриптов?
Подойдет любая свернутая консоль (или в идеале — процесс-окно самого 7zG) |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Nov 01, 2012 20:11 Post subject: |
|
|
vbyen
А зачем? Там же окно в конце упаковки появляется. |
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Thu Nov 01, 2012 21:59 Post subject: |
|
|
Flasher, привычнее наблюдать в трее любую иконку процесса распаковки.
А окошко подтверждения ... признаться, всякий раз слегка нервирует среди полной тишины дожидаться когда оно наконец всплывет |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Nov 01, 2012 22:57 Post subject: |
|
|
vbyen
Фишка в том, чтобы во время распаковки можно было заниматься своими делами, не отвлекаясь на работу утилиты. Особенно актуально при большом кол-ве архивов и их размере. Уведомления для этого достаточно. А в данном случае нельзя подвязать все процессы к одному прогрессу. Много сменяющихся окон/иконок с разными показаниями будут нервировать куда больше.
И с вопросом стоило бы обращаться по месту расположения скрипта. |
|
Back to top |
|
|
vbyen
Joined: 11 Sep 2012 Posts: 16
|
(Separately) Posted: Fri Nov 02, 2012 05:08 Post subject: |
|
|
Ок, кривоватый самофикс)
Любой легкий экзешник запускается свернутым в начале распаковки
Code: | Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%COMMANDER_PATH%\Soft\Utils\archivers\file.exe",7 |
И в конце распаковки прибивается
Code: | WshShell.Run "taskkill /IM file.exe", 0 |
В качестве индикации вроде безглючно работает
p.s. на скрипт повесил пустой консольный exe, а потом задним числом подумал, что в него можно было и простенькую 8-бит муз. тему вставить.
На любителя, конечно) |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Nov 02, 2012 10:10 Post subject: |
|
|
Чтобы консольные окна располагались в свёрнутом виде, достаточно в приведённой мной строке 0 заменить на 2. taskkill тут никакой не нужен. |
|
Back to top |
|
|
|