Например нужно из строки удалить все крайние нули, но только крайние. не в середине и т.д.
Например

003568000 должно выйти 3568
И так во всех вариациях нулей слева и справа.

Но не так чтобы тупо код дублировать.

Красивой процедуркой в цикле.

(2) Тогда и у себя сам нули убирай))

Текст=СтрЗаменить(Текст," ","?");
Текст=СтрЗаменить(Текст,"0"," ");
Текст=СокрЛП(Текст);
Текст=СтрЗаменить(Текст,"?"," ");

? - это #255

(0) см. Сред(), Лев(), Прав()

Кривокодировочный форум, блдж.

(5) В середине нули разве не прибьешь?

(5) Садись, кол)

(5) убьешь нули между цифрами.

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

;)

(12) Первое, что в голову приходит. Тупо, но действенно.

Забыл

Текст="01101 10";
Текст=СтрЗаменить(Текст," ","?");
Текст="01101?10";
Текст=СтрЗаменить(Текст,"0"," ");
Текст=" 11 1?1 ";
Текст=СокрЛП(Текст);
Текст="11 1?1";
Текст=СтрЗаменить(Текст," ","0");
Текст="1101?1";
Текст=СтрЗаменить(Текст,"?","");
Текст="1101 1";

(5) - самая правильная идея

Текст=СтрЗаменить(Текст," ","?");
Текст=СтрЗаменить(Текст,"0"," ");
Текст=СокрЛП(Текст);
Текст=СтрЗаменить(Текст," ","0");
Текст=СтрЗаменить(Текст,"?","");

(0) самому никак не сообразить ?

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

(0) Мы ведь не Professional Programmist-s, мы так, по старинке.

СтрокаПередачи = СокрЛП(СтрокаПередачи);
   ВремСтрока  = СтрокаПередачи;
   ДлинаСтроки = СтрДлина(СтрокаПередачи);
   Пока 1 = 1 Цикл
       Если Лев(ВремСтрока,1) = "0" Тогда
           ВремСтрока = Прав(ВремСтрока,ДлинаСтроки - 1);
           ДлинаСтроки = ДлинаСтроки - 1;
       Иначе
           Прервать;
       КонецЕсли;
   КонецЦикла;

Это только для левых

(15) И тебе кол.

(15) Идея правильная в (5), а реализация - в (16)

два цикла короче решают проблему

(16) да все верно! кросавец!

(24) В 16 нормальное решение. Вместо символа с кодом 255 можно любой спецсимвол подставлять, которого точно в номерах нету.

(20) смотри, а то твоя разработку сопрут ))

(0)Автор еще тот программист ))))))

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

Управляющие символы с кодом <32
Символ (11) к прмиеру

циклом

ДлинаСтроки = СтрДлина(СтрокаПередачи);
Начало = 0;
Конец = 0;
Для й=1 по ДлинаСтроки Цикл
 Если Сред(СтрокаПередачи,й)<>"0" Тогда
   Если Начало=0 Тогда
     Начало = й;
   КонецЕсли;
   Конец = й;
 КонецЕсли;  
КонецЦикла;
Результат = Сред(СтрокаПередачи,Начало,Конец-Начало+1);

(26)
Текст=" 01";
Текст=СтрЗаменить(Текст," ","?");
Текст=СтрЗаменить(Текст,"0"," ");
Текст=СокрЛП(Текст);
Текст=СтрЗаменить(Текст," ","0");
Текст=СтрЗаменить(Текст,"?","");
Сообщить(Текст);

+ выводит 01

(32) Частный случай, см. условие задачи.

(32) крайние пробелы надо сразу прибивать

(31) самый быстрый будет

Процедура КнопкаСформироватьНажатие(Кнопка)
   Номер  = СокрЛП(Реквизит1);
Пока Лев(Номер, 1)="0" Цикл
 Номер=Сред(Номер, 2);
КонецЦикла;
Пока Прав(Номер, 1)="0" Цикл
   Длинн=СтрДлина(Номер);
   Номер=Лев(Номер, Длинн-1);
КонецЦикла;
Реквизит2=Номер;
КонецПроцедуры

работает

(37) два цикла - это много

(0) Я, конечно, прошу извинить, что влезаю не в свою епархию(про 1С программирование не знаю ничего), но не может ли помочь в данном случае вот такое регулярное выражение:
^0*([0-9]+?)0*$  ?
То,что в скобках, идет в результат. И циклов никаких не надо.

(34)
Или
Текст="0 01"; ==> "01"  (ты же рассматривал подобный пример в (14) )

В условиях (кхм.. условиях... пара общих фраз) не сказано, есть там пробелы или нет.
Если есть, то код косячит. Если заведомо нет, то лишняя операция с подменой на служебный символ, т.е. достаточно:

Текст=СтрЗаменить(Текст,"0"," ");
Текст=СокрЛП(Текст);
Текст=СтрЗаменить(Текст," ","0");

(41) ага. и если был пробел в середине влепит ноль в него.

(42) Учу читать ;)
"Если заведомо нет" ;)

Присоединюсь - оптимально (31)

Все остальные функции также просматривают строку    но могут неявно

Функция КнопкаВыполнитьНажатие(ПроверяемоеЗначение)
   НовыйКод=(Число(ПроверяемоеЗначение));
   АвдругНоль=НовыйКод;
   АвдругНоль=АвдругНоль/10;
   Пока Цел(АвдругНоль)=АвдругНоль  Цикл        
        АвдругНоль=АвдругНоль/10;  
   КонецЦикла;
   НовыйКод=АвдругНоль*10;
   Возврат НовыйКод;
КонецФункции

(31) только последние нули удаляет

(45)
00025200025200525000
25 200 025 200 525
пробелы забыл удалить

(45) Пока Цел(АвдругНоль)=АвдругНоль

Цикл Это прикол?

(46) не только
(31) делает вообще непонятно что

(0)Минимальный код:
Сообщить(1*Сред(1*ИсхСтрока/100000000000000000,3));

(46) задача из (0) так поставлена

(49) удаляет крайние нули
из
000006767640647670000000
получаем

676764064767

(51) на других цифрах проверь
(50) "100000000000000000" мало
0000025320001230001254000002562000000000
3 200 012 300 012 540,00002562

(51) (31) у меня не удаляет, я не так копипастю?

регулярка
^[0]*(.*?)[0]*$

(54)+ в подсовпадении получаем то, что нужно

(52) ну так добавь сколько надо :)

(50) а буквы в номере

(57) в (0) нету букв, в (50) правильный код, у меня работает, => без циклов и переборов

Ваще ТС должен был предложить самую крутую реализацию, всеш таки оченьмноготысячбаксоф получает

(52) Посмотрел "Начало" и "Конец" в отладчике. Посмеялся.

(59) запросом?

(48) почему ?

//без проверки на валидность числа
Процедура Нажатие(ПроверяемоеЗначение)
   АвдругНоль=(Число(ПроверяемоеЗначение));
   Проверка=АвдругНоль/10;
   Если Цел(Проверка)=Проверка Тогда        
        Нажатие(Проверка)  ;
    Иначе
        Сообщить(АвдругНоль);
   КонецЕсли;  
КонецПроцедуры

(50) а как бе строка вообще не число а текст. там даже точки есть и прочей фигни довига!

так что забудьте про деление)

скобки, точки, звездочки и прочая пои...
Просто артикулы у цела заводские от Камаза. а там сам черт голову сломит.
В заводском есть нули де попало. А поставщики их то вбивают, то не вбивают, то местами меняют.
А в самом артикуле вся фигня.

(63) Это тогда совсем другая задача, и в (0) формулируй правильно тогда
А то счас со всеми "ЕСЛИ" еще УПП напишем :)

(51) Я понял почему у тебя (31) работает. Переменная у тебя числовая.

ну все очень смешно, опечатался в (31)
вместо: Сред(СтрокаПередачи,й)
надо: Сред(СтрокаПередачи,й,1)

я тоже хочу! )

   Текст = "000234000043600000";
   Текст1 = Формат(Число(Текст), "ЧГ=");
   СимволФиниш = 0;
   Для инд = 0 По СтрДлина(Текст1) - 1 Цикл
       Если НЕ Сред(Текст1, СтрДлина(Текст1) - инд, 1) = "0" Тогда
           СимволФиниш = СтрДлина(Текст1) - инд;
           Прервать;
       КонецЕсли;
   КонецЦикла;
   Сообщить(Лев(Текст1, СимволФиниш));

(65)->(54). всю фигню, которую с краев отрезать надо - вносишь в квадратные скобки

Таки да (68)
(69) смотри 63-65

У меня наверно единственного 1с есть, чтоб проверить свою придумку.

(68) видимо (52) (53) (67) тоже опечатались =)

(71) ага... я только по (0) ориентировался )

скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
скрипт.language="JScript";
скрипт.AddCode("function doReplace(text){return text.replace(/^0+|0+$/gm, '')}");
номер = скрипт.CodeObject.doReplace(номер);

(72) может не тупо копипастили?

Ну тогда еще проще



Процедура Нажатие(ПроверяемоеЗначение)
   АвдругНоль=СокрЛП(СтрЗаменить(ПроверяемоеЗначение,"0"," "));
   АвдругНоль=Число(СтрЗаменить(АвдругНоль,"_","0"));
   Сообщить(Формат(АвдругНоль, "ЧГ=")) ;
КонецПроцедуры

опс- опечатка была лишний "_"

Процедура Нажатие(ПроверяемоеЗначение)
   АвдругНоль=СокрЛП(СтрЗаменить(ПроверяемоеЗначение,"0"," "));
   АвдругНоль=Число(СтрЗаменить(АвдругНоль," ","0"));
   Сообщить(Формат(АвдругНоль, "ЧГ=")) ;
КонецПроцедуры

мдэ...

Во первых пробел, во вторых Число.

тогда так... сначала вырываем чисто циферные части: \d[0-9]*$|\d[0-9]*
потом к каждой из них применяем 74
усе ))

Интересно сколько в (74) циклов  и не является ли на самом деле циклом СтрДлина коих три в (69).

(80) фигня какая-то... \d+ это уже циферные части

(82) о... а у меня не получилось с первого раза ))

(29) Задача как-то криво поставлена. Например, если допустим строка "1 000 000". Что должно получиться в итоге?

У меня получается "1 000" что есть правильно, т.к. ТС не говорил пробелы убирать.

кто нашёл ошибку в (31) + (68) ?

видимо никто не нашёл

ProProg , раз уж завёл такую ветку, точно не нашёл

если извесно , что в строке только цифры

строку в число (сразу пропали лидирующие нули)

пока отаток от деления но 10 = 0
делим

полученное число -> в строку

(89) а если там пробелы ?

(89)
пробел - не цифра

(91) тогда разделитель триад =)

(86) Не могу понять, в чем там ошибка. По-моему её там нет

(93) граничные ситуации :
0000
...

(94) А, точняк. Молодец )

Ну так какой способ-то лучше всех?

(96) в (31)

(97) А я вот протестировал (31) на строчечке всего-то в 1 млн симолов. Думает, я вам скажу, долговато...

(98) тестируй на 100 символах =)

(99) На 100 неинтересно, там без разницы какой алгоритм

Во, я родил:
   Начало = 1; Конец = СтрДлина(стр);
   Пока Истина Цикл
       Если Сред(стр,Начало,1)="0" Тогда
           начало = начало + 1;
       ИначеЕсли Сред(стр,Конец,1)="0" Тогда
           Конец = Конец - 1 ;
       Иначе
           Прервать;                                    
       КонецЕсли;
   КонецЦикла;
   Результат = Сред(стр,Начало, Конец-Начало+1);

(101) Плохо родил, можно повесить 1С-ку )