Здравствуйте!

СтрЗаменить (ЭтотОбъект.Номер, "0", "")

Проблема в том что нули убираются везде 00001540   нужно что бы только с лева.   ??

(0) нулей слева много бывает?

(0) Поищи в своей могучей конфе какую-нибудь функцию общего модули вроде "ПолучитьНомерНаПечать".

возъми код из типовой

Формат(Число(Номер),"ЧГ=0")

чорд, лево и право попутал :)

Функция КраткийНомер(ИсходныйНомер) Экспорт
                      
    Номер   = СокрЛП(ИсходныйНомер);
    ЗначащиеЦифры = "123456789";
    Пока Найти(ЗначащиеЦифры,Лев(Номер,1))=0 Цикл
        Номер = Сред(Номер,2);    
    КонецЦикла;
    Возврат Номер;

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

Функция КЧислу(Строка) Экспорт
    
    ОписаниеТипов = Новый ОписаниеТипов("Число");
    Возврат ОписаниеТипов.ПривестиЗначение(Строка);
        
КонецФункции

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

ну и для любителей

RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Pattern = "^0*([1-9][0-9]*)$";
Matches = RegExp.Execute(Номер);
ИтоговаяСтрока = Matches.Item(0).SubMatches.Item(0);

(8) круто

Ну и для тех кто считает код в типовых идеалом, то

Функция УбратьЛидирующиеНули(Строка)
    Рез = СокрЛП(Строка);
    Пока Лев(Рез, 1) = "0" Цикл
        Рез = Сред(Рез, 2);
    КонецЦикла;
    Возврат Рез;
КонецФункции

(8) Интересный способ, надо запомнить.

(8) Неплохо.

(8) Хех реально круто)) Спасибо всем!)

(8) Шикарно..

(8) спасибо_тебе_пробел

(8) Круто! Забрал себе на заметку.

упадет как только префиксация в номерах появится...

Не забываем, что часто есть еще буквенные префиксы, потому я за (6)

ПК0000235

(8) "Ай да Пушкин, ай да сукин сын!" (с)

(18) префиксы предварительно удалить.

ОбщегоНазначения.ПолучитьНомерНаПечать(СсылкаНаОбъект)

(19) твоя хрень как раз обрежет буквенные префиксы. А автору нужно только лидирующие нули

(8) Красиво)

(9) //ИтоговаяСтрока = Matches.Item(0).SubMatches.Item(0);
ИтоговаяСтрока =RegExp.Replace(Номер,"$1");

(8) Краткость сестра таланта (С) :)
Браво!

что вы все так писаетесь от (8)? Если в префиксе будет пробел, то все получат большой огромный болт

(28) Если посчитать решение (8) - частным случаем приема 38 из http://catalog.mista.ru/public/460935/ , то там предлагалось:

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

СтрЗаменить(СтрЗаменить(СокрЛ(СтрЗаменить(СтрЗаменить(ИсходнаяСтрока, " ", Символы.НПП), "0", " ")), " ", "0"), Символы.НПП, " ")

(28) Не завидуй.

(24) обычно на печать префиксы тоже обрезают так-то

(31) ты все тз так выполняешь?

(8) Шедеврально!
Примите мое Восхищение!

(32) я сужу по типовым
если бы мне еще ТЗ в нормальном виде приносили бы...

(0) автор. нули лидирующие это формат строки текст. чтобы убрать надо из строки сделать число.

Sorry, но ни один из озвученных алгоритмов не учитывает вероятность наличия префикса в номере :(

(36)
Пока НЕ((КодСимвола(Лев(Номер,1)) >= 48 И КодСимвола(Лев(Номер,1)) <= 57) ИЛИ Номер = "") Цикл
     Номер = Сред(Номер, 2);
КонецЦикла;

Если Лев(Номер, 1) = "-" Тогда
     Номер = Сред(Номер, 2);
КонецЕсли;

Пока Лев(Номер, 1)="0" Цикл
     Номер = Сред(Номер, 2);
КонецЦикла;

(36) смотри (6)

Точнее сразу так можно написать

Пока НЕ((КодСимвола(Лев(Номер,1)) >= 48 И КодСимвола(Лев(Номер,1)) <= 57) ИЛИ Номер = "") ИЛИ
Лев(Номер, 1) = "-" ИЛИ
Лев(Номер, 1) = "0" Тогда
     Номер = Сред(Номер, 2);
КонецЦикла;

(33) всё-таки этот метод и раньше мелькал в интернете и на мисте в том числе. Что-то вы уж слишком захвалили товарища из (8).

(37) :) Алгоритм в п.28 ветки Добавление лидирующих нулей в номер документа - разбор на префикс, цифровую часть и суффикс.

(38) Смотрел, поэтому и сказал (36)

(40) Это в тебе зависть говорит :))

(36) а вот префкс можно и заменой сделать

(41) криво смотрел, там учитывается префикс и он обрубается как и положено

(43) но не возвращается

(44) вот номер документа ИГ000004429, на печать выводится 4429

(41) https://yandex.ru/search/?text=убрать%20левые%20нули%20в%20номере%201с&lr=10752&clid=1989598

вторая ссылка, пост 23.

2009й год

(43) Префикс не учитывается (игнорируется). Ещё раз повторить?

(8)+
БезПрефикса = СтрЗаменить(СокрЛ(СтрЗаменить(Номер,"0"," "))," ","0")

Префикс = Лев(Номер,Найти(Номер,"0")-1);

(48)+
эээ....
если ведущих нулей нет - не катит.

(45) Наверное придётся всё-таки объясниться

Дело в том, что автор просил убрать лидирующие нули и ничего более. То, что нужно убрать префикс или сам номер нужен на печать без префикса и нулей - им ничего не было сказано, это наши предположения. Я, например, могу предположить что автор желает изменить длину номера. Почему бы нет?

ТС обрадовался уже озвученному алгоритму и ушёл довольным, но высока вероятность что он ещё вернётся. Поэтому я счёл нужным оставить замечание. И ничего более.

(8) Класс!

(49) В таком случае удали БезПрефикса из Номер - останется префикс :))

мда...
вариант для префикса, не содержащего цифры


перваяцифраНеНоль = 0;
Для к = 1 по 9 Цикл
  перваяцифраНеНоль = Макс(Найти(Номер,к),перваяцифраНеНоль);
КонецЦикла;

БезПрефикса = Сред(Номер,перваяцифраНеНоль);
Префикс= СтрЗаменить(СтрЗаменить(Номер,БезПрефикса,""),"0","");

ЗЫ
сложновато как-то получается.

(53)*
опять попутал.
перваяцифраНеНоль = 0;
Для к = 1 по 9 Цикл
  перваяцифраНеНоль = Макс(Найти(Номер,к),перваяцифраНеНоль);
КонецЦикла;



Если перваяцифраНеНоль=0 Тогда
  БезПрефикса = "";
Иначе
  БезПрефикса = Сред(Номер,перваяцифраНеНоль);
КонецЕсли



Префикс= СтрЗаменить(СтрЗаменить(Номер,БезПрефикса,""),"0","")

Безвозмездно, то есть даром, вам дарю я свой гениальный   сумасшедший алгоритм :))

    Номер = "ПРФ-000102030"; Позиция = 0;
    Выполнить("Позиция = " + СтрЗаменить("Мин(" + СтрЗаменить(","+Найти(Номер,"0")+","+Найти(Номер,"1")+","+Найти(Номер,"2")+","+Найти(Номер,"3")+","+Найти(Номер,"4")+","+Найти(Номер,"5")+","+Найти(Номер,"6")+","+Найти(Номер,"7")+","+Найти(Номер,"8")+","+Найти(Номер,"9"), ",0", "")+");", "(,", "("));
    Номер = Лев(Номер,Позиция-1) + СтрЗаменить(СокрЛ(СтрЗаменить(Сред(Номер,Позиция),"0"," "))," ","0");

(скромно) А ещё я умею вышивать крестиком...

А чем (8) лучше простого строка(число(какойтономербезпрефикса))...?

Да ни чем не лучше, чем банальное Формат(Число(Цифры), "ЧВН=...
Просто оригинально, лаконично, ну и "Народу нравится"(с)

(58) то есть хочешь сказать что мусьи знают толк в извращеничх?

Внимание! Вопрос к мужчинам! ! Вот такая ситуация. Вы лежите между девушкой вашей мечты и геем. К ко­му вы повернетесь сп­иной ? 

(59) Йес ит ис.

(60) А тебе не всё ли равно?

- Доктор, у моего друга проблемы...
- Доставайте вашего друга, показывайте.

(61)  по (60)
Ну не скажи... Надо быть готовым ко всяким ситуациям...
Как говорит мой сисадмин
Удача любит подготовленных

(60) Вариант встать, уйти и забрать с собой девушку не рассматривается?

(60) Что такое "дилемма"? :)))))))))

(64) Это разве "дилемма"? Это скорее "маленький нюанс" :-)

(8) Хороший типовой алгоритм, частенько его использую, правда пишу обычно в пару строчек для легкости восприятия

(57) Тем, что не вывалится в ошибку при неудачном преобразовании в число.

(36) а как же (23)

^[\D|0]+

(68) См.(50)

(60) а зачем ты туда залез?

гомосятина пошла