//Первый вариант: встроенные функции 8.3.23
Текст = "AaaA" + Символы.ПС + "aaaA";
РегВыражение = "^(a+)$";
ИгнорироватьРегистр = Истина;
МногострочныйПоиск = Истина;

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

Сообщить(Результат.Значение);

//Второй вариант: COM, только в ОС Windows
RegExp = Новый COMОбъект("VBScript.RegExp");
//Поиск всех совпадений
RegExp.Global = Истина;
//Многострочный режим
RegExp.Multiline = Истина;
//Не учитывать регистр символов
RegExp.IgnoreCase = Истина;
RegExp.Pattern = "^(a+)$";

Matches = RegExp.Execute(Текст);
//Matches.Item(0).Value = "AaaA"

Сообщить(Matches.Item(0).Value);