Rodny
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
'==============================================================================
'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 |
Сохранить как "num_content.vbs" в папку к плагину.
В script.ini указать что-нибудь вроде
Код: [Script]
Section=num_content
[num_content]
Script=num_content.vbs |
В TC запустить поиск с плагинами, задать: script.Result=1
|
Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 19:53 14-03-2014 | Исправлено: Rodny, 19:53 14-03-2014 |
|
