Total Commander

Iori
Зачем же убирать строку с исправлением (на тот момент оно было ещё актуально)?

Конечно, об оверпостинге речь.
Ладно, как там тесты с 3-й опцией? Всё в порядке?

Flasher

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

Да не очень.

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

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

У меня line 93 это:

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

Next

Iori
Строки никакие не удалялись?
Внимательно советую посмотреть на указанные добавки. К такому результату могли привезти только замены, которых быть не должно.

Flasher

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

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

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

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

+ If StrComp(Fi, Ext, 1) = 0 And Dict.Exists(LCase(Fi)) Then

Iori
Ага, точно. Одна есть. Но я имел в виду строки целиком.

Flasher

Вроде работает, но создает вторую родительскую папку.
Не важно какой архив.

Iori
Что-то не верится. И так же с выложенным архивом? + 3 параметр - 1?

Flasher

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

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

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

Iori
Как раньше работал скрипт, можно убедиться здесь. [s]Ничего не изменилось.[/s]
А, вспомнил, добавились опции после общения с Nick. Но по существу всё то же самое.
Можно было и обновиться. К тому же на момент правок ник Iori светился в Автоматизации.

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

Такого не было и нет.

Flasher писал(а):Iori
Как раньше работал скрипт, можно убедиться здесь. Всё те же параметры, включая 3-й. Ничего не изменилось.

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

Огромное Спасибо.

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

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

Например.

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

папаке > арихиве
Суть не поменялась, я так и понял, т.е. ответ тот же.

А насчёт самого первого варианта, то я точно не помню, как там было. Лучше ориентироваться по коду на TCKB.

Flasher писал(а):папаке > арихиве

Пишу через транслит. На работе нет русской клавиатуры. И возможно не появится в ближайшее время.

Iori писал(а):Например.

Тут я вижу один корневой каталог, а не каталоги. А для одиночников и создан 3 параметр, чтобы ещё и Nick-у угодить.
Сперва было по-умолчанию, потом стало опционально. Т.е. к %WL нужно добавить "" 1.

[cut="OFF"]

Iori писал(а):Пишу через транслит.

Жесть. Можно нарисовать раскладку фломастером и печатать как следует.

Iori писал(а):И возможно не появится в ближайшее время.

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

Flasher

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

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

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

[cut]В принципе можно, но не думаю что администрации Канадской гостиницы понравится новая клавиатура.

[/cut]

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

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

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

Iori писал(а):Он вроде про матрёшку что-то писал.
А вы потом подправили.
здесь

Там задача была в том, чтобы при отключённой 3-й опции не создавать родительскую папку с именем архива только в случае, если её имя в точности совпадает с одиночным каталогом в корне.
Я предлагал в случае несовпадения склеивать разные имена вместо создания лишней папки, но такой вариант не устроил. А правка по ссылке - это просто коррекция, она общей задачи не касается.

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

Только при условии, что пробелы были в имени юзера или они возникли в пользовательском %TMP% в случае переноса (но редко кому взбредает в голову, например,
запустить rundll32 sysdm.cpl, EditEnvironmentVariables и перенести её из AppData\Local\Temp).

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

[cut]Доску с кнопками можно в тумбу прятать, если что.

[/cut]

Total Commander

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