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

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


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

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

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

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

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

в Четверг сентября 17 от Администратор
Было ли это полезно?