Здр!
Помогите обрезать код номенклатуры.
Сейчас формат может быть или ГА-00000691 или 00-00000012 (ГА или 00) спереди. Для выгрузки на сайт нужно удалить спереди первые 3 символа и все нули, так, что бы остались только цифры начиная с 1 и до 9. Т.е. из 00-00000012 сделать просто "12", а из ГА-00000691 сделать "691". Кол-во нулей спереди разное всегда. https://yadi.sk/i/SYMLKimDj96Fx

Спасибо!

Сред(), Формат()

+(1) получить номер на печать, спинной мозг

Вариант Число(сред(Номер,4)) - только если дальше попадутся буквы - будет ошибка

ОбрезанныКод = Формат(Число(СтрПолучитьСтроку(СтрЗаменить(Код,"-",Символы.ПС),2)),"ЧГ=");

(0) Универсально можно сделать так: цикл перебора символов начиная с конца строки к началу. Как только встречается первое не число цикл прервать и Формат(Число()) от того что получено в цикле.

Проверить на цифру можно например так:
Если Найти("0123456789", ТекСимвол) > 0

(0) "Кол-во нулей спереди разное всегда" - зато длина кода - число постоянное. Намёк понят?

(2) +1

(5) Перебор с начала к концу ни чем не хуже (подначил)

"Написать алгоритм сложнее всегда проще, чем наоборот"(я)

(7) Не плюсуй. В типовой функции из документа номер (а не код из справочника). Переделывать нет смысла.

Типовая функция из типовой конфигурации - выделение числа из строки, где число - в начале строки:

Функция ВыделитьЧислоИЗСтроки(СтрокаСимволов)
    
    Набор = "0";
    
    Для Индекс = 1 По СтрДлина(СтрокаСимволов) Цикл
        Если КодСимвола(СтрокаСимволов, Индекс) >= 48 И КодСимвола(СтрокаСимволов, Индекс) <= 57 Тогда
            Набор = Набор + Сред(СтрокаСимволов, Индекс, 1);
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    Возврат Число(Набор);
    
КонецФункции

(8) > Перебор с начала к концу ни чем не хуже

поделись вариантом

Как то все сложно. Первые 3 символа можно просто отрезать, а потом убрать все нули. Как удалить именно нули спереди? И как этот код потом вставить в выгрузку? https://yadi.sk/i/SYMLKimDj96Fx

(10) Функция, аналогичная (9), но число - в конце строки:

Функция ВыделитьИзСтрокиЧисло(СтрокаСимволов)
    
    Набор = "0";
    
    Для Индекс = 1 По СтрДлина(СтрокаСимволов) Цикл
        Если КодСимвола(СтрокаСимволов, Индекс) >= 48 И КодСимвола(СтрокаСимволов, Индекс) <= 57 Тогда
            Набор = Набор + Сред(СтрокаСимволов, Индекс, 1);
        Иначе
            Набор = "0";
        КонецЕсли;
    КонецЦикла;
    
    Возврат Число(Набор);
    
КонецФункции

(11) Не читатель? См.(3) - преобразование в число "отрезает" ведущие нули.

(12) если префикс будет "01-" ?

Может у него такого и нет, (5) в этом смысле более универсально

(11) >Как то все сложно
дело в том, что программирование предполагает наличие мозга. в данной задаче ну хоть какого-нибудь

Если в самом начале отрезать первые 3 символа то останутся только цифры

(11) > Как то все сложно.

(

Вот вариант без преобразования в число:

СтрЗаменить(СокрЛ(СтрЗаменить(Сред(Код, 4), "0", " ")), " ", "0")

(14) А ты проверь (12). Встретив "-" набор будет сброшен в ноль и продолжен далее.

(19) ок

(18) во что оно превратит "мама родная"?

(21) В ноль

(21) в "а0родная"

(22) а правильно было бы в ноль, да

(21) Оно маму родную превращает в абракадабру :)

Преобразование в число добавляет к коду пробел на каждую тысячу (вместо 1180 пишет 1 180). Как обратно в строку преобразовать?

"Преобразование в число добавляет к коду пробел"

Ничего никуда не добавляет.
А если кому добавляет - могу продать резиновую киянку. Для рихтования рук.

(26) форматом

кстати, да. сколько получается после добавления?

При таком коде СтрЗаменить(Строка(Число(Сред(Номенклатура.код, 4))), " ", "")

в выгрузку попадает <Артикул>1 108</Артикул>
А мне пробел этот не нужен, как его убрать?

(30)
давай до завтра оставим.

В итоге вот такая строка решила проблему, всем спасибо Формат(Число(Сред(Номенклатура.код, 4)), "ЧГ=")

Нужно ли ее обратно в строку переводить?

(32) Ты, главное, не читай справку...
Особенно пояснения по возвращаемому функцией типу значения...

2 (32)

(31)+1

УниверсальныйПодборИОбработкаОбъектов.epf