Есть номера документов БДЕ000056 мне надо взять 56 для вычислений
Числом получить знаю
Х=0+переменная;
номера документов можно достать без префикса процедурой сведения о физ.юрлице, но хочу научиться отделять буквы от цифр

примерно так= БДЕ000056-БДЕ )))

(0) Циклом бежишь по строке и смотришь - буква в этом месте или цифра.

Найти()

число(сред("БДЕ000056",4))

//Убрать цифры из строки
Для Идн = 0 по 9 Цикл
    Стр = СтрЗаменить(Стр, "" + Идн, "");
КонецЦикла

Если префикс всегда одинаковый, то СтрЗаменить()

а букв всегда 3?

Номер=БДЕ000056;
НомерЧислом=Число(УзнатьНомер(Прав(Номер,6)));

Функция УзнатьНомер(Номер)
Возврат ?(Лев(Номер,1)<>"0", Номер, УзнатьНомер(Прав(Номер, СтрДлина(Номер)-1)));
КонецФункции

Функция ВыжатьЧисло(Строчка)
    Ответ=0;
    //даже если там будет лежать строка вида "яыва45выва5ыва56" все равно получим 45556
    Если ТипЗнч(Строчка)=Тип("Число") Тогда
        Возврат Строчка;
    КонецЕсли;    
    Строчка=Строка(Строчка);
    Длина=СтрДлина(Строчка);
    Результат="";
    Для н=1 По Длина Цикл
        //собираем циферки
        Сим=Сред(Строчка,н,1);
        Если Найти("0123456789",Сим)>0 Тогда
            Результат=Результат+Сим;
        КонецЕсли;    
    Конеццикла;    
    Если Результат<>"" Тогда
        Ответ=Число(Результат);
    КонецЕсли;    
    Возврат Ответ;
КонецФункции

(7) Не взлетит.
Контрпример - "ФФФ111ЫЫЫ222".

(8)Ну да... это я немного для другого писал:-)
Значит надо до первой цифры, а потом резать

(8) циклом с последнего символа и пока это цифра - собираешь цифру..
самый надежный способ.

(10) Смотря какое из чисел надо выбрать - первое или последнее.

(11) ну если пошла такая пьянка то регэкспом сформировать массив вхождений чисел и затем обрабатывать либо первое значение массива либо последнее

Вообще есть типовая функция - ПолучитьНомерНаПечать

Можете отбирать символы по их коду, у чисел диапазон кодов в пределах [48;57]
ТекСтрока = "АА0912ББС92";
Длина = СтрДлина(ТекСтрока);
Результат = "";

Для н = 1 По Длина Цикл

    ТекСимвол = Сред(ТекСтрока,н,1);

    Если КодСимвола(ТекСимвол) <= 57 И КодСимвола(ТекСимвол) >= 48 Тогда
        Результат=Результат+ТекСимвол;
    КонецЕсли;    
Конеццикла;
Сообщить(Результат);

(12) Можно и так :-)

(13) +1 недавно тема была

(14) фиг там.. ты на выходе получиш 091292 а нужно 92 :)

нужно в условие добавить

иначе
Результат = "";

+(17) ну или если первое нужно, то есть 0912 то прерывать цикл..

(18) То есть первая часть считается префиксом от того, что есть буквы?

номернапечать знаю
что - то универсальное надо для работы с числами и буквами

ответы получил
всем спасибо

(17) Ну в этом случае, можно при каждом натыкании на букву зачищать результат, и все будет ок :)

(19) вообще то да.

префиксом считается все то что слева от числа.

то есть смотришь справа, пока цифры - это числовое значение номера
до первой буквы - и далее идет прфикс..

многие бухи накалываются на приколе с номреами типа

00000000001/1


им система кстати радостно  до 000000001/9 доводит номер и вуаля - далее номер неуникальный

>надо взять 56 для вычислений
первый палец правой руки ставлю на то, что вычисления неправильный

а если так(неуверен в правильности):

Номерок="";
Длина=СтрДлина(Номер)
Для инд=1 по Длина Цикл
  Попытка
   Число(Лев(Номер,инд));
   Шаг=Лев(Номер,инд);
  Исключение
   Шаг="";
  КонецПопытки;
Номерок=Номерок+Шаг;
Номер=Прав(Номер,СтрДлина(номер)-1);
КонецЦикла;

Номерок=Число(Номерок);

Чур не проклинать меня и слать порчу))))

Длина=СтрДлина(Номер)
(номер) что за переменная ?
номер=номерДокумента ?

(26) Номер - это твоя строка, из которой число извлекаешь.

Пятница всё-таки :)

А слабо придумать и озвучить самый лаконичный алгоритм выделения цифровой части для строки вида "ПрефиксЦифрыСуффикс", где префикс и суффикс - произвольный набор символов?

ТекСтрока = "АА0912ББС92";
Длина = СтрДлина(ТекСтрока);
Результат = "";

Для н = 1 По Длина Цикл

    ТекСимвол = Сред(ТекСтрока,н,1);

     Если КодСимвола(ТекСимвол) <= 57 И КодСимвола(ТекСимвол) >= 48 Тогда
        Результат=Результат+ТекСимвол;
    КонецЕсли;    
Конеццикла;
Сообщить(Результат);


не работает, выводит с префиксом

(28) Четверг((((((

(29) Неправда.

(30) Ну, я так и говорю: "Завтра, ближе к вечеру, если будет время - посижу, подумаю" :))

Номерок="";
Длина=СтрДлина(Номер)
Для инд=1 по Длина Цикл
  Попытка
   Число(Лев(Номер,инд));
   Шаг=Лев(Номер,инд);
  Исключение
   Шаг="";
  КонецПопытки;
Номерок=Номерок+Шаг;
Номер=Прав(Номер,СтрДлина(номер)-1);
КонецЦикла;

Номерок=Число(Номерок);

не работает
Встроенная функция может быть использована только в выражении. (Число)
            Число<<?>>(Лев(Номер,инд)); (Проверка: Толстый клиент (обычное приложение))

(33) И ведь действительно - Число() можно использовать только в выражении. А у Вас оно используется как оператор.
Но вообще-то код несколько загадочный. Зачем такие извращения?  Чуть измените код из (29) - выходите из цикла по первой не-цифре после цифры - и наступит счастье.

ТекСтрока = "АА0912ББС92";
Длина = СтрДлина(ТекСтрока);
Результат = "";

Для н = 1 По Длина Цикл

    ТекСимвол = Сред(ТекСтрока,н,1);

     Если КодСимвола(ТекСимвол) <= 57 И КодСимвола(ТекСимвол) >= 48 Тогда
        Результат=Результат+ТекСимвол;
    КонецЕсли;    
Конеццикла;
Сообщить(Результат);

прошу прощения, работает

(35) Здесь Вы получите "091292". Вам надо это? Или "0912"?

можно применить

результат=0+результат;

код очень понравился
универсальный

(38) Вопрос в другом. Вам _конечные_ цифры, которые после букв после цифр идут - нужны?

конечные цифры нужны. спасибо за помощь

Если КодСимвола(ТекСимвол) <= 57 И КодСимвола(ТекСимвол) >= 48

думаю буду часто использовать

(34) ну присвоить какой нибудь переменной и не будет проблемы)
А вообще я уже здесь просто запутался что хотят в итоге из чего что)

(42) проще писать

Если ТекСимвол <= "9" И ТекСимвол >= "0"

(43) А зачем? Это ж жутко неэффективная конструкция по природе своей (я имею в виду подобный способ выделения числа, а не присваивание).

Тогда какой самый лучший способ выделения числа ?

(46) Какого числа ? Первого, последнего, среднего. Задавай правильные вопросы, если хочешь получить правильные ответы

455ывывыв481вывыв61111 - любого числа

(48) какого?

из текста содержащие буквы и числа выбрать числа

(46) У тебя уже есть хороший способ. Используй его.

(50) ну тут уже куча разных методов, выбирай - не хочу.
я вот свой поправил:

Номер= "АА0912ББС92";
Номерок="";
Длина=СтрДлина(Номер)
Для инд=1 по Длина Цикл
  Попытка
   СС=Число(Лев(Номер,1));
   Шаг=Лев(Номер,1);
  Исключение
   Шаг="";
  КонецПопытки;
Номерок=Номерок+Шаг;
Номер=Прав(Номер,СтрДлина(номер)-1);
КонецЦикла;

Номерок=Число(Номерок);

//Вернет число 091292

(52) А зачем использовать Число() в Попытка? Это же долго.

(53) Тогда так:

Номер=БДЕ000056;
Длина= СтрДлина(Номер);
Номерок="";
Для инд=1 по Длина Цикл
Шаг=Лев(номер,1);
Если Шаг<>"0" ИЛИ Шаг<>"1" ИЛИ Шаг<>"2" ИЛИ Шаг<>"3" ИЛИ Шаг<>"4" ИЛИ Шаг<>"5" ИЛИ Шаг<>"6" ИЛИ Шаг<>"7" ИЛИ Шаг<>"8" ИЛИ Шаг<>"9" Тогда Номер=Прав(Номер,СтрДлина(Номер)-1));
Иначе
Номерок=Номерог+Шаг
Номер=Прав(Номер,СтрДлина(Номер)-1)));
КонецЦикла
Номер=Число(номерок);

))))))))))))))))

Процедура YoDawg(НомерСтрокой)
    RE = New COMObject("VBScript.RegExp");
    RE.Global        = истина;
    RE.IgnoreCase    = истина;
    RE.Multiline    = истина;
    RE.Pattern = "\d+";

    Для каждого Match Из RE.Execute(НомерСтрокой) Цикл
       Сообщить(Match.Value);
    КонецЦикла;
КонецПроцедуры