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 

Рекурсивная распаковка
Goto page Previous  1, 2, 3 ... 7, 8, 9 ... 34, 35, 36  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 04:18    Post subject: Reply with quote
Iori
Зачем же убирать строку с исправлением (на тот момент оно было ещё актуально)? Smile Конечно, об оверпостинге речь.
Ладно, как там тесты с 3-й опцией? Всё в порядке?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 04:44    Post subject: Reply with quote
Flasher

Quote:
Ладно, как там тесты с 3-й опцией? Всё в порядке?


Да не очень.

Скрипт выдаёт ошибку.

Line: 93
Cha: 3
Error: Unexpected "Next"
Code: 800A041F

У меня line 93 это:
Code:
Next
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 05:15    Post subject: Reply with quote
Iori
Строки никакие не удалялись?
Внимательно советую посмотреть на указанные добавки. К такому результату могли привезти только замены, которых быть не должно.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 05:26    Post subject: Reply with quote
Flasher

А как это понимать ?
Вроде замена.

Code:
- If StrComp(Fi, FSO.GetExtensionName(Arch), 1) = 0 And Dict.Exists(LCase(Fi)) Then


Code:
+ If StrComp(Fi, Ext, 1) = 0 And Dict.Exists(LCase(Fi)) Then
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 05:28    Post subject: Reply with quote
Iori
Ага, точно. Одна есть. Но я имел в виду строки целиком.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 05:38    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: Sat Dec 19, 2015 05:43    Post subject: Reply with quote
Iori
Что-то не верится. И так же с выложенным архивом? + 3 параметр - 1?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 05:49    Post subject: Reply with quote
Flasher

Только %WL
Если ставить 1, то папка с названием файла не создаётся, если в архиве нет каталогов.

PS:
Раньше вроде скрипт работал по-другому.
Если каталогов нет в архиве, то скрипт создаёт папку с названием архива и переходит туда.

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



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 05:58    Post subject: Reply with quote
Iori
Как раньше работал скрипт, можно убедиться здесь. Ничего не изменилось.
А, вспомнил, добавились опции после общения с Nick. Но по существу всё то же самое.
Можно было и обновиться. К тому же на момент правок ник Iori светился в Автоматизации. Wink

Iori wrote:
Если в папаке есть каталоги, то скрипт не создаёт папку с названием архива.
Такого не было и нет.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 06:10    Post subject: Reply with quote
Flasher wrote:
Iori
Как раньше работал скрипт, можно убедиться здесь. Всё те же параметры, включая 3-й. Ничего не изменилось.


Ладно тогда всё работает. Не знаю почему я так стормозил. Shocked
Огромное Спасибо. Smile

Quote:
Если в папаке есть каталоги, то скрипт не создаёт папку с названием архива.


Я имел в виду
Если в архиве есть каталоги, то скрипт не создаёт папку с названием архива.

Например.

тест.zip (внутри архива) ПапкаА\ПапкаБ\c.exe
будет:
ПапкаА\ПапкаБ\c.exe, а не тест\ПапкаА\ПапкаБ\c.exe

Last edited by Iori on Sat Dec 19, 2015 06:16; edited 2 times in total
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 06:15    Post subject: Reply with quote
папаке > арихиве
Суть не поменялась, я так и понял, т.е. ответ тот же.

А насчёт самого первого варианта, то я точно не помню, как там было. Лучше ориентироваться по коду на TCKB.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.

Last edited by Flasher on Sat Dec 19, 2015 06:20; edited 1 time in total
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 06:19    Post subject: Reply with quote
Flasher wrote:
папаке > арихиве


Пишу через транслит. На работе нет русской клавиатуры. И возможно не появится в ближайшее время.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 06:24    Post subject: Reply with quote
Iori wrote:
Например.
Тут я вижу один корневой каталог, а не каталоги. А для одиночников и создан 3 параметр, чтобы ещё и Nick-у угодить.
Сперва было по-умолчанию, потом стало опционально. Т.е. к %WL нужно добавить "" 1.

 OFF

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551
Post (Separately) Posted: Sat Dec 19, 2015 06:52    Post subject: Reply with quote
Flasher
Quote:

Для этого и создан 3 параметр, чтобы ещё и Nick-у угодить. Сперва было по-умолчанию, потом стало опционально.


Тогда понятно. Он вроде про матрёшку что-то писал.
А вы потом подправили.
здесь

Quote:
Копеечный вопрос. Я эти вещи себе всегда сам покупал.


 Hidden text


В общем спасибо за скрипт.

С наступающим вас. Very Happy

PS: Для %WL нужны кавычки? ("%WL")

Last edited by Iori on Sat Dec 19, 2015 09:03; edited 3 times in total
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва
Post (Separately) Posted: Sat Dec 19, 2015 07:05    Post subject: Reply with quote
Iori wrote:
Он вроде про матрёшку что-то писал.
А вы потом подправили.
здесь
Там задача была в том, чтобы при отключённой 3-й опции не создавать родительскую папку с именем архива только в случае, если её имя в точности совпадает с одиночным каталогом в корне.
Я предлагал в случае несовпадения склеивать разные имена вместо создания лишней папки, но такой вариант не устроил. А правка по ссылке - это просто коррекция, она общей задачи не касается.
Iori wrote:
Для %WL нужны кавычки? ("%WL")
Только при условии, что пробелы были в имени юзера или они возникли в пользовательском %TMP% в случае переноса (но редко кому взбредает в голову, например,
запустить rundll32 sysdm.cpl, EditEnvironmentVariables и перенести её из AppData\Local\Temp).

Пожалуйста. С наступающим. Smile

 Hidden text

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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 ... 7, 8, 9 ... 34, 35, 36  Next
Page 8 of 36

 
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