Рубрика "Usefullness" (полезности) - рабочие кусочки кода, которыми активно пользуюсь во время работы. Знаете, меня кажется у каждого программиста есть такие "выручалочки". Сегодня хочу поделиться с вами кусочком, который поможет отделить ненужные буквы и нули от номера документа. Например это очень актуально для присвоения нужного номера ТТН Для Ном = 1 По СтрДлина(Номер) Цикл
ПерваяЦифра = Найти("123456789",Сред(Номер,Ном,1));
Если ПерваяЦифра <> 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
НомерТТН = Сред(Номер,Ном); Продуктивной нам недели!)
Рубрика "Usefullness" (полезности) - рабочие кусочки кода, которыми активно пользуюсь во время работы.
Знаете, меня кажется у каждого программиста есть такие "выручалочки".
Сегодня хочу поделиться с вами кусочком, который поможет отделить ненужные буквы и нули от номера документа.
Например это очень актуально для присвоения нужного номера ТТН
Для Ном = 1 По СтрДлина(Номер) Цикл
ПерваяЦифра = Найти("123456789",Сред(Номер,Ном,1));
Если ПерваяЦифра <> 0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;
НомерТТН = Сред(Номер,Ном);
Продуктивной нам недели!)