Как добавить пробелы

[Denka]

Добрый день. Я вывожу индекс, как мне програмно поставить пробелы между цифрами. Спасибо

[freez1301]

ДлинаСтрока = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтрока Цикл
СтрокаСПробелами = Лев(СтрокаИндекс, Счетчик);
СтрокаСПробелами = СтрокаСПробелами + " " + Лев(СтрокаИндекс, Счетчик)
Счетчик = Счетчик +1;
КонецЦикла;

[LexaK]

так короче и понятнее,

СтрокаСПробелами="";
ДлинаСтроки = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтроки Цикл
   СтрокаСПробелами = СтрокаСПробелами + Сред(СтрокаИндекс, Счетчик, 1)+ " ";
КонецЦикла;

[Denka]

так короче и понятнее,

СтрокаСПробелами="";
ДлинаСтроки = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтроки Цикл
   СтрокаСПробелами = СтрокаСПробелами + Сред(СтрокаИндекс, Счетчик, 1)+ " ";
КонецЦикла;

не понятно)

Добавлено: 08 июл 2014, 10:38

ДлинаСтрока = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтрока Цикл
СтрокаСПробелами = Лев(СтрокаИндекс, Счетчик);
СтрокаСПробелами = СтрокаСПробелами + " " + Лев(СтрокаИндекс, Счетчик)
Счетчик = Счетчик +1;
КонецЦикла;

спасибо

Добавлено: 08 июл 2014, 10:39

так короче и понятнее,

СтрокаСПробелами="";
ДлинаСтроки = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтроки Цикл
   СтрокаСПробелами = СтрокаСПробелами + Сред(СтрокаИндекс, Счетчик, 1)+ " ";
КонецЦикла;

что куда писать?не догоняю

[LordWizard]

С моей точки зрения строка с каждым пробелом увеличивается на 1 символ, поэтому мне кажется нужно учитывать символ или разбивать строку на массив символов, а затем складывать строку из массива добавляя пробел. Т.е. приблизительно знаем длину через СтрДлина(СокрЛП(ИсхСтрока)), а дальше уже работа с по разбиению и слиянию символов с пробелами.

[LexaK]

что куда писать?не догоняю

... нас не догонят !!!

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

если индексы или другие строки надо частенько разбавлять пробелами, то лучше сделать экспортную функцию в общем модуле
Функция ВставитьПробелы(СтрокаБезПробелов)Экспорт
... (код см.выше)
Возврат СтрокаСПробелами;
КонецФункции

а у себя в программе пишите следующий код

ИндексСПробелами = ВставитьПробелы(Индекс);

[Denka]

что куда писать?не догоняю

... нас не догонят !!!

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

если индексы или другие строки надо частенько разбавлять пробелами, то лучше сделать экспортную функцию в общем модуле
Функция ВставитьПробелы(СтрокаБезПробелов)Экспорт
... (код см.выше)
Возврат СтрокаСПробелами;
КонецФункции

а у себя в программе пишите следующий код

ИндексСПробелами = ВставитьПробелы(Индекс);

все разобрался спасибо

[cska-fanat-kz]

так короче и понятнее,

СтрокаСПробелами="";
ДлинаСтроки = СтрДлина(СтрокаИндекс);
Для Счетчик = 1 По ДлинаСтроки Цикл
   СтрокаСПробелами = СтрокаСПробелами + Сред(СтрокаИндекс, Счетчик, 1)+ " ";
КонецЦикла;

Тока надо не забыть "откусить" последний пробел тем же СокрЛП()

[LexaK]

Тока надо не забыть "откусить" последний пробел тем же СокрЛП()

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

[LordWizard]

Тока надо не забыть "откусить" последний пробел тем же СокрЛП()

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

Вот я и предложил разложить в массив символов, а потом пробежаться складывая бутербродом с пробелом массив символов. Например так

Код Выделить Развернуть


// получили массив индексов до этого из индекса разбиением на символы
СтрокаСпробелами = Массив[1];
Для Номер = 2 По (КонецМассива) Цикл
  СтрокаСпробелами = СтрокаСпробелами  + " " + Массив[Номер];
КонецЦикла;