Добрый день =)

Есть число произвольной длинны. От 1 до 8. Каким методом можно его преобразовать так, чтобы если число меньше 8, то слева подставлялся 0 за каждый недостающий разряд?

Формат()

О, пятничная ветка :)

классная тема

+ (0) Имеется ввиду конечно количество цифр в числе =)

(1) Слишком просто

Формат(х, "ЧЦ=8; ЧВН=; ЧГ=0")

Обломаю пятничную ветку.

S = Формат(Х, "ЧЦ=8; ЧВН=; ЧГ=");

(5) о боже, я все испортил

(7) урааа

"слева подставлялся"...
Т.е. допустим 123 число, то на выходе нужно "00000123".

1Cникам не нужно постить посты с ответами.. 1Сникам нужно рисовать картинки...

ММм давай так:

КоличествоНулей = 0;

Если  Окр(НужноеЧисло/10000000,0) <> НужноеЧисло/10000000 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/1000000,0) <> НужноеЧисло/1000000 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/100000,0) <> НужноеЧисло/100000 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/10000,0) <> НужноеЧисло/10000 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/1000,0) <> НужноеЧисло/1000 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/100,0) <> НужноеЧисло/100 тогда
  КоличествоНулей = КоличествоНулей+1;

  Если  Окр(НужноеЧисло/10,0) <> НужноеЧисло/10 тогда
  КоличествоНулей = КоличествоНулей+1;

КонецЕсли ;
КонецЕсли ;
КонецЕсли ;
КонецЕсли ;
КонецЕсли ;
КонецЕсли ;
КонецЕсли ;

ЧислоПрописью = НужноеЧисло;
Пока КоличествоНулей >0 цикл
ЧислоПрописью = "0"+ЧислоПрописью;
КоличествоНулей =КоличествоНулей -1;
КонецЦикла

Вот!
Не благодари =)

(10) омг, автор ты еще тут, а не кодишь?

Мегас спс)
(13) Чего придрался то? =)

(11) Лучше видеоролики с комментариями.

(14) Не советую так делать это шутка !!!

(12) накуй, рекурсия рулит
Функция ОтформатироватьЧисло(число, количествоЗнаков)
   Если СтрДлина(число) < знаков Тогда
       Возврат "0" + ОтформатироватьЧисло(число, количествоЗнаков);
   КонецЕсли;
   Возврат Строка(число);
КонецФункции

(14) ответы в (6) и (7)

(14) но круче конечно как в (17)

Вот смотри по правильному

СтрокасНулями = Формат(ЧислоБезНулей,"ЧЦ=8; ЧВН=; ЧГ=")

(17) СтрДлина(1234567)<8   = косяк

(17) Кроме того, если условие выполнится, получится бесконечный вызов

Не рулит твоя рекурсия

(19) Мне больше нравится как в (12) =) а то в (17) заумно! Г0внокод должен быть тупым как валенок!

(22) да кули, торопился, -1 забыл подписать

исправленная версия(17):
Функция ОтформатироватьЧисло(число, количествоЗнаков)
   Если СтрДлина(число) < знаков Тогда
       Возврат "0" + ОтформатироватьЧисло(число, количествоЗнаков-1);
   КонецЕсли;
   Возврат Строка(число);
КонецФункции

Лев(Pow(10, ЧислоЗнаков) + ТвоёЧисло, ЧислоЗнаков)

прав("00000000"+стрзаменить(перемЧисл,"",символы.нпп),8)

(21) кстати, да ... шикарно
стрДлина(1234567) = 9

+(28) что это пля за новости такие ... 1С еще скобочки считает?

ну до трех цифр будет работать и ок, а дальше незапланированная фича)

(25) Классно!

2(29) нет, неразрывные пробелы

Вернее

Лев(СтрЗаменить(Pow(10, ЧислоЗнаков) + ТвоёЧисло, " ", ""), ЧислоЗнаков)

//СтрЗаменить чтобы кошерный "Формат" не использовать.

исправленная версия (25):
Функция ОтформатироватьЧисло(числоСтрокойИТолькоСтрокойНоЕслиТриЦифрыТоМожноИЧислом, количествоЗнаков)
   Если СтрДлина(число) < знаков Тогда
       Возврат "0" + ОтформатироватьЧисло(число, количествоЗнаков-1);
   КонецЕсли;
   Возврат Строка(число);
КонецФункции

(33)

Выполнить(СтрЗаменить(
"Лев(СтрЗаменить(Pow(10, ЧислоЗнаков) + ТвоёЧисло, " ", ""), ЧислоЗнаков)"," ",Символы.НПП
))


(32) вот ведь

вычислить то есть.

Да, конечно.

Функция ОтформатироватьЧисло(числоНеСтрока, знаков)
   множитель = 1;
   Для инд = 1 По СтрДлина(знаков - Строка(числоНеСтрока)) Цикл
       множитель = множитель * 10;
   КонецЦикла;
   результат = Строка(числоНеСтрока * множитель);
   Для инд = 1 По СтрДлина(Строка(числоНеСтрока)) Цикл
       результат = Сред(результат, 2) + Лев(результат, 1);
   КонецЦикла;
   Возврат результат;
КонецФункции

с обрезанием:
шаблон = "12345678";
инд = СтрДлина(шаблон);
длинаШаблона = инд;
длинаСтроки = СтрДлина(числоСтрокой);
Пока инд > 0 Цикл
   Если длинаСтроки < инд Тогда
       СтрЗаменить(шаблон, Строка(длинаШаблона - инд + 1), "0");
   Иначе
       СтрЗаменить(шаблон, Строка(длинаСтроки - инд + 1), Сред(числоСтрокой, длинаСтроки - инд + 1));
   КонецЕсли;
   инд = инд - 1;
КонецЦикла;