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 

Как создать фильтр по первым трем символам в названии файла

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Thu Nov 12, 2009 13:10    Post subject: Как создать фильтр по первым трем символам в названии файла Reply with quote

Здравствуйте.
Помогите с фильтром пожалуйста.
Нужно, что бы он брал первые 3 символа из имени файла под курсором. И показывал файлы с именами, начинающимися на эти 3 символа.
И можно ли такой фильтр на кнопку повесить?
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Nov 12, 2009 13:44    Post subject: Reply with quote

Code:
'  File:         FirstThree.vbs
'  Description:  Фильтр xxx*
'  Parameters:   %N
'  Requirements: WSH Helper for TC by Volniy
'  Installation: Создайте для скрипта, например, кнопку на панели TC
'  Autor:        Tol!k

Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")

If WScript.Arguments.Count = 0 Then
  MsgBox "Смотри, куда курсор ставишь!", vbExclamation, "Окосел?"
  WScript.Quit()
End If

TCS.Pause = 100
TCS.SendCommand "cm_SrcUserDef", False
TCS.SendKeystroke Left(WScript.Arguments(0), 3) & "*"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit


Last edited by Tol!k on Sat Nov 21, 2009 19:21; edited 5 times in total
Back to top
View user's profile Send private message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Thu Nov 12, 2009 13:51    Post subject: Reply with quote

[quote="Tol!k"]
Спасибо. А что с этим добром делать?
Если можно, подробно.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Nov 12, 2009 14:21    Post subject: Reply with quote

Установить "WSH Helper" (если еще не установлен);
Сохранить код в текстовый файл, сменить расширение на .vbs ;
Перетащить файл на свободное место на панели инструментов ;
Установить курсор на интересующий файл, нажать кнопку ;
Для показа всех файлов нажать Ctrl+F10
Back to top
View user's profile Send private message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Thu Nov 12, 2009 14:50    Post subject: Reply with quote

спасибо.
нашел http://wincmd.ru/plugring/script_helper.html
это оно? или есть посвежее версия?
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Nov 12, 2009 14:54    Post subject: Reply with quote

Оно. Свежее нет
Back to top
View user's profile Send private message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Thu Nov 12, 2009 16:51    Post subject: Reply with quote

Спасибо, все работает. Еще просьба.
А можно ли добавить проверку , что находится под курсором?
если файл, то -> скриптик выполнить.
а если .. (две точки, выход из подкаталога), тогда ALERT!!!
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Thu Nov 12, 2009 20:14    Post subject: Reply with quote

Исправь строку
TCS.SendCommand "cm_CopyNamesToClip", True
Back to top
View user's profile Send private message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Fri Nov 13, 2009 10:14    Post subject: Reply with quote

не помогло.
Сначала появляется окно "Нет выбранных файлов", а потом скрипт продолжает выполняться и вставляет последнее значение из буфера.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Fri Nov 13, 2009 14:47    Post subject: Reply with quote

Обновил. Параметры: %N
Забыл удалить строку TCS.SendCommand "cm_CopyNamesToClip", True
Теперь действительно не портит содержимое буфера обмена


Last edited by Tol!k on Fri Nov 13, 2009 19:42; edited 1 time in total
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Fri Nov 13, 2009 16:34    Post subject: Reply with quote

Tol!k wrote:
MsgBox "Смотри, куда курсор ставишь!", vbExclamation, "Окосел?"

5 баллов!!! Very Happy

Сорри, за оффтоп - не удержался Rolling Eyes
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
moroz90



Joined: 22 Oct 2009
Posts: 36

Post (Separately) Posted: Mon Nov 16, 2009 09:42    Post subject: Reply with quote

Ай спасибо. Работает!!
"Окосел?" - радует Smile)
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
Page 1 of 1

 
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