Skip to content

Расширение (Native API) 1С:Предприятие для работы с регулярными выражениями

Notifications You must be signed in to change notification settings

IgorKilipenko/regexp-addin

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

40 Commits
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Repository files navigation

Регулярные выражения для платформы 1С:Предприятие 8.3 (AddIn Native API)

Поддерживаемые платформы:

  • Linux (x86, x86-64)
  • Windows (x86, x86-64)

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

Подключение компоненты на клиенте:
&НаКлиенте
Асинх Функция ПодключитьВК()
    результат = Новый Структура("Успех, ТекстОшибки", Истина, "");

    путьФайла = "ОбщийМакет.РегулярныеВыраженияВК";
    имяВК = "РегулярныеВыражения";

    подключено = Ждать ПодключитьВнешнююКомпонентуАсинх(
            путьФайла,
            имяВК, ТипВнешнейКомпоненты.Native);

    Если подключено = Ложь Тогда
        Ждать УстановитьВнешнююКомпонентуАсинх(путьФайла);
        подключено = Ждать ПодключитьВнешнююКомпонентуАсинх(путьФайла, имяВК, ТипВнешнейКомпоненты.Native);

        Если подключено = Ложь Тогда
            результат.Успех = Ложь;
            результат.ТекстОшибки = "Ошибка подключение внешней компоненты";
        КонецЕсли;

        Возврат результат;
    КонецЕсли;

    Возврат результат;
КонецФункции

&НаКлиенте
Асинх Функция ЗаменитьТекстАсинх(Знач исходныйТекст, Знач шаблонВыражения, Знач текстЗамены, Знач искатьВсеСоответствия = Ложь)
    результатПодключения = Ждать подключить(
            "ОбщийМакет.РегулярныеВыраженияВК",
            "РегулярныеВыражения");

    Если результатПодключения.Успех = Ложь Тогда
        сообщение = Новый СообщениеПользователю;
        сообщение.Текст = результатПодключения.ТекстОшибки;
        сообщение.Сообщить();

        Возврат;
    КонецЕсли;

    РегВыраженияВК = Новый("Addin.РегулярныеВыражения.RegExp");
    результатЗамены = Ждать РегВыраженияВК.ЗаменитьТекстАсинх(
            исходныйТекст,
            шаблонВыражения,
            текстЗамены,
            искатьВсеСоответствия);

    Возврат результатЗамены.Значение;
КонецФункции
&НаКлиенте
Асинх Процедура Тест()
    ожидаемыйРезультат = "123-456-7890";
    результатЗамены = ЗаменитьТекстАсинх("1234567890", "([0-9]{3})([0-9]{3})([0-9]{4})", "$1-$2-$3");

    сообщение = Новый СообщениеПользователю;
    результатТеста = ?(результатЗамены = ожидаемыйРезультат, "Успех", "Неудача");
    сообщение.Сообщить();
КонецПроцедуры

About

Расширение (Native API) 1С:Предприятие для работы с регулярными выражениями

Topics

Resources

Stars

Watchers

Forks

Packages

No packages published