ЗаменитьПробелы УФ

[Кот_Леопольд]

Подскажите есть ли тут ошибка:

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

Функция ЗаменитьПробелы(Текст, Позиция)
Пока Позиция  Цикл
Текст=Сред(Текст,1,Позиция-1)+"#"+Сред(Текст,Позиция+1,СтрДлина(Текст));
        Позиция=Позиция+1;
    КонецЦикла;
    Возврат Текст;
КонецФункции
У меня программа зацикливается, я этот код на форуме нашел

[Vit1501]

странный код... у вас в условии цикла стоит Пока Позиция , т  е Пеерменная позиция сравнивается с типом булево, но по факту у вас позиция - это число и поскольку оно больше нуля судя по коду, то цикл у вас бесконечный. Нужно переделать цикл на форму Для i=Позиция по ПоследняяПозицияВТексте Цикл... ну или как то в таком ключе подумать

[LexaK]

чё за брэд?
а просто
СтрЗаменить() - чем не подходит?

[Vit1501]

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