|
Функция удаления лидирующих нулей обходит символы строки с лева на право, до тех пор пока не встретится символ отличный от нуля. Как только встречается символ не равный нулю, берется часть строки начиная с этого символа и до конца строки. Если входящая строка "000016", функция вернет "16".
Функция УдалитьЛидирующиеНули(Номер)
Для Индекс = 1 По СтрДлина(Номер) Цикл
Если Сред(Номер, Индекс, 1) <> "0" Тогда
Возврат Сред(Номер, Индекс);
КонецЕсли;
КонецЦикла;
//Если все нули
Возврат "";
КонецФункции
|
