RegExp.РазобратьТекст

&НаКлиентеНаСервереБезКонтекста
Функция РазобратьТекст(ИсходныйТекст, Шаблон)
	
	Попытка
		RegExp = Новый COMОбъект("VBScript.RegExp");
	Исключение
		Возврат Новый Массив;
	КонецПопытки;
	
	RegExp.Multiline  = Истина;
	RegExp.Global     = Истина;
	RegExp.IgnoreCase = Истина;
	RegExp.Pattern    = Шаблон;
	
	РезультатРазбора = RegExp.Execute(ИсходныйТекст);
	Результат        = Новый Массив;
	Для каждого Item Из РезультатРазбора Цикл
		Результат.Добавить(Item.Value);
	КонецЦикла; 
	
	Возврат Результат
	
КонецФункции