РИБ.
Есть коды клиента 00-001189, 00-000078

Как из них получить числа 189 и 78??

(0) нанять программиста (с)

Число(Прав(3))

МассивЧастей = СтрРазделить("00-001189","",Истина);
КодКлиента = Число(МассивЧастей[1]);
Почему 189?

(2) Опередил. Хотя, не ясна задача. Формат кода. Всегда такой? Критерии извлечения нужны.
http://catalog.mista.ru/public/64222/

(3) ТАк-то если, то можно и:
Если  = "00-001189" Тогда 189
ИначеЕсли = "00-000078" Тогда 78

(5)Шикарно,сделал мой день :)

(0)

ПрефиксацияОбъектоКлиентСервер.УдалитьЛидирующиеНулиИзНомераОбъекта(ПрефиксацияОбъектовКлиентСервер.УдалитьПрефиксыИзНомераОбъекта(ИсходныйНомерСНулямиИПрочимиБезобразиями,Истина, Истина))

Строку в число перевести. Нулики уже уйдут. А почему из 1189 нужно 189, хз. Может, строго, последние три цифры? Тогда (2).

(7) БН доволен. =)

(9) Ну есть же методы общих модулей для решения этой задачи, его извращаться-то. Я мог и по-другому написать, но автор темы должен страдать в наказание за лень.

Можно, конечно, после перевода строки в число, опять перевести в строку, и посчитать кол-во символов оставшихся в переменную $A. А потом Число(Прав($A)). Ну или не переводить в строку обратно, а включить простую арифметику.

(10) Согласен. Не описавшие конкретики задачи должны страдать.

(7) Ухты, пригодилось, надо же!

Код в (5) прекрасен и изящен :)

(2) лойс))
функцию Прав() не мог вспомнить

(14) Да.
ИначеЕсли ... 8
Иначе Неопределено;

Функция СделатьЦифру(СтрЗнач)
НовСТр= "";
УдалятьЛидирующиеНули = Истина;
Для ном  =1 По СтрДлина(СтрЗнач)  Цикл

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

Если КодТекСимв>=48 или КодТекСимв<=57 Тогда
    Продолжить;
КонецеСли;

Если ТекСимв = "0" и  УдалятьЛидирующиеНули Тогда
Продолжить;
Иначе
УдалятьЛидирующиеНули = Ложь;
КонецеСли;

НовСТр = НовСТр +ТекСимв;

КонецЦИкла;

Попытка
РезультЧисло = Число(НовСТр);
Исклоючение
РезультЧисло = 0;
КонецеСЛи;

Возврат РезультЧисло;

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

(17) +
КодТекСимв>=48 или КодТекСимв<=57
заменить на
КодТекСимв>=48 и КодТекСимв<=57

(17) Не сработает.

(18) КодТекСимв>=48 или КодТекСимв<=57
заменить на
КодТекСимв>=48 и КодТекСимв<=57
заменить на
не (КодТекСимв>=48 и КодТекСимв<=57)

(19) Обоснуй

(20) Исклоючение
РезультЧисло = 0;
КонецеСЛи;

Заменить на
Исключение
РезультЧисло = 0;
КонецПопытки;

(17) Многа букв, ниасилил. Если кратко, в чём там суть?

(23) Изобретение велосипеда с черным джеком и озорными девушками.

Что мне Эйлер вспомнился? Зачем? Блин же, совсем другая степь...

(17),(18),(20),(22) Истинный 1Сник - семь раз хуяк, один раз в продакшн... Авось заработает.

(21) А что обосновывать? Твой код после всех правок из "00-001189" сделает "1189", а у автора в (0) написано, что надо "189".

(27) скорее всего опечатка)

(0) мой БД+Ш:

СтрЗаменить(СокрЛ(СтрЗаменить(СтрЗаменить(ИсходныйКод,"0", " "),"-"," "))," ","0");

:)

И всё таки я бы предпочел не магию одноразовую, а постичь суть задачи. Там и понять, как по человечески реализовать.

(28) А если попадётся префикс с пробелом? :)

(30) все предусмотрено) он потеряется среди прочих и благополучно сократится

+(31) вот префикс с буквой - это да...
но в исходной задаче таких условий ведь и не стояло

https://www.forum.mista.ru/topic.php?id=481725
Не совсем по сабжу, но таки всё же =)

Вот он, универсальный вариант :)

КодЧисло = 0;
Пока СтрДлина(ИсходныйКод)>0 Цикл
  Попытка
    КодЧисло = Число(ИсходныйКод);
  Исключение
    ИсходныйКод = Сред(ИсходныйКод,2);
  КонецПопытки;
КонецЦикла;

(34) вечный цикл детектед, если там есть хоть одна цифра в конце)))

(35) + после
КодЧисло = Число(ИсходныйКод);
надо написать
Прервать;

(35) точняяяяяяк

Перепись адинэснегоф...

(28) так и есть опечатка. нужно 1189

вообще ответ в (2)
что вы тут базар устроили))

(40) не хочу расстраивать, но если в (0) опечатка и нужно 1189, то ответ не в (2)

(41) ОФФ: Не спугни

(41) угу в (3)

(43) а какой в (3) разделитель?

(44) ну косяк, да :)

(0) надо перестать хотеть эту херню делать.

Зачем?

Интересно,а 00-000189 и 01-000189 оба дадут 189,никого это не пугает?

(47) гораздо интересней, что будет, когда алгоритм посетит вот такой
ПЕ001-006/СТЕ12/ц1

(48) 189. Колдуну не ходи.

(41) почему же??
это код справочника контрагенты. его заводят только в центральной базе РИБ. в переферии нет ни у кого прав на него.
Чем же меня не устраивает ответ из (2)

(47) в моем случае это условие можно опустить. контрагенты будут создаваться только в ЦБ, как уже было сказано выше.

код же мне нужно чтоб создать прайс в папке контрагента на фтп

(50) Видишь ли, в чем дело... функция Прав() работает одинаково, независимо от того, в какой базе заводят код...

(51) А может оставим уже несчастный код в покое?
https://ru.wikipedia.org/wiki/Артикул
У меня были лузеры, любили править код, да так, что никакие префиксы/объяснения не помогали. Я убрал, визуально, этот системный код везде, и сделал дополнительный реквизит - _Код.

Откройте для себя божественные регулярки. Алгоритмический парсинг строк - это уровень джуниора.

(54) Поддерживаю, вот так "-(\d+)" все замечательно извлечется. Мне уже лень парсить строки без регулярных выражений. Хотя другие плюются.

Регулярки заканчиваются,когда есть несколько вариантов
в общем случае,парсинг,это дерево условий,следуя по которому мы находим результат,если дерево превращается в граф,то применение регулярных выражений только усложняет парсинг

(55) Никогда не понимал эту тень от хрена... Что ты с чем тут сложил разделив? Кто тебя поймёт?

(57) Эта конструкция означает "Дай мне все цифры после символа -
Рекомендую поигратся здесь https://regexr.com/ задав в поле expression это -(\d+)\w+ а в поле Text данные из (0)

(58) ПОКА 47 < КОДСимв(Сред(Найти(-)) < 57 ЦИКЛ - это и то понятнее, чем то что ты написал. И, самое главное, этот код поймёт та среда разработки, которую мы здесь используем. Тебя кто поймёт? Некий сайт? Или как?

(54) Проверь мне электропочту на соответствие RFC, плз.

(59) У меня это будет выгрядеть примерно так:

циферкиИзкода = разобратьТекстРегЕксп("00-001189", " -(\d+)", ложь, истина, истина);


Меня поймет тот кто знаком с регулярными выражениями. Технология совсем не сложна в освоении при этом очень облегчает парсинг строк.

(61) А ты попробуй разобрать например, html.

(62) Зависит от задачи, собрать DOM не получится а вот извлечь нужные данные вполне.

(61) В этой функции подкючается ком-объект?

(0) Прикалываясь, но это "рабочий" код :)

    КодСимволами = "00-001189"; КодЧислом = 0;
    Выполнить("КодЧислом = -1 * (" + КодСимволами + ");");
    Сообщить(КодЧислом); // 1 189

(61) Да, где текст самой функции? И мы про 1С тут беспокоимся

(63) Ок. Есть строка с вложенными тегами, например

<span>text</span><span>text<span>text</span></span>

Вложенность может меняться, могут попадатся теги <br/>. Извлеки, пожалуйста, текст. Регэкспами.

Функция ЧислоСправа(Стр, К = 0)
   Возврат ?(Цел(КодСимвола(Прав("!" + Стр, К + 1)) / 5 - 10.5), Формат(Число("0" + Прав(Стр, К)), "ЧГ="), ЧислоСправа(Стр, К + 1))
КонецФункции

Функция ЧислоСправа1(Номер)
   Возврат Формат(Число("0" + Сред(Номер, СтрДлина(СокрП(
   СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Номер
   , "0", " "), "1", " "), "2", " "), "3", " "), "4", " "), "5", " "), "6", " "), "7", " "), "8", " "), "9", " "))) + 1)), "ЧГ=")
КонецФункции

на инфостарте подсмотрел. может кому пригодится