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, 4  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы printer-friendly view
View previous topic :: View next topic  
Author Message
Вахмурка



Joined: 27 Dec 2004
Posts: 2478
Location: Большая деревня Москва

Post (Separately) Posted: Wed Jan 20, 2010 17:30    Post subject: Reply with quote

Забавно, что тот же самый прием использовал и я для сортировки результатов поиска по пути (см. мою ссылку на "Тотальные хитрости" выше). Похоже, наклевывается некое обобщение под рабочим названием "Использование произвольной пересортировки результатов поиска".
_________________
Сайт PowerPro+Total Commander
Скрипты PowerPro для Total Commander
* * *
«Не усматривайте злого умысла в том, что вполне объяснимо глупостью» (Р. Хэнлон)
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Wed Jan 20, 2010 18:31    Post subject: Reply with quote

Avada wrote:
Значит, найден способ в любом случае привести панель результатов в кратком режиме к удобочитаемому виду.
А для любителей подробного режима файловой панели всё ещё проще. Достаточно завести пользовательский набор колонок а-ля "Подробный" и по команде "Файлы на панель" список результатов поиска сразу предстанет в привычном виде. Если потребуется увидеть его в виде - всё в одну строку с путями, необходимо уже потом переключаться в классический подробный режим панели.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Wed Jan 20, 2010 21:18    Post subject: Reply with quote

Вахмурка
sa
Как я понял, будущая обобщённая статья обещает быть весьма содержательной. Особенно если учесть, что этот материал практически не освещался в книге по TC (глава по поиску там и без того получилась слишком большой).
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Fri Jan 22, 2010 12:57    Post subject: Reply with quote

Avada wrote:
найден способ в любом случае привести панель результатов в кратком режиме к удобочитаемому виду.
sa wrote:
А для любителей подробного режима файловой панели ... список результатов поиска сразу предстанет в привычном виде.
Не стоит только забывать, что у этого удобочитаемого и привычного вида есть существенный недостаток по сравнению с показом по Ctrl-B: сортировка файлов и подкаталогов выполняется с учётом пути (невидимого при этом!), и файлы с одинаковыми именами, например, оказываются разбросанными по списку.
Если только кто-нибудь, не превратит этот минус в плюс (по примеру Вахмурки в его "Тотальной хитрости").
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Fri Jan 22, 2010 14:11    Post subject: Reply with quote

sa
Замечание верное. Но "кто предупреждён — тот вооружён". И потом, все эти трюки являются всего лишь дополнением (да, с некоторыми издержками, но и с определёнными удобствами) к обычным способам работы. Кроме того, есть ещё такая штука как выделение всех файлов с текущим путём и последующая фильтрация в панели по критерию выделения. Правда, в панели результатов последняя операция, похоже, необратима — обратно перейти к полному списку результатов поиска уже не получится.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Fri Jan 22, 2010 14:59    Post subject: Reply with quote

Avada wrote:
Но "кто предупреждён — тот вооружён"
Я в своём пользовательском наборе а-ля "Подробный" "вооружился" дополнительной колонкой "Имя" из внутреннего tc-плагина. На панели от неё присутствует только половинка буквы И, но для задания привычной сортировки по имени этого вполне хватает.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Fri Jan 22, 2010 15:27    Post subject: Reply with quote

sa
Да, я этот трюк тоже знаю и рекомендую к применению.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Sat Feb 20, 2010 17:41    Post subject: Reply with quote

Заметил, что фокус с "кратким просмотром" результатов поиска не работает, если результат один.
Предлагаю скрипт (с использованием 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”, а также параметры нужно заменить на свои.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Tue Mar 02, 2010 10:45    Post subject: Reply with quote

Avada wrote:
При попытке переключения на краткий режим мы просто вернёмся из панели результатов поиска в стандартную файловую панель TC и потеряем все наши результаты. Это штатное поведение.
А не правильнее ли такое поведение считать не штатным, а багом? Тем более, что при переключении в любой другой режим файловой панели (подробный, эскизов, комментариев, с пользовательским набором колонок) потери результатов не наблюдается.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Tue Mar 02, 2010 12:42    Post subject: Reply with quote

sa
Не правильнее. Хотя бы потому, что утверждение про "любой другой режим" ошибочно. Возврат в стандартную панель при таком переключении происходит также для подробного режима и дерева. А режим комментариев в панели результатов вообще нормально не поддерживается. Остаются пользовательские колонки и эскизы.
Кроме того, Гислер явным образом говорил, что это фича, из которой просто предусмотрены некоторые исключения.
У меня уже с месяц как накоплен материал по всем этим нюансам, но в связи с большой загрузкой по русификации TC 7.51 сейчас нет, к сожалению, времени всё это представить в удобочитаемом виде.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Tue Mar 02, 2010 13:25    Post subject: Reply with quote

Avada wrote:
Возврат в стандартную панель при таком переключении происходит также для подробного режима
Да, насчёт подробного режима я переборщил: сказалась "полезность" скрипта Confused . Дерево вроде не упоминал.
В то же время не в пользу такой фичи говорит ситуация, когда поиск запускается из режима эскизов или пользовательских колонок: ведь в этом случае результаты поиска не теряются при переключении в том числе и на краткий и на подробный режимы панели.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Tue Mar 02, 2010 13:50    Post subject: Reply with quote

sa
А поведение с пользовательскими колонками и эскизами — это заплатки, которые Гислер по реквестам посетителей форумов постепенно добавлял для частных случаев основного функционала. Поэтому и такая чересполосица сейчас.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2124

Post (Separately) Posted: Tue Mar 02, 2010 17:50    Post subject: Reply with quote

Avada wrote:
При попытке переключения на краткий режим мы просто вернёмся из панели результатов поиска в стандартную файловую панель TC и потеряем все наши результаты. Это штатное поведение.
Ещё одна фича: вернёмся из панели результатов не в тот каталог, из которого запускали поиск, а в каталог, который открыт на противоположной(!) панели - для случая, если эти каталоги принадлежат одному диску.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 8580
Location: Россия, Саратов

Post (Separately) Posted: Thu Apr 01, 2010 13:18    Post subject: Reply with quote

Пока мы дискутировали, пришёл лесник... пардон, Гислер, и без лишних слов продемонстрировал, что он тут считает багом, а что фичей. Без лишних слов — потому что в истории версий 7.51/7.55 это изменение явным образом не описано. А состоит оно в том, что теперь переключение режима не выбрасывает из результатов поиска ни в подробном, ни в кратком режиме. Режим переключается — результаты остаются.
Чтобы действительно выйти в обычную файловую панель, надо перечитать текущее содержимое. Можно всем известными клавишами, а можно просто нажать кнопку текущего диска.
Нерешённых проблем, похоже, осталось две:
1. В результатах поиска режим комментариев включается без отображения самих комментариев.
2. На режим дерева в результатах поиска переключиться можно, а вот с него дальше — уже нет, результаты сбрасываются.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Igor_A.



Joined: 23 Mar 2006
Posts: 78

Post (Separately) Posted: Thu Apr 01, 2010 13:42    Post subject: Reply with quote

Не знаю кто как, а я крайне не доволен такой "самодержавной" уверенностью г-на Гислера в признании им старой "фичи" багом (
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы All times are GMT + 4 Hours
Goto page Previous  1, 2, 3, 4  Next
Page 2 of 4

 
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