Back to top

Привести номер к длине

Опубликовано e-1c@mail.ru - ср, 08/24/2016 - 04:49

Распространенное явление когда нужно сформировать строку заданной длинны с заполнением её первых (ведущих) символов нулями
Для этого можно использовать функцию встроенного языка Формат().

Функция ДобавитьНули(Значение, НужнаяДлинаЗначения)
 
Значение = СтрЗаменить(Формат(Значение, "ЧГ="), " ", "");
НадоНулей = НужнаяДлинаЗначения - СтрДлина(Значение);
ВедущиеНули = Формат(0,"ЧЦ="+НадоНулей+";ЧН=; ЧВН=; ЧГ=0");
Возврат ВедущиеНули + Значение;
 
КонецФункции

Чтобы убрать Ведущие нули, делаем это в цикле:

 
Пока Лев(Номер, 1) = "0" Цикл 
    Номер = Прав(Номер, СтрДлина(Номер) - 1);
КонецЦикла;