Batya
|
 Posted: Wed Jun 04, 2008 14:36 Post subject: |
 |
|
Вообщем, надо "отделить мух от котлет".
Если нужно искать дубликаты - это одно. См. советы выше.
Если нужен поиск по списку, то используем Script Content Plugin.
Содержимое script.ini: | Code: | [Script]
Section=General
[General]
LongName=0
ParseDirs=1
Script=General.vbs |
В каталоге плагина должен лежать файл General.vbs с содержимым:
| Code: | '============================
' Колонка Result будет возвращать признак наличия файла\каталога в указанном файле-списке:
' 0 - файл\каталог НЕ найден; 1 - файл\каталог найден
'=== Изменяемые параметры ===
Const FileList = "C:\FileList.txt" 'Файл-список
'============================
Dim FSO, List, QuitFlag
Const ForReading = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
QuitFlag = False
content = 0
If Not FSO.FileExists(FileList) Then
Quit
End If
If Not QuitFlag Then
On Error Resume Next
List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
If Err.Number <> 0 Then
Quit
End If
On Error GoTo 0
End If
If Not QuitFlag Then
If InStr(1, vbNewLine & List & vbNewLine, vbNewLine & filename & vbNewLine, vbTextCompare) > 0 Then
content = 1
End If
End If
Quit
Sub Quit
QuitFlag = True
Set FSO = Nothing
End Sub |
Здесь константе FileList надо присвоить значение полного пути к файлу-списку.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
