Использование регулярных выражений в RSL (и не только)

Автор:Izmajlov
Дата:25.04.2011
Просмотров:4151
Скачиваний:1708
Оценка:, Оценок - 3

Описание

Текст примера

 /*
Пример, иллюстрирующий применение регулярных выражений в RSL-е. 
В более общем плане - как можно исполнять код написанный на WSH (VbScript, JScript, etc)
*/
obj=ActiveX("MSScriptControl.ScriptControl",true);
obj.language = "VBscript";
/* короткие функции можно конввертировать в строку, а длинные лучше импортировать из файла. */
s = "Function RegExpTest(strng)\nDim regEx\nSet regEx=New RegExp\nregEx.Pattern=\"#\\w+#\"\nregEx.IgnoreCase=True\nregEx.Global=True\nRegExpTest=regEx.Test(strng)\nEnd Function";
obj.AddCode(s);

/* функция на VBS
как это выглядит в оригинальном написании.
Function RegExpTest(strng)
	Dim regEx
	Set regEx=New RegExp	
	regEx.Pattern="#\w+#"
	regEx.IgnoreCase=True
	regEx.Global=True
	RegExpTest=regEx.Test(strng)
End Function
*/
str = "#rsl&";
str = "#rsl#";

if(not obj.Modules("Global").CodeObject.RegExpTest(str))
	msgBox("Yes");
else
	msgBox("No");
end;