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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
Функция УбратьПробел(стрЧисло)
	//убирает пустой пробел
	нСтр = "";
	Для п=1 По СтрДлина(стрЧисло) Цикл
		р = Сред(стрЧисло,п,1);
		Если р = "1" ИЛИ р = "2" ИЛИ р = "3" ИЛИ р = "4" ИЛИ р = "5" ИЛИ р = "6" ИЛИ р = "7" ИЛИ р = "8" ИЛИ р = "9" ИЛИ р = "0" ИЛИ р = "," Тогда
			нСтр = нСтр+р;
		КонецЕсли;
	КонецЦикла;
	Возврат нСтр;
КонецФункции

Senior

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

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

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

    Пытался перевести на "PHP"
    не получилось
    переведите кто шарит в 1с
    Ответить

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

      <?php
function УбратьПробел($стрЧисло) {
	//убирает пустой пробел
	$нСтр = "";
	for($п=1; $п <= strlen($стрЧисло); ++$п) {
		$р = substr($стрЧисло,$п,1);
		if($р == "1" || $р == "2" || $р == "3" || $р == "4" || $р == "5" || $р == "6" || $р == "7" || $р == "8" || $р == "9" || $р == "0" || $р == ",") {
			$нСтр = $нСтр+$р;
		}
	}
	return $нСтр;
}
      Ответить

      • ava guest # 0 ⇈

        А можешь доработать чтобы она буквы не убирала?
        Ответить

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

              Легко!
              <?php
function УбратьПробел($стрЧисло) {
	//убирает пустой пробел
	$нСтр = "";
	for($п=1; $п <= strlen($стрЧисло); ++$п) {
		$р = substr($стрЧисло,$п,1);
		if($р == "1" || $р == "2" || $р == "3" || $р == "4" || $р == "5" || $р == "6" || $р == "7" || $р == "8" || $р == "9" || $р == "0" || $р == "," || $р == "A" || $р == "B" || $р == "C" || $р == "D" || $р == "E" || $р == "F" || $р == "G" || $р == "H" || $р == "I" || $р == "J" || $р == "K" || $р == "L" || $р == "M" || $р == "N" || $р == "O" || $р == "P" || $р == "Q" || $р == "R" || $р == "S" || $р == "T" || $р == "U" || $р == "V" || $р == "W" || $р == "X" || $р == "Y" || $р == "Z" || $р == "a" || $р == "b" || $р == "c" || $р == "d" || $р == "e" || $р == "f" || $р == "g" || $р == "h" || $р == "i" || $р == "j" || $р == "k" || $р == "l" || $р == "m" || $р == "n" || $р == "o" || $р == "p" || $р == "q" || $р == "r" || $р == "s" || $р == "t" || $р == "u" || $р == "v" || $р == "w" || $р == "x" || $р == "y" || $р == "z") {
			$нСтр = $нСтр+$р;
		}
	}
	return $нСтр;
}
              Ответить

              • ava guest # 0 ⇈

                Спасибо.

                Код получился гибким и расширяемым
                Ответить

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

                  Я хотел ещё сделать, чтобы он китайские иероглифы не удалял, но, к сожалению, в 2000 символов не помещается.
                  Ответить

                  • ava guest # 0 ⇈

                    2000?
                    А это традиционный китайский или упрощенный?
                    Ответить

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

                      Любой не поместится. Для добавления одного символа к алфавиту мне нужно добавить 13 байтов к коду. Даже в бопомофо (это запись китайского «по буквам») 42 символа, это к коду добавит 546 байтов.

                      Объединённый же набор иероглифов для китайского, корейского и японского в «Unicode» включает 21 тысячу знаков.
                      Ответить

                      • ava guest # 0 ⇈

                        У корейского нету иреголифов
                        Там слоговое письмо.

                        Зы: напомнило: Matz писал, что Ruby появился в 1994 году, но первые несколько лет не пользовался особой популярностью за пределами Японии быть может потому, что документация по нему была только на японском
                        Ответить

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

                          Точно. У корейцев сейчас хангыль.

                          Вот какого хрена в «Unicode» таблицу иероглифов назвали «CJK», если в «K» они не используются?
                          Ответить

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

                            В корейском есть и иероглифы, но кроме 3.5 старпёров их никто не знает.
                            Ответить

                  • ava guest # 0 ⇈

                    А если серьезно, то я не понимаю как этот человек программирует.

                    У студента-второкурсника пишущего на любом языке должно было что-то щелкнуть в голове на моменте седьмой примерно цифиры
                    Ответить

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

                      У меня щёлкнуло. Я написа́л генератор кода:
                      foreach (range('A', 'Z') as $letter) {
    echo ' || $р == "'.$letter.'"';
}
                      Ответить

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

                          incr не работает с символами. Какой багор )))
                          Можно использовать макрос translit, но тогда придётся разбивать алфавит на порции по 10 символов:
                          divert(-1)dnl
define(`forloop', `pushdef(`$1', `$2')_forloop($@)popdef(`$1')')
define(`_forloop',
       `$4`'ifelse($1, `$3', `', `define(`$1', incr($1))$0($@)')')
divert(0)dnl
forloop(`i', `0', `9', ` || $р == "translit(i, `0-9', `A-J')"')
                          Ответить

                          • ava guest # 0 ⇈

                            зачем тебе символы?
                            через ``esyscmd`` можно запустить внешнюю команду

                            perl -e "print chr <> ";
                            Ответить

                              • ava guest # 0 ⇈

                                В смысле почему не 
                                my $foo = "1 2 33";
$foo =~ s/\s+//;
print $foo; # выведет 1233

                                ?

                                Не знаю.. А что, так можно было разве?
                                Ответить

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

                                  В этой задаче можно обойтись и sed'ом. Но phpBidlokoder2 просил код на «PHP». Его нужно чем-то сгенерировать.
                                  Ответить

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

                                    В задаче удаления пробела можно было обойтись тыром
                                    $ echo "php govna kusok" | tr -d " "
                                    Ответить

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

        Непатриотичный какой-то у тебя перевод. Перевёл правильно!
        <?php
function УбратьПробел(₽стрЧисло) {
	//убирает пустой пробел
	₽нСтр = "";
	for(₽п=1; ₽п <= strlen(₽стрЧисло); ++₽п) {
		₽р = substr(₽стрЧисло,₽п,1);
		if(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
			₽нСтр = ₽нСтр+₽р;
		}
	}
	return ₽нСтр;
}
        Ответить

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

          <?гтш
функция УбратьПробел(₽стрЧисло) {
	//убирает пустой пробел
	₽нСтр = "";
	для(₽п=1; ₽п <= длстр(₽стрЧисло); ++₽п) {
		₽р = подстр(₽стрЧисло,₽п,1);
		если(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
			₽нСтр = ₽нСтр+₽р;
		}
	}
	возврат ₽нСтр;
}
          Ответить

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

    В Ленобласти полицейские раскрыли дерзкое похищение петуха породы «Шамо»

    https://78.ru/news/2019-10-29/v_lenoblasti_policeiskie_raskrili_derzko e_pohishenie_petuha_porodi_shamo

    Фото: pxhere.com
    Полицейские по «горячим» следам раскрыли кражу птицы в Ленинградской области. Об этом сообщает пресс-служба главного управления МВД РФ по Петербургу и Ленобласти.

    Накануне в полицию Приозерского района обратился 33-летний житель одного из домов на Железнодорожной улице. Он заявил, что преступник разбил окно и проник в его квартиру на первом этаже, откуда похитил петуха породы «Шамо» стоимостью 20 тысяч рублей.

    По подозрению в совершении преступления была задержана 27-летняя неработающая женщина. Похищенную птицу вернули хозяину. По факту кражи возбуждено уголовное дело. Подозреваемой избрали меру пресечения в виде подписки о невыезде.

    Напомним, ранее в Подмосковье две девушки украли металлического Дзюбу.
    Ответить

    • ava guest # 0 ⇈

      >Напомним,
      Как эта хуйня называется, вплетение "похожих новостей" в текст? Это же ботом делают?
      Ответить

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

      А какое отношение похищение петуха имеет к лапше на «1С»?
      Ответить

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

Семь раз отмерь — один отрежь, guest!

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

    ↑
    8
    ↓