Batya
|
Posted: Fri Oct 19, 2012 14:41 Post subject: |
|
|
Используем Script Content Plugin.
Содержимое script.ini:
Код:
Code: | [Script]
Section=General
[General]
LongName=0
ParseDirs=0
Script=General.vbs |
В каталоге плагина должен лежать файл General.vbs с содержимым:
Code: | '===========================================================================
' Колонка Result возвращает признак наличия файла\каталога в указанном файле-списке:
' 0 - файл\каталог НЕ найден; 1 - файл\каталог найден
'===========================================================================
'========== Изменяемые параметры ===========================================
Const FileList = "D:/Data.txt" 'Файл-список
'===========================================================================
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
content = Result
Set FSO = Nothing
Function Result
Dim List, dlm
Result = 0
If Not FSO.FileExists(FileList) Then
Exit Function
End If
On Error Resume Next
List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
If Err.Number <> 0 Then
Exit Function
End If
On Error GoTo 0
dlm = vbNewLine
If InStr(1, dlm & List & dlm, dlm & FSO.GetBaseName(filename) & dlm, vbTextCompare) > 0 Then
Result = 1
End If
End Function |
Как пользоваться для поиска.
Для выделения меняются пункты:
6. Нажать клавишу Num+. Нажать кнопку "Шаблон..."
13. Нажать "Записать". Ввести имя нового шаблона поиска, нажать "ОК". Нажать "ОК" для выбора шаблона.
14. Радоваться выделению файлов. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|