Регулярные выражения

Тынц

Функция СтрТестРВ(прСтрока,РегВыражение,RegExp=Неопределено)

Если RegExp = Неопределено Тогда
RegExp = New COMОбъект("VBScript.RegExp");
КонецЕсли;

RegExp.Global = Ложь;
RegExp.Pattern = РегВыражение;

Возврат RegExp.Test(прСтрока);
КонецФункции