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

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

//НачальнаяПозиция = 0 значит "не найдено"
Результат = СтрНайтиПоРегулярномуВыражению(
    Строка1, РегВыражение);
Совпадение1 = Результат.НачальнаяПозиция > 0;
//Совпадение1 = Истина

Результат = СтрНайтиПоРегулярномуВыражению(
    Строка2, РегВыражение);
Совпадение2 = Результат.НачальнаяПозиция > 0;
//Совпадение2 = Истина

Результат = СтрНайтиПоРегулярномуВыражению(
    Строка3, РегВыражение);
Совпадение3 = Результат.НачальнаяПозиция > 0;
//Совпадение3 = Ложь

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

//Второй вариант: COM, только в ОС Windows
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern = "a+b";

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

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