Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor (Часть 3)

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Rodny



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
'num.vbs
'Script for Script Content Plugin
'(c)Lev Freidin, 2005
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
' by Rodny
'To search for numeric ranges in the file names:
'file1.0001.txt, file1.0002.txt, ..., file1.9999.txt,
'file2.0001.txt, file2.0002.txt, ..., file2.9999.txt, ...
'Find all file1.X.txt, file2.X.txt,..., where X are from x1 to x2
 
Dim x1, x2, Res
Set re=new regexp
 
'%%%%%%%%%%%%%% Editable settings
x1=5
x2=153
'%%%%%%%%%%%%%% /Editable settings
 
re.Pattern="(.+\.)(\d{4})(\.[^\.]+)$"
Res = CInt(re.Replace(filename,"$2"))
If (
Res>=x1) and (Res=<x2) Then content = "1" Else content = "0"
 ?  Код создан и опубликован с помощью SciTE-Ru

Всего записей: 2877 | Зарегистр. 28-07-2006 | Отправлено: 09:55 30-04-2011 | Исправлено: Rodny, 10:04 30-04-2011
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » SciTE - Open Source Text Editor (Часть 3)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru