1. 1C / Говнокод #26004

    +1

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

    Senior

    Запостил: sandvich, 30 Октября 2019

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

    • Пытался перевести на "PHP"
      не получилось
      переведите кто шарит в 1с
      Ответить
      • <?php
        function УбратьПробел($стрЧисло) {
        	//убирает пустой пробел
        	$нСтр = "";
        	for($п=1; $п <= strlen($стрЧисло); ++$п) {
        		$р = substr($стрЧисло,$п,1);
        		if($р == "1" || $р == "2" || $р == "3" || $р == "4" || $р == "5" || $р == "6" || $р == "7" || $р == "8" || $р == "9" || $р == "0" || $р == ",") {
        			$нСтр = $нСтр+$р;
        		}
        	}
        	return $нСтр;
        }
        Ответить
        • показать все, что скрытоvanished
          Ответить
          • Буквы из какого алфавита?
            Ответить
            • показать все, что скрытоvanished
              Ответить
              • Легко!
                <?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 $нСтр;
                }
                Ответить
        • Непатриотичный какой-то у тебя перевод. Перевёл правильно!
          <?php
          function УбратьПробел(₽стрЧисло) {
          	//убирает пустой пробел
          	₽нСтр = "";
          	for(₽п=1; ₽п <= strlen(₽стрЧисло); ++₽п) {
          		₽р = substr(₽стрЧисло,₽п,1);
          		if(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
          			₽нСтр = ₽нСтр+₽р;
          		}
          	}
          	return ₽нСтр;
          }
          Ответить
          • Это "₽H₽"?
            Ответить
          • <?гтш
            функция УбратьПробел(₽стрЧисло) {
            	//убирает пустой пробел
            	₽нСтр = "";
            	для(₽п=1; ₽п <= длстр(₽стрЧисло); ++₽п) {
            		₽р = подстр(₽стрЧисло,₽п,1);
            		если(₽р == "1" || ₽р == "2" || ₽р == "3" || ₽р == "4" || ₽р == "5" || ₽р == "6" || ₽р == "7" || ₽р == "8" || ₽р == "9" || ₽р == "0" || ₽р == ",") {
            			₽нСтр = ₽нСтр+₽р;
            		}
            	}
            	возврат ₽нСтр;
            }
            Ответить
    • В Ленобласти полицейские раскрыли дерзкое похищение петуха породы «Шамо»

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

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

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

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

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

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