Пример работы с регулярными выражениями

//******************************************************************************
// ПолучитьНомераДоговоров()
//
// Параметры:
//  пСтрСтрокаСНомерами (строка) - строка с номерами договоров
//
// Возвращаемое значение:
//  Строка с номерами договоров разделенных запятыми.
//
// Описание:
//  Разбирает строку, выбирает из нее номера договоров.
//
Функция ПолучитьНомераДоговоров(пСтрСтрокаСНомерами)
		
	Попытка
		РегВыражения = СоздатьОбъект("VbScript.RegExp");	
	Исключение
		Возврат("");
	КонецПопытки;
	
	РегВыражения.Global = 1;
	РегВыражения.IgnoreCase = 1;
		
	// Получить номера договоров по ОСАГО

	// ... предварительно подготовить строку с номерами
	пСтрСтрокаСНомерами = СтрЗаменить(пСтрСтрокаСНомерами," ","");
	пСтрСтрокаСНомерами = СтрЗаменить(пСтрСтрокаСНомерами,"N","");	
	пСтрСтрокаСНомерами = СтрЗаменить(пСтрСтрокаСНомерами,"-","");	
	
	РегВыражения.IgnoreCase = 0;
	РегВыражения.Pattern = "[A|А][0-9]";

	СписокВхождений = РегВыражения.Execute(пСтрСтрокаСНомерами);	
		
	пСтрНомераДоговоров = "";
	пСтрНомерДоговора = "";

	Для А = 1 По СписокВхождений.Count Цикл
		пСтрНомерДоговора = СокрЛП(СписокВхождений.Item(А).Value);
		// ... на всякий случай замена, если были латинские символы
		пСтрНомерДоговора = "AAA" + Сред(пСтрНомерДоговора, 4);
		пСтрНомераДоговоров = пСтрНомераДоговоров + пСтрНомерДоговора + ",";
	КонецЦикла;
	
	// ...убрать последнюю запятую
	пСтрНомераДоговоров = Лев(пСтрНомераДоговоров,СтрДлина(пСтрНомераДоговоров) - 1);
			
	Возврат(пСтрНомераДоговоров);
	
КонецФункции // ПолучитьНомераДоговоров()