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

&НаКлиентеНаСервереБезКонтекста
Функция РазобратьТекст(ИсходныйТекстШаблон)

Попытка
RegExp = Новый COMОбъект(«VBScript.RegExp»);
Исключение
Возврат Новый 
Массив;
КонецПопытки;

RegExp.Multiline  = Истина;
RegExp.Global     = Истина;
RegExp.IgnoreCase = Истина;
RegExp.Pattern    Шаблон;

РезультатРазбора RegExp.Execute(ИсходныйТекст);
Результат        = Новый Массив;

Для каждого Item Из РезультатРазбора Цикл
Результат.Добавить(Item.Value);
КонецЦикла;

Возврат Результат

КонецФункции

Добавить комментарий

Ваш e-mail не будет опубликован.

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.