Замена пробелов в строке

[alex0402]

Это если у меня в Адресе, первый идет индекс начинающийся с 0, а если индекс начинается не с 0, то как быть?

в цикле от 0 до 9.

[Sheriff]

Это если у меня в Адресе, первый идет индекс начинающийся с 0, а если индекс начинается не с 0, то как быть?

в цикле от 0 до 9.

Не могу организовать программно, чтобы он продолжал поиск от 0 до 9 и потом корректно выгружал.
Как это будет выглядеть в моем случае?

Добавлено: 04 июл 2017, 09:30

Это если у меня в Адресе, первый идет индекс начинающийся с 0, а если индекс начинается не с 0, то как быть?

в цикле от 0 до 9.

Если приписываю цикл, то либо зависает, либо вообще не выдает в файле адрес

[alex0402]

Если приписываю цикл, то либо зависает, либо вообще не выдает в файле адрес

неправильно прописал.

[Sheriff]

Если приписываю цикл, то либо зависает, либо вообще не выдает в файле адрес

неправильно прописал.

Для Адрес = 0 по 9 Цикл
Поз = Найти(Адрес, "0" );
Если Сред(Адрес,Поз-1,1) = "," Тогда
   Адрес = Лев(Адрес,Поз-2) + " " + Сред(Адрес,Поз);

КонецЕсли;
       КонецЦикла;
Если так делаю, то в адресе вообще пусто. По разному пробовал, но не выходит чет у меня

[alex0402]

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

Для СимволАдрес = "0" по "9" Цикл
Поз = Найти(Адрес, СимволАдрес );
Если Сред(Адрес,Поз-1,1) = "," Тогда
   Адрес = Лев(Адрес,Поз-2) + " " + Сред(Адрес,Поз);

КонецЕсли;
КонецЦикла;

[Sheriff]

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

Для СимволАдрес = "0" по "9" Цикл
Поз = Найти(Адрес, СимволАдрес );
Если Сред(Адрес,Поз-1,1) = "," Тогда
   Адрес = Лев(Адрес,Поз-2) + " " + Сред(Адрес,Поз);

КонецЕсли;
КонецЦикла;

Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)
Для СимволАдрес = "0" по "9" Цикл

[ilyay]

Ну что ж вы так мучаете эту программу?

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

Для Инд = 0 По 9 Цикл
    Адрес = СтрЗаменить(Адрес, ","+Инд, ", "+Инд);
КонецЦикла;

[Sheriff]

Ну что ж вы так мучаете эту программу?

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

Для Инд = 0 По 9 Цикл
    Адрес = СтрЗаменить(Адрес, ","+Инд, ", "+Инд);
КонецЦикла;

Да тут очень интересная программа)
Теперь, если у меня в адресе не указан индекс, то получается вот так: Российская*Федерация,*г.Барнаул,*ул.*Ломоносова
При выгрузке, если бы стоял индекс, то было бы Российская*Федерация, 656000 г.Барнаул,*ул.*Ломоносова, без * после РФ. Сейчас у меня эта * выходит, как от нее избавиться, чтобы перед буквами она тоже не выходила?

[alex0402]

Для СимволАдрес = "0" по "9" Цикл

мда засада. действительно от  строки до строки нельзя!!!

а если как то так?

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

Для СимволАдрес = 0 по 9 Цикл
Поз = Найти(Адрес, Символ(КодСимвола("0") + СимволАдрес );

[Sheriff]

Для СимволАдрес = "0" по "9" Цикл

мда засада. действительно от  строки до строки нельзя!!!

а если как то так?

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

Для СимволАдрес = 0 по 9 Цикл
Поз = Найти(Адрес, Символ(КодСимвола("0") + СимволАдрес );

Решилось этим:
Для Инд = 0 По 9 Цикл
    Адрес = СтрЗаменить(Адрес, ","+Инд, ", "+Инд);
КонецЦикла;
Но есть другое теперь))очень интересная программа)
Теперь, если у меня в адресе не указан индекс, то получается вот так: Российская*Федерация,*г.Барнаул,*ул.*Ломоносова
При выгрузке, если бы стоял индекс, то было бы Российская*Федерация, 656000 г.Барнаул,*ул.*Ломоносова, без * после РФ. Сейчас у меня эта * выходит, как от нее избавиться, чтобы перед буквами она тоже не выходила?