Возникла необходимость при решении тестовой задачи получить номер документа без префикса и лидирующих нулей. Стандартные процедуры тут не подходят, так как нерационально вести таблицу префиксов. На помощь пришли регулярные выражения.
P.S. Тестирование проводилось на сервере 1С:Предприятие 8.3 (8.3.10.2561)
Обработка демонстрирует работу кода. При нажатии на кнопку в служебном сообщении будет выведен искомый номер. Под номером понимается максимально правое числовое значение строки, не начинающееся с нуля.
Функция размещается в модуле документа или любом общем модуле и вызывается просто.
НомерБезПрефиксаИНулей = ЧисловойНомер(НомерСПрефиксом)
Функция ЧисловойНомер (НомерСПрефиксом, Шаблон="[1-9]\d*", ИскатьДоПервогоСовпадения = Истина, МногоСтрок = Истина, ИгнорироватьРегистр = Истина) Экспорт
RegExp = Новый COMОбъект("VBScript.RegExp"); // создаем объект для работы с регулярными выражениями
//Заполняем данные
RegExp.MultiLine = МногоСтрок; // истина — текст многострочный, ложь — одна строка
RegExp.Global = Не ИскатьДоПервогоСовпадения; // истина — поиск по всей строке, ложь — до первого совпадения
RegExp.IgnoreCase = ИгнорироватьРегистр; // истина — игнорировать регистр строки при поиске
RegExp.Pattern = Шаблон; // шаблон (регулярное выражение)
РезультатАнализаСтроки = RegExp.Execute(НомерСПрефиксом);
Для Каждого Выражение Из РезультатАнализаСтроки Цикл
Возврат Выражение.Value;
КонецЦикла;
КонецФункции
Вступайте в нашу телеграмм-группу Инфостарт
