View previous topic :: View next topic |
Author |
Message |
moroz90
Joined: 22 Oct 2009 Posts: 36
|
(Separately) Posted: Thu Nov 12, 2009 13:10 Post subject: Как создать фильтр по первым трем символам в названии файла |
|
|
Здравствуйте.
Помогите с фильтром пожалуйста.
Нужно, что бы он брал первые 3 символа из имени файла под курсором. И показывал файлы с именами, начинающимися на эти 3 символа.
И можно ли такой фильтр на кнопку повесить? |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Nov 12, 2009 13:44 Post subject: |
|
|
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 |
|
|
moroz90
Joined: 22 Oct 2009 Posts: 36
|
(Separately) Posted: Thu Nov 12, 2009 13:51 Post subject: |
|
|
[quote="Tol!k"]
Спасибо. А что с этим добром делать?
Если можно, подробно. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Nov 12, 2009 14:21 Post subject: |
|
|
Установить "WSH Helper" (если еще не установлен);
Сохранить код в текстовый файл, сменить расширение на .vbs ;
Перетащить файл на свободное место на панели инструментов ;
Установить курсор на интересующий файл, нажать кнопку ;
Для показа всех файлов нажать Ctrl+F10 |
|
Back to top |
|
|
moroz90
Joined: 22 Oct 2009 Posts: 36
|
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Nov 12, 2009 14:54 Post subject: |
|
|
Оно. Свежее нет |
|
Back to top |
|
|
moroz90
Joined: 22 Oct 2009 Posts: 36
|
(Separately) Posted: Thu Nov 12, 2009 16:51 Post subject: |
|
|
Спасибо, все работает. Еще просьба.
А можно ли добавить проверку , что находится под курсором?
если файл, то -> скриптик выполнить.
а если .. (две точки, выход из подкаталога), тогда ALERT!!! |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Thu Nov 12, 2009 20:14 Post subject: |
|
|
Исправь строку
TCS.SendCommand "cm_CopyNamesToClip", True |
|
Back to top |
|
|
moroz90
Joined: 22 Oct 2009 Posts: 36
|
(Separately) Posted: Fri Nov 13, 2009 10:14 Post subject: |
|
|
не помогло.
Сначала появляется окно "Нет выбранных файлов", а потом скрипт продолжает выполняться и вставляет последнее значение из буфера. |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Fri Nov 13, 2009 14:47 Post subject: |
|
|
Обновил. Параметры: %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 |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
(Separately) Posted: Fri Nov 13, 2009 16:34 Post subject: |
|
|
Tol!k wrote: | MsgBox "Смотри, куда курсор ставишь!", vbExclamation, "Окосел?" |
5 баллов!!!
Сорри, за оффтоп - не удержался _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
moroz90
Joined: 22 Oct 2009 Posts: 36
|
(Separately) Posted: Mon Nov 16, 2009 09:42 Post subject: |
|
|
Ай спасибо. Работает!!
"Окосел?" - радует ) |
|
Back to top |
|
|
|