Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Кнопки для 7-Zip
Goto page Previous  1, 2, 3 ... 5, 6, 7 ... 11, 12, 13  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Tue Oct 16, 2012 20:57    Post subject: Reply with quote

Flasher

Не подумал бы что такую простую вещь он не исправил за столько лет существования командера.

Спасибо за скрипт. Буду копаться.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Oct 16, 2012 23:30    Post subject: Reply with quote

Iori
Там таких вещей воз и маленькая тележка, всего сходу и не перечислишь..
Back to top
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Sun Oct 21, 2012 22:44    Post subject: Reply with quote

Tol!k, за долгое время использования внезапно обнаружил, что твой батник не распаковывает архивы внутри каталогов с кириллическими именами или это только у меня одного так?
Можно это дело починить без ущерба прежнему функционалу? Ибо батник крайне нужен, вся распаковка на нем висит.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Oct 21, 2012 23:02    Post subject: Reply with quote

vbyen
Если нужно распаковывать в папки рядом с архивами, то можно ещё мой скрипт использовать.
Back to top
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Mon Oct 22, 2012 01:04    Post subject: Reply with quote

Flasher, спасибо, великолепный скрипт!
Единственное, можно подсказку - что в коде нужно изменить, чтобы сделать второй вариант скрипта (или доработку этого) для пакетной простой распаковки (не в одноименные каталоги)?
Это где-то здесь?
Code:
WSH.Run """" & Proga & """ x """ & File & """ -o""" & NF & """ -y", 0, True
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Mon Oct 22, 2012 01:23    Post subject: Reply with quote

vbyen

У меня вроде Толикин батник нормально распаковывает архивы внутри каталогов с кириллическими именами.

Закачайте ваш файил на rghost.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Oct 22, 2012 02:06    Post subject: Reply with quote

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
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Mon Oct 22, 2012 04:15    Post subject: Reply with quote

Flasher, еще раз спасибо! Фикс кода сработал на ура.
И к слову, этот вариант скрипта у меня вел себя своеобразно - мгновенно после запуска радостно сообщал "Распаковка завершена!" соответственно без всякой распаковки)

Iori, да вроде как очевидно, что дело не в конкретных архивах. Вероятно, баг работы Толиного батника имеет мой частный характер (никто ведь еще не жаловался на его неработоспособность). Недавно чинил сбой в системных шрифтах после установки/сноса одного кривого ПО - возможно, в этом причина ранее указанного бага с кириллическими именами каталогов.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Mon Oct 22, 2012 11:54    Post subject: Reply with quote

vbyen, пожалуйста.
vbyen wrote:
без всякой распаковки
Потому что он обрабатывает только архивы в структуре выбранных каталогов, а не выбранные в панели архивы.
Back to top
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Thu Nov 01, 2012 18:37    Post subject: Reply with quote

Flasher, еще такой нюанс — возможно ли и как сделать визуализацию процесса распаковки для твоих скриптов?
Подойдет любая свернутая консоль (или в идеале — процесс-окно самого 7zG)
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Nov 01, 2012 20:11    Post subject: Reply with quote

vbyen
А зачем? Там же окно в конце упаковки появляется.
Back to top
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Thu Nov 01, 2012 21:59    Post subject: Reply with quote

Flasher, привычнее наблюдать в трее любую иконку процесса распаковки.
А окошко подтверждения ... признаться, всякий раз слегка нервирует среди полной тишины дожидаться когда оно наконец всплывет Wink
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Thu Nov 01, 2012 22:57    Post subject: Reply with quote

vbyen
Фишка в том, чтобы во время распаковки можно было заниматься своими делами, не отвлекаясь на работу утилиты. Особенно актуально при большом кол-ве архивов и их размере. Уведомления для этого достаточно. А в данном случае нельзя подвязать все процессы к одному прогрессу. Много сменяющихся окон/иконок с разными показаниями будут нервировать куда больше.
И с вопросом стоило бы обращаться по месту расположения скрипта.
Back to top
View user's profile Send private message
vbyen



Joined: 11 Sep 2012
Posts: 16

Post (Separately) Posted: Fri Nov 02, 2012 05:08    Post subject: Reply with quote

Ок, кривоватый самофикс)
Любой легкий экзешник запускается свернутым в начале распаковки
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
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Fri Nov 02, 2012 10:10    Post subject: Reply with quote

Чтобы консольные окна располагались в свёрнутом виде, достаточно в приведённой мной строке 0 заменить на 2. taskkill тут никакой не нужен.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 5, 6, 7 ... 11, 12, 13  Next
Page 6 of 13

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group