- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
Функция УбратьПробелы(Строка)
ВозвратСтрока = "";
Сч = 1;
ДлинаСтроки = СтрДлина(Строка);
Пока Сч <= ДлинаСтроки Цикл
Если КодСимвола(Строка, Сч) <> 160 Тогда
ВозвратСтрока = ВозвратСтрока + Символ(КодСимвола(Строка, Сч));
КонецЕсли;
Сч = Сч + 1;
КонецЦикла;
Возврат ВозвратСтрока;
КонецФункции
guest 24.05.2013 08:57 # +1
while find(str,char)>0 do
str = StrReplace(str,char,"");
enddo;
return str;
endfunction
Так значительно короче :)
guest 24.05.2013 23:53 # −6
vistefan 28.05.2013 16:28 # +8
Нельзя недостоин этого сайта.
Zeratul 11.02.2014 15:17 # 0
mrbus 12.02.2014 11:30 # 0