Total Commander

Flasher
Собственно, в твоём скрипте те же проблемы, над которыми и я бьюсь.
Вызываю скрипт с параметрами: %Z%V 2 1
1) В панели мы имеем всего один каталог.
Ставим курсор на [..] - Тотал выбивает модальное окошко, что "нет выделенных файлов".
Ставим курсор на каталог - он выделяется (хотя параметрами задано выделение только файлов).
2) В каталоге лежит один файл. Устанавливаем курсор на каталог, выполняем команду 2046 cm_DirBranchSel. Ставим курсор на файл, вызываем скрипт - файл не выделяется.

Flasher писал(а):последний штрих

Тогда лучше вернуть вчерашний вариант. Всё-таки он работает со стандартными настройками TC и не сбоит на виде без подкаталогов (когда под курсором оказывается файл из подпапки).

Добавлено спустя 2 часа 57 минут:

LonerD писал(а):2) В каталоге лежит один файл. Устанавливаем курсор на каталог, выполняем команду 2046 cm_DirBranchSel. Ставим курсор на файл, вызываем скрипт - файл не выделяется.

Это следствие ошибки в версии от 23 апр. При наличии нескольких файлов тоже ни один не выделяется. В предшествующем варианте файл выделяется, как положено.

LonerD, sa, сейчас проверьте.

Flasher
+ В подпапках архивных файлов теперь работает.
+ Затеплилась надежда, что благодаря .SendCommand 524, True исчезнет вопрос с выскакиванием (редким) сообщения о несоответствии типа Join.
- В TC со стандартными установками снова пролезла (видимо через P=V) проблемка с cd C:\ или cd %COMMANDER_PATH% или архивами, в которых буква диска заглавная. Она сказывается только при нахождении курсора на [..] – в этом случае выделение зеброй не срабатывает.
P.S.
Проверяю с некоторых пор в режиме 1 (файлы и папки).

Добавлено спустя 1 час 15 минут:

Вот эта ещё несколько раз выскочила:

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

Line:	25
Char:	3
Error:	Несоответствие типа: 'UBound'
Code:	800A000D

sa
А теперь?

Ещё поправил проблему, когда каталоги выделялись в режиме 3, если курсор стоял на файле.
Ещё осталась одна проблемка, но я про неё не скажу, если сами не найдёте.

Flasher
+ Проблема регистра букв дисков исправлена.

но я про неё не скажу,

Вскрываемся? У меня тоже в запасе имеется, только довольно экзотическая (для файлов архивов).

sa писал(а):Вскрываемся?

Ладно, уломал. С юникодными именами не сложилось.

Flasher
В виде без подкаталогов и результатах поиска внутри файла архива почти не работает.

sa
Выглядит как "почти беременна". А конкретней?

Flasher
В виде без подкаталогов работает только на [..]. В результатах поиска не пашет совсем.

Добавлено спустя 13 минут:

Flasher писал(а):С юникодными именами не сложилось

Кому сильно надо, если файлов не много, могут воспользоваться кнопкой с зеброй на TCFS2 с первой страницы.
Она (кнопка) хоть и жутко медленная, зато всеядная.

Flasher
Описка: параметр ожидания , True должен быть расположен не до, а после .SendCommand 2033.
Иногда из-за этого выделение не выполнялось (хотя в буфере уже всё было).
Кстати, разделитель : сильно затрудняет просмотр кода и его изменений.

sa писал(а):В виде без подкаталогов работает только на [..].

Исправил. Так случилось, что 18 правка была ознаменована удалением 18 строки.

sa писал(а):В результатах поиска не пашет совсем.

Это не лечится. Разве только частично с именами без путей. Можно Гислеру спокойно сообщать.

sa писал(а):Описка: параметр ожидания , True должен быть расположен не до, а после .SendCommand 2033.

Ты что-то путаешь, у меня там вообще его нет и не было ни до и ни после. Сбоев пока не замечал.

sa писал(а):Кстати, разделитель : сильно затрудняет просмотр кода и его изменений.

Я не спорю, что для других не всегда удобно читать. Не с ликбезной целью выкладываю. Можешь пользоваться массовой заменой на перевод строки, если хочешь. Мне удобно из-за компактности, могу быстрее фокусировать внимание сразу на множестве деталей.

Flasher писал(а):Исправил.

+ В файле архива, в виде без подкаталогов работает.
Теперь:
- В файле архива, в обычном режиме, в подпапках работает только на [..].

Flasher писал(а):и не было ни до и ни после

А в твоём исходном скрипте, с которого начался весь сыр-бор, разве не было?

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

.SetTextToClip CStr(Sp)
.SendCommand 2033, True

sa писал(а):Теперь:

Ага. Исправил.
+ к этому исправлена проблема в режиме "только файлы", когда в подпапке архива первый файл не выделялся, если курсор стоял на папке.

sa писал(а):А в твоём исходном скрипте, с которого начался весь сыр-бор, разве не было?

Разве только в этом.

Flasher
Основательно проверить пока времени нет. Как будто работает.

Flasher писал(а):Разве только в этом.

Какое милое признание ошибки (?)

. Параметр , True после .SendCommand 2033 добавил. А вот , True после .SetTextToClip Sp всё-таки не убрал. Метод SetTextToClip(Text) ещё и параметры поддерживает?

Total Commander

Выделение файлов через один