- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
Функция УбратьПробелы(Строка)
ВозвратСтрока = "";
Сч = 1;
ДлинаСтроки = СтрДлина(Строка);
Пока Сч <= ДлинаСтроки Цикл
Если КодСимвола(Строка, Сч) <> 160 Тогда
ВозвратСтрока = ВозвратСтрока + Символ(КодСимвола(Строка, Сч));
КонецЕсли;
Сч = Сч + 1;
КонецЦикла;
Возврат ВозвратСтрока;
КонецФункции
while find(str,char)>0 do
str = StrReplace(str,char,"");
enddo;
return str;
endfunction
Так значительно короче :)
Нельзя недостоин этого сайта.