Функция-обертка для использования объекта VBScript.RegExp в 1С v8

кОписанная ниже функция была написана в ходе работы и взята из реального рабочего проекта.

Для понимания регуляных выражений можно почитать литературу в итернете.

Также есть простой пример работы с регулярными выражениями 165085

Для проверки регулярных выражений использую RegexBuddy

Функция выполняет 3 основных вещи:

1. Тестирование строки по шаблону

    Результат - Истина / Ложь

2. Замена в строке по шаблону

    Результат - строка

3. Получение значений найденых по шаблону:

    Результат - список значений с найденными вхождениями

Параметры:

СтрокаПоиска = ""            - строка, над которой необходимо выполнить действие
ШаблонПоиска = ""            - шаблон, по которому необходимо выполнить действие
Отладка = 0                  - выводить отладочные сообщения при внедрении функции
ВывестиГруппы = Ложь         - в случае работы с группами в выражениях формируютя группы найденых значений
Тестировать = Ложь           - выполнить тестирование по шаблону
RegExp = Неопределено        - при частом использовании функции (в циклах) падает производительность лучше заранее определить СОМ-объект и передавать в качестве параметра
СоздаватьКомОбъект = Истина  - управление необходимостью создания нового СОМ-объект внутри функции
ВыполнитьЗамену = Ложь       - выполняется замена в строке поиска 
СтрокаЗамены = ""            - строка на которую будут заменены найденные выражения

Сама функция:

Функция глRegExp(СтрокаПоиска = ""
                ,ШаблонПоиска = ""
                ,Отладка = Ложь
                ,ВывестиГруппы = Ложь
                ,Тестировать = Ложь
                ,RegExp = Неопределено
                ,СоздаватьКомОбъект = Истина
                ,ВыполнитьЗамену = Ложь
                ,СтрокаЗамены = "") Экспорт
    спкРезультат = Новый СписокЗначений;
    Если (СтрокаПоиска = "") ИЛИ (ШаблонПоиска = "") Тогда
        спкРезультат.Добавить("");
        Возврат спкРезультат;
    КонецЕсли;

    Если СоздаватьКомОбъект Тогда
        RegExp = Новый COMОбъект("VBScript.RegExp");
    КонецЕсли;

    RegExp.IgnoreCase = Истина; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Истина; //Многострочный режим

    RegExp.Pattern = ШаблонПоиска;

    Если Тестировать Тогда
        Возврат RegExp.Test(СтрокаПоиска);
    КонецЕсли;

    Если ВыполнитьЗамену Тогда
        Возврат RegExp.Replace(СтрокаПоиска,СтрокаЗамены);
    КонецЕсли;

    Matches=RegExp.Execute(СтрокаПоиска);
    ЧислоВхождений=Matches.Count();
    Если ЧислоВхождений>0 Тогда
        Для к = 0 По ЧислоВхождений-1 Цикл
            Match = Matches.Item(к);
            Если ВывестиГруппы Тогда
                ЧислоВложВхождений = Match.SubMatches.Count();
                Если ЧислоВложВхождений > 0 Тогда
                    подСписок = Новый СписокЗначений;
                    Для к2 = 0 По ЧислоВложВхождений-1 Цикл
                        SubMatch = Match.SubMatches.Item(к2);
                        подСписок.Добавить(SubMatch);
                        Если Отладка Тогда
                            Сообщить("Результат: " + SubMatch + " Шаблон: " + ШаблонПоиска + " Строка поиска: " + СтрокаПоиска);
                        КонецЕсли;
                    КонецЦикла;
                    спкРезультат.Добавить(подСписок,Match.Value);
                    Продолжить;
                КонецЕсли;
            Иначе
                спкРезультат.Добавить(Match.Value);
                Если Отладка Тогда
                    Сообщить("Результат: " + Match.Value + " Шаблон: " + ШаблонПоиска + " Строка поиска: " + СтрокаПоиска);
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
    Иначе
        Если Отладка Тогда
            //Сообщить("Вхождений шаблона не найдено - " + ШаблонПоиска);
        КонецЕсли;
    КонецЕсли;

    Если спкРезультат.Количество() = 0 Тогда
        спкРезультат.Добавить("");
    КонецЕсли;

    Возврат спкРезультат;

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

Примеры использования:

а) Тестирование и получение по отдельным группам значений даты: 

    лRegExp = Новый COMОбъект("VBScript.RegExp");
    _ШаблонДДММГГ = "\b(0?[1-9]|[12][0-9]|3[01])[- /.](0?[1-9]|1[012])[- /.]((19|20)?[0-9]{2})\b";
    _СтррокаСДатой = "12.08.3013 г.";
    Если глRegExp(_СтррокаСДатой,_ШаблонДДММГГ,,,Истина,лRegExp,Ложь) Тогда // проверка даты "дд.мм.гг(гг)"
        // брать группы для даты Дата(2,1,0)
        _спкГрупп = глRegExp(_СтррокаСДатой,_ШаблонДДММГГ,,Истина,,лRegExp,Ложь)[0].Значение;
        _ОжидаемаяДатаПоставки = Дата(Число(_спкГрупп[2].Значение)
                                     ,Число(_спкГрупп[1].Значение)
                                     ,Число(_спкГрупп[0].Значение));
    Иначе
        _ОжидаемаяДатаПоставки = Дата("00010101");
    КонецЕсли;

б) Замена по шаблону:

    лСтрока = "Пример строки с заменой ""двойных"" кавычек на 'одинарные'";
    лСтрока = глRegExp(лСтрока,"""",,,,,,Истина,"'");