Бухгалтерия / Говнокод #13039 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
Функция  УбратьПробелы(Строка)
	ВозвратСтрока = "";
	Сч = 1;
	ДлинаСтроки = СтрДлина(Строка);
	Пока Сч <= ДлинаСтроки Цикл 
		Если КодСимвола(Строка, Сч) <> 160 Тогда
			ВозвратСтрока = ВозвратСтрока + Символ(КодСимвола(Строка, Сч));
		КонецЕсли;
		Сч = Сч + 1;
	КонецЦикла;
	Возврат ВозвратСтрока;
КонецФункции

Видимо
Строка = СтрЗаменить(Строка, Символ(160), "");
выглядело слишком неочевидно, пробелы же нестандартные, а вот УбратьПробелы(Строка) - это - да, это всем понятно.

Запостил: madcat_sev madcat_sev, (Updated )

Комментарии (5) RSS

  • ava guest # Ссылка на оригинал 0

    function DelChars(str,char)
    while find(str,char)>0 do
    str = StrReplace(str,char,"");
    enddo;
    return str;
    endfunction

    Так значительно короче 🙂
    Ответить

  • ava guest # Ссылка на оригинал 0

    Я здесь новичок, но тут шутят что любой код с 1С можно достоин этого сайта?
    Ответить

    • ava vistefan # Ссылка на оригинал 0 ⇈

      >можно достоин этого сайта?
      Нельзя недостоин этого сайта.
      Ответить

Добавить комментарий

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓