Народ, докатился до того, что не могу решить простую задачку, помогите плз. БП 2,0. Имеется в отчёте "кассовая книга" номера РКО и ПКО в формате Префикс (2 или 4 буквы) + ноли + собсна номер . всего 11 символов...
Задача проста. Написать функцию, отсекающую все символы слева, оставляющую номер в чистом виде... Прошу помощи))

ПолучитьНомерНаПечать?

Число(Сред(стр,2))

(1) она не срабатывает по какой то причине. я хотел просто дописать маленькую функцию

(2) а номер если больше 2х символов будет?

(3) Число(Сред(стр,3))

(3) Функция ПолучитьНомерБезПрефиксовИНулей(НомерСПрефиксамиИНулями)
Пока СтрДлина(НомерСПрефиксамиИНулями) > 0 Цикл

НомерСПрефиксамиИНулями = Сред(НомерСПрефиксамиИНулями, 1);

Попытка
НомерБезПрефиксовИНулей = Число(НомерСПрефиксамиИНулями);
Прервать;
Исключение
НомерБезПрефиксовИНулей = 0;
Продолжить;
КонецПопытки;
КонецЦикла;

возврат НомерБезПрефиксовИНулей;

КонецФункции

(5) Книга знаний: Метод Рупора

(5) а это зачем?
НомерБезПрефиксовИНулей = 0;

+(7) мне кажется это перед циклом надо было прописать

(7) Не подумал, тысяча извинений. Всё остальное норм? Нравится?

(5) а буквенный префикс тоже тут уберётся?

(10) Префикс, как таковой, только буквенный и бывает.

(11) не так написал. префикс тоже должен убраться? просто я попробовал, начал ругаться на Число...

(12) Потому что ты не поместил в "попытку".

(13)что именно не поместил в Попытку?

(14) Преобразование к типу "Число".

(15) Функция ПолучитьНомерНаПечать(НомерСПрефиксамиИНулями)
        
        НомерБезПрефиксовИНулей = 0;
        
        Пока СтрДлина(НомерСПрефиксамиИНулями) > 0 Цикл
            
            НомерСПрефиксамиИНулями = Сред(НомерСПрефиксамиИНулями, 1);
            
            Попытка
                НомерБезПрефиксовИНулей = Число(НомерСПрефиксамиИНулями);
                Прервать;
            Исключение
                Продолжить;
            КонецПопытки;
        КонецЦикла;
        
        возврат НомерБезПрефиксовИНулей;
        
    КонецФункции

Преобразование значения к типу Число не может быть выполнено

(16) Ты отладкой смотришь?

(17) да. я помоему неправильно её вызываю...

(18) Забей на отладку.

(18) хотя нет, правильно..

(19) если забиваю на отладку, вешается кассовая книга наглухо

(19) как я понял, он ругается, что в номере есть буквы, а они числом не являются

(0) Удалить первые символы не встречающиеся в строке 0987654321, все что осталось - преобразовать к числу. Если  вас только бухи не любят баловаться заменой "0" на "O".

Слово = "";
ДлинаСтроки = СтрДлина(НомерДок);
Для сч = 1 По ДлинаСтроки Цикл

сим = сред(НомерДок, сч, 1);

Если Найти("0987654321", сим) > 0 Тогда
Слово = Слово + сим;
КонецЕсли;

КонецЦикла;

Попытка
НомерЧислом = Число(Слово);
Исключение
НомерЧислом = 0;
КонецПопытки

Возврат НомерЧислом


Как-то так

(23)я пробовал вот так
ГотоваяСтрока = "";
КоличествоСимволов = СтрДлинна (Номер);

Для НомерСимвола=1 ПО КоличествоСимволов Цикл
мКод = КодСимвола (Сред (Номер,  НомерСимвола,1);
Если мКод< 57 Или мКод> 49 Тогда

ГотоваяСтрока=ГотоваяСтрока+Сред (Номер,  НомерСимвола,1);
Конецесли;
КонецЦикла;
Возврат ГотоваяСтрока;

(25) Тогда по идее осталось

Попытка
НомерЧислом = Число(ГотоваяСтрока);
Исключение
НомерЧислом = 0;
КонецПопытки

Возврат НомерЧислом


Чтоб нули убрать, и заодно проверить что в самом номере нет букв.

Возьми вместо ваяния своего лисапеда готовую обработку по сверке.

(27) какую? Получитьномернапечать ?

(28) Ты понимаешь что не возможно выделить не зная длину префикса "числовой номер" из значений "ДЯ100000000" и "ДУБЫ1000000"?

(29)+ если префикс 2 символа то Результат = Число(Прав(Строка, 9)), а если префикс 4 символа то Результат = Число(Прав(Строка, 7))

И все

(29)+ Чтобы было понятнее выдели номер из "ДЯ1Д0000001"

В (16) рабочий код. Что не так?

(26) можно ведь без попыток убрать нули слева. Что за дикость писать попытку по поводу и без повода.

(33) А почему бы не писать попытку? У тебя фобия на попытки?

(32) Вечный цикл... И "Знач" у параметра не хватает.
(34) Использовать попытки без необходимости - плодить ГК.
А верный подход в (30), т.к. префикс может и из цифр состоять.

(34) это в десятки раз медленнее, чем просто найти первый не ноль. И лишнее преобразование. Он делает из строки число, а потом опять из числа строку.

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


всё заработало. Даже если номер имеет формат АА10Б0000321, на выходе получаем 321. Всем спасибо за помощь)

Даже если номер имеет формат АА10Б0000321, на выходе получаем 321. Всем спасибо за помощь)

А Если номер имеет формат:

АА10Б0055321, то всё равно получим "321"))

(38) почему?

(38) я сейчас проверял, у меня есть разные номера: 2 цифры после нулей, 4 цифры после нулей.. всё распознаёт ...

(40) https://gyazo.com/5c90d095cf2c1252492f8e2187509a72

https://gyazo.com/91a00cfe901da4b673507ef8c3d65694

(41) не, это уже другое. мне требовалось оставить все цифры после нулей. потому я и справа собираю... в префикс цифры не попадают

(42) Если нужны "все цифры после 0" не проще было брать по одной цифре справа пока не встретится "не цифра"?