//Первый вариант: встроенные функции 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));
//Сообщает: Да
// Да
// Нет