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

//Первый вариант: встроенные функции 8.3.23
Строка1 = "aaab";
Строка2 = "aaaba";
РегВыражение = "a+b";

Совпадение1 = СтрПодобнаПоРегулярномуВыражению(
    Строка1, РегВыражение);
//Совпадение1 = Истина

Совпадение2 = СтрПодобнаПоРегулярномуВыражению(
    Строка2, РегВыражение);
//Совпадение2 = Ложь

Сообщить(Строка(Совпадение1));
Сообщить(Строка(Совпадение2));
//Сообщает: Да
//          Нет

//Второй вариант: COM, только в ОС Windows
//отдельной проверки нет, всю строку
//задают якорями ^ и $
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern = "^a+b$";

Совпадение1 = RegExp.Test(Строка1);
//Совпадение1 = Истина

Совпадение2 = RegExp.Test(Строка2);
//Совпадение2 = Ложь

Сообщить(Строка(Совпадение1));
Сообщить(Строка(Совпадение2));
//Сообщает: Да
//          Нет