Фокусы с панелью результатов поиска
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3, 4  Next  :| |:
Total Commander -> Секреты и советы

#16:  Author: ВахмуркаLocation: Большая деревня Москва PostPosted: Wed Jan 20, 2010 17:30
    —
Забавно, что тот же самый прием использовал и я для сортировки результатов поиска по пути (см. мою ссылку на "Тотальные хитрости" выше). Похоже, наклевывается некое обобщение под рабочим названием "Использование произвольной пересортировки результатов поиска".

#17:  Author: sa PostPosted: Wed Jan 20, 2010 18:31
    —
Avada wrote:
Значит, найден способ в любом случае привести панель результатов в кратком режиме к удобочитаемому виду.
А для любителей подробного режима файловой панели всё ещё проще. Достаточно завести пользовательский набор колонок а-ля "Подробный" и по команде "Файлы на панель" список результатов поиска сразу предстанет в привычном виде. Если потребуется увидеть его в виде - всё в одну строку с путями, необходимо уже потом переключаться в классический подробный режим панели.

#18:  Author: AvadaLocation: Россия, Саратов PostPosted: Wed Jan 20, 2010 21:18
    —
Вахмурка
sa
Как я понял, будущая обобщённая статья обещает быть весьма содержательной. Особенно если учесть, что этот материал практически не освещался в книге по TC (глава по поиску там и без того получилась слишком большой).

#19:  Author: sa PostPosted: Fri Jan 22, 2010 12:57
    —
Avada wrote:
найден способ в любом случае привести панель результатов в кратком режиме к удобочитаемому виду.
sa wrote:
А для любителей подробного режима файловой панели ... список результатов поиска сразу предстанет в привычном виде.
Не стоит только забывать, что у этого удобочитаемого и привычного вида есть существенный недостаток по сравнению с показом по Ctrl-B: сортировка файлов и подкаталогов выполняется с учётом пути (невидимого при этом!), и файлы с одинаковыми именами, например, оказываются разбросанными по списку.
Если только кто-нибудь, не превратит этот минус в плюс (по примеру Вахмурки в его "Тотальной хитрости").

#20:  Author: AvadaLocation: Россия, Саратов PostPosted: Fri Jan 22, 2010 14:11
    —
sa
Замечание верное. Но "кто предупреждён — тот вооружён". И потом, все эти трюки являются всего лишь дополнением (да, с некоторыми издержками, но и с определёнными удобствами) к обычным способам работы. Кроме того, есть ещё такая штука как выделение всех файлов с текущим путём и последующая фильтрация в панели по критерию выделения. Правда, в панели результатов последняя операция, похоже, необратима — обратно перейти к полному списку результатов поиска уже не получится.

#21:  Author: sa PostPosted: Fri Jan 22, 2010 14:59
    —
Avada wrote:
Но "кто предупреждён — тот вооружён"
Я в своём пользовательском наборе а-ля "Подробный" "вооружился" дополнительной колонкой "Имя" из внутреннего tc-плагина. На панели от неё присутствует только половинка буквы И, но для задания привычной сортировки по имени этого вполне хватает.

#22:  Author: AvadaLocation: Россия, Саратов PostPosted: Fri Jan 22, 2010 15:27
    —
sa
Да, я этот трюк тоже знаю и рекомендую к применению.

#23:  Author: sa PostPosted: Sat Feb 20, 2010 17:41
    —
Заметил, что фокус с "кратким просмотром" результатов поиска не работает, если результат один.
Предлагаю скрипт (с использованием TCWSHelp), навеянный обсуждением и предназначенный для вывода результатов поиска на панель.
Сам вижу в нём ряд недостатков (проблема с раскладкой клавиатуры, например) и надеюсь на помощь форумчан в их устранении.
Надеюсь, всё же, что хотя бы для демонстрации фокусов с панелью результатов поиска, он может быть полезен.
Code:
'================================================================================
'  File:         Поиск файлов по шаблону.vbs
'  Description:  Поиск файлов по шаблону с последующим выводом на панель.
'  Parameters:   Первый параметр (обязательный): номер строки шаблона в
'      отсортированном по алфавиту списке шаблонов поиска.
'      Для корректного выполнения скрипта создайте в TC хотя бы один шаблон.
'      Вывод на панель осуществляется без участия пользователя только в случае
'      доступности кнопки "Feed to listbox" ("Файлы на панель") по истечении
'      устанавливаемой паузы для ожидания завершения поиска и совпадении языка
'      меню TC и раскладки клавиатуры (см. комментарии по тексту скрипта).
'        Второй параметр (может отсутствовать): номер пользовательского набора
'      колонок для панели с результатами поиска (1...99) или
'       B (или К) - для краткого режима,
'       F (или П) - для подробного режима,
'       T (или Э) - для режима эскизов.
'      Режим панели применяется к панели с результатами только при условии, что
'      поиск успешно завершился (или прерван) в пределах устанавливаемой паузы и
'      вывод на панель прошёл без участия пользователя, иначе второй параметр
'      просто переключает режим активной файловой панели
'  Requirements: WSH Helper for TC by Volniy
'  Installation: Создайте для скрипта, например, кнопку на панели инструментов TC
'  Autor:        sa
'================================================================================
Option Explicit
If WScript.Arguments.Count < 1 Then
  MsgBox "Не задан первый параметр: номер шаблона поиска!", _
    vbOKOnly + vbCritical, _
    "Поиск файлов по шаблону.vbs"
  WScript.Quit
End If
Dim TCS, n
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand 501 'cm_SearchFor
TCS.SendKeystroke "+{Tab}{End}{Tab}{End}{Home}"
For n = 1 To WScript.Arguments(0)-1
  TCS.SendKeystroke "{DOWN}"
Next
TCS.SendKeystroke "{Enter}"
TCS.SendKeystroke "{Enter}"
wscript.sleep(1000)
' Пауза для ожидания завершения поиска (в миллисекундах), по истечении
'которой посылается комбинация клавиш для вывода файлов на панель.
'Если при этом поиск не успел завершиться, то по его окончании вывод
'выполняется самим пользователем
If Instr(1, UCase(TCS.INIRead _
  (TCS.MainINI, "Configuration", "LanguageIni", "0")), _
     "_RUS") = 0 Then 'Проверка: если меню TC не русифицированное...
'  TCS.SendKeystroke "^+1"
' Раскомментировать предыдущую строку, если переключение на английский язык
'настроить в региональных стандартах на Ctrl+Shift+1. Иначе команда
'"Feed to &listbox" выполняется без участия пользователя только для
'английской раскладки клавиатуры
  TCS.SendKeystroke "%l"
Else                           'иначе, если меню русифицированное...
'  TCS.SendKeystroke "^+2"
' Раскомментировать предыдущую строку, если переключение на русский язык
'настроить в региональных стандартах на Ctrl+Shift+2. Иначе команда
'"Фай&лы на панель" выполняется без участия пользователя только для
'русской раскладки клавиатуры
  TCS.SendKeystroke "%k"
'  TCS.SendKeystroke "^+1"
' Раскомментировать предыдущую строку, если переключение на английский язык
'настроено на Ctrl+Shift+1 и есть желание переключиться с русского на
'английский перед выходом из скрипта
End If
If WScript.Arguments.Count > 1 then
  Select Case UCase(WScript.Arguments(1))
  Case "B","К"  'Краткий (Эскизы - Краткий)
    TCS.ClearClip
    TCS.SendCommand 3301 'cm_SelectAllBoth
    TCS.SendCommand 2017 'cm_CopyNamesToClip
    TCS.SendCommand 524  'cm_ClearAll
    If UBound(Split(TCS.GetTextFromClip,vbNewLine)) = 0 Then
      MsgBox "Результатов поиска один (возможно ноль)." & _
        vbNewLine & "Режим файловой панели не изменялся!", _
        vbOKOnly + vbSystemModal, "Поиск файлов по шаблону.vbs"
    Else
      TCS.SendCommand 269  'cm_SrcThumbs  или 271 'cm_SrcCustomView1
      TCS.SendCommand 301  'cm_SrcShorth
      TCS.SendCommand 330  'cm_SrcNegOrder
      TCS.SendCommand 330  'cm_SrcNegOrder
' Закомментировать две предыдущие строки, чтобы ширина колонок в кратком режиме
'не подстраивалась под самое длинное имя файла на панели результатов поиска -
'в данном варианте с помощью двукратной сортировки панели в обратном порядке.
'После закомменирования ширина колонок на панели результатов поиска будет
'наследоваться от последнего применённого краткого режима на активной файловой
'панели, либо составит половину её ширины, если наследования не было или если
'найденные файлы поместились в одну колонку на панели.
'Поведение указано для значения ключа BriefViewWidthLimit=0
    end if
  Case "F","П"  'Подробный (Эскизы - Подробный)
    TCS.SendCommand 269  'cm_SrcThumbs или 271 'cm_SrcCustomView1
    TCS.SendCommand 302  'cm_SrcLong
  Case "T","Э"  'Эскизы
    TCS.SendCommand 269  'cm_SrcThumbs
  Case Else     'Пользовательский набор колонок
    n =  WScript.Arguments(1)     'cm_SrcCustomView
    If n > 0 and n < 30 Then
       TCS.SendCommand 270 + n   
    ElseIf n > 29 and n < 100 Then
       TCS.SendCommand 7500 + n
    Else
      MsgBox "Не верно задан второй параметр: режим панели!", _
        vbOKOnly + vbCritical, _
      "Поиск файлов по шаблону.vbs"
    End If
  End Select
End If
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit

Его можно повесить на кнопку:
Code:
TOTALCMD#BAR#DATA
Диск:\путь\к\файлу\Поиск файлов по шаблону.vbs
1 b
WCMICONS.DLL,47
Поиск файлов по шаблону с последующим выводом на панель


-1
Диск и путь к файлу “Поиск файлов по шаблону.vbs”, а также параметры нужно заменить на свои.

#24:  Author: sa PostPosted: Tue Mar 02, 2010 10:45
    —
Avada wrote:
При попытке переключения на краткий режим мы просто вернёмся из панели результатов поиска в стандартную файловую панель TC и потеряем все наши результаты. Это штатное поведение.
А не правильнее ли такое поведение считать не штатным, а багом? Тем более, что при переключении в любой другой режим файловой панели (подробный, эскизов, комментариев, с пользовательским набором колонок) потери результатов не наблюдается.

#25:  Author: AvadaLocation: Россия, Саратов PostPosted: Tue Mar 02, 2010 12:42
    —
sa
Не правильнее. Хотя бы потому, что утверждение про "любой другой режим" ошибочно. Возврат в стандартную панель при таком переключении происходит также для подробного режима и дерева. А режим комментариев в панели результатов вообще нормально не поддерживается. Остаются пользовательские колонки и эскизы.
Кроме того, Гислер явным образом говорил, что это фича, из которой просто предусмотрены некоторые исключения.
У меня уже с месяц как накоплен материал по всем этим нюансам, но в связи с большой загрузкой по русификации TC 7.51 сейчас нет, к сожалению, времени всё это представить в удобочитаемом виде.

#26:  Author: sa PostPosted: Tue Mar 02, 2010 13:25
    —
Avada wrote:
Возврат в стандартную панель при таком переключении происходит также для подробного режима
Да, насчёт подробного режима я переборщил: сказалась "полезность" скрипта Confused . Дерево вроде не упоминал.
В то же время не в пользу такой фичи говорит ситуация, когда поиск запускается из режима эскизов или пользовательских колонок: ведь в этом случае результаты поиска не теряются при переключении в том числе и на краткий и на подробный режимы панели.

#27:  Author: AvadaLocation: Россия, Саратов PostPosted: Tue Mar 02, 2010 13:50
    —
sa
А поведение с пользовательскими колонками и эскизами — это заплатки, которые Гислер по реквестам посетителей форумов постепенно добавлял для частных случаев основного функционала. Поэтому и такая чересполосица сейчас.

#28:  Author: sa PostPosted: Tue Mar 02, 2010 17:50
    —
Avada wrote:
При попытке переключения на краткий режим мы просто вернёмся из панели результатов поиска в стандартную файловую панель TC и потеряем все наши результаты. Это штатное поведение.
Ещё одна фича: вернёмся из панели результатов не в тот каталог, из которого запускали поиск, а в каталог, который открыт на противоположной(!) панели - для случая, если эти каталоги принадлежат одному диску.

#29:  Author: AvadaLocation: Россия, Саратов PostPosted: Thu Apr 01, 2010 13:18
    —
Пока мы дискутировали, пришёл лесник... пардон, Гислер, и без лишних слов продемонстрировал, что он тут считает багом, а что фичей. Без лишних слов — потому что в истории версий 7.51/7.55 это изменение явным образом не описано. А состоит оно в том, что теперь переключение режима не выбрасывает из результатов поиска ни в подробном, ни в кратком режиме. Режим переключается — результаты остаются.
Чтобы действительно выйти в обычную файловую панель, надо перечитать текущее содержимое. Можно всем известными клавишами, а можно просто нажать кнопку текущего диска.
Нерешённых проблем, похоже, осталось две:
1. В результатах поиска режим комментариев включается без отображения самих комментариев.
2. На режим дерева в результатах поиска переключиться можно, а вот с него дальше — уже нет, результаты сбрасываются.

#30:  Author: Igor_A. PostPosted: Thu Apr 01, 2010 13:42
    —
Не знаю кто как, а я крайне не доволен такой "самодержавной" уверенностью г-на Гислера в признании им старой "фичи" багом (



Total Commander -> Секреты и советы


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3, 4  Next  :| |:
Page 2 of 4

Powered by phpBB © 2001, 2005 phpBB Group