Тынц
Функция СтрТестРВ(прСтрока,РегВыражение,RegExp=Неопределено)
Если RegExp = Неопределено Тогда
RegExp = New COMОбъект("VBScript.RegExp");
КонецЕсли;
RegExp.Global = Ложь;
RegExp.Pattern = РегВыражение;
Возврат RegExp.Test(прСтрока);
КонецФункции
Функция СтрТестРВ(прСтрока,РегВыражение,RegExp=Неопределено)
Если RegExp = Неопределено Тогда
RegExp = New COMОбъект("VBScript.RegExp");
КонецЕсли;
RegExp.Global = Ложь;
RegExp.Pattern = РегВыражение;
Возврат RegExp.Test(прСтрока);
КонецФункции