timsson
А в какой кодировке файлы? Я делал скрипт для Script Content Plugin для диапазона чисел в именах файлов. Можно попробовать переделать под чтение из списка.
Добавлено:
В предположении обычного ANSI родился такой вот уродец
[more=num_content_ansi.vbs]
Код:
'==============================================================================
'num_content.vbs
'Script for Script Content Plugin (c)Lev Freidin, 2005-2013
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
' by Rodny
'http://forum.ru-board.com/topic.cgi?forum=5&topic=45288&start=2720#13
'Find all files that contain only "X", where X from x1 to x2
'
'File's content like:
'1111456789
'1111456789
'1113456789
'1114356785
'1115456789
'==============================================================================
Dim x1, x2, Nums, N, FSO, temp
Set FSO = CreateObject("Scripting.FileSystemObject")
'%%%%%%%%%%%%%% Editable settings
x1=1111456789
x2=1113456789
'%%%%%%%%%%%%%% /Editable settings
x1 = CLng(x1)
x2 = CLng(x2)
content = "1"
temp = "1"
Nums = Split(FSO.OpenTextFile(filename).ReadAll, vbNewLine)
For Each N in Nums
N = Trim(N)
If (N > vbNullString) Then
N = CLng(N)
If ((N<x1) Or (N>x2)) Then temp = "0" End If
End If
Next
content = temp
Set FSO = Nothing
А в какой кодировке файлы? Я делал скрипт для Script Content Plugin для диапазона чисел в именах файлов. Можно попробовать переделать под чтение из списка.
Добавлено:
В предположении обычного ANSI родился такой вот уродец
[more=num_content_ansi.vbs]
Код:
'==============================================================================
'num_content.vbs
'Script for Script Content Plugin (c)Lev Freidin, 2005-2013
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
' by Rodny
'http://forum.ru-board.com/topic.cgi?forum=5&topic=45288&start=2720#13
'Find all files that contain only "X", where X from x1 to x2
'
'File's content like:
'1111456789
'1111456789
'1113456789
'1114356785
'1115456789
'==============================================================================
Dim x1, x2, Nums, N, FSO, temp
Set FSO = CreateObject("Scripting.FileSystemObject")
'%%%%%%%%%%%%%% Editable settings
x1=1111456789
x2=1113456789
'%%%%%%%%%%%%%% /Editable settings
x1 = CLng(x1)
x2 = CLng(x2)
content = "1"
temp = "1"
Nums = Split(FSO.OpenTextFile(filename).ReadAll, vbNewLine)
For Each N in Nums
N = Trim(N)
If (N > vbNullString) Then
N = CLng(N)
If ((N<x1) Or (N>x2)) Then temp = "0" End If
End If
Next
content = temp
Set FSO = Nothing