Говнокод #11850 — 1C — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1C / Говнокод #11850

−123

Функция   СтрокаБезПробелов(sP,lenP= Неопределено) Экспорт
	
// убрать пробелы (на самом деле, символы 160) в строке sP
// (после преобразования числа в cтроку)
// если нужно - дописать пробелов спереди до длины lenP

 s_ = СтрЗаменить(Строка(sP),Символ(160),"");
 
 Если lenP>0 Тогда
      l_ = СтрДлина(s_);
	  Если l_<lenP Тогда
		   j = lenP-l_;
		   Если j=1 Тогда
			    s_ = " "+s_;
		   Иначе	   
		    Если j=2 Тогда
			     s_ = "  "+s_;
		    Иначе	   
		     Если j=3 Тогда
			      s_ = "   "+s_;
		     Иначе	   
		      Если j=4 Тогда
			       s_ = "    "+s_;
		      Иначе	   
		       Если j=5 Тогда
			        s_ = "     "+s_;
		       Иначе	   
		        Если j=6 Тогда
			         s_ = "      "+s_;
		        Иначе	   
		         Если j=7 Тогда
			          s_ = "       "+s_;
		         Иначе	   
		          Если j=8 Тогда
			           s_ = "        "+s_;
		          Иначе	   
                  КонецЕсли;
                 КонецЕсли;
                КонецЕсли;
               КонецЕсли;
              КонецЕсли;
             КонецЕсли;
            КонецЕсли;
           КонецЕсли;
      КонецЕсли;
 КонецЕсли;
  
 Возврат s_;
КонецФункции

Вот такая замена функции Формат нашлась в исходниках от одного из внедренцев.

Запостил:

bytemdfab, 01 Октября 2012

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

ilya2184 01.10.2012 14:05 # 0

Много "Если - КонецЕсли" несколько усложняет чтение :-)
Ответить
govnomonad 01.10.2012 15:49 # 0

>s_
>l_
>j = lenP-l_;
жуткое говно
Ответить
- bormand 01.10.2012 16:20 # 0
  
  И да, почему переменные не кириллицей? Неправославный код.
  Ответить
eth0 01.10.2012 20:13 # +2

Ужасно, просто ужасно. Надеюсь, ведущие нули он тоже будет дописывать ручками. Для этого можно даже сделать ещё одну функцию.
Ответить
- Fai 01.10.2012 21:31 # 0
  
  Зачем ещё одну? В эту передавать, что делать - добавить пробелы или ведущие нули.
  Ответить
  - bytemdfab 02.10.2012 08:17 # 0
    
    У него в этом же модуле 6 или 7 функций поиска в таблице значений. НайтиЗначение1(), НайтиЗначение2() и т.д. Отличаются только набором передаваемых параметров. Поверьте - для нулей у него тоже отдельная функция найдется.
    Ответить
    - Vasiliy 02.10.2012 12:49 # +1
      
      а 1С ООП не может ? класс запилить и расширять его для пробелов для 0
      Ответить
      - bormand 02.10.2012 13:40 # +2
        
        > класс запилить и расширять его для пробелов для 0
        Да у вас же джава головного мозга.
        
        Функции с параметром символДляЗаполнения уже не достаточно?
        Ответить
        
        bytemdfab 02.10.2012 14:35 # +1
        
        Все гораздо проще. В 1с есть фукнция Формат(), которая среди прочего преобразовывает число в строку по заданному шаблону.
        Ответить
        
        bormand 02.10.2012 16:16 # 0
        
        > В 1с есть фукнция Формат()
        Так это мануал открывать ;)
        Ответить
      - eth0 02.10.2012 16:54 # 0
        
        В семёрке для этого пилили костыли. В восьмёрке не видел.
        Там еле-еле добавили несколько более-менее нормальных коллекций, а тут - объекты.
        Ответить
wvxvw 04.10.2012 08:06 # +1
В 1С так не хватает междометий и частиц :( вот на сколько богаче был бы язык, если бы в нем можно было бы просто по контексту добавлять нужные междометия, чуть по-больше синономов для ключевых слов, таких как Однако, АЕсли, НеИначе. Как замечательно выглядела бы конструкция:
```
Если А Тогда Б
  Иначе, Если В Тогда Г,
  Не Иначе Д!
```
Ответить
- bormand 04.10.2012 08:36 # 0
  
  АЕсли = try?
  Ответить
  - wvxvw 04.10.2012 09:33 # +4
    
    ДаКакЖеТак = catch
    
    Вообще, как-то изобретатели языка совсем без огонька подошли к задаче. Например, вместо Возврат, гораздо лучше было бы писать Верни. И по смыслу ближе, и бухгалтерам веселее жить было бы.
    Ответить
    - LispGovno 04.10.2012 10:01 # +1
      
      >Верни
      Чтение этого кода начало бы их угнетать, особенно, если не они написали этот код.
      Ответить
      - bormand 04.10.2012 10:10 # +2
        
        Функция ДлинаСтроки(с) Верни, верни СтрДлина(с), сука; КонецФункции;
        Ответить
        
        govnomonad 04.10.2012 17:00 # +1
        
        я правильно понимаю, что здесь есть инструкция для выключения встроеного глюкогенератора и контроль исключений?
        Ответить
ilya2184 12.10.2012 15:30 # 0

Блин, я думал такие конструкции только в сказках...

Запрос.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
| ХозрасчетныйОборотыДтКт.СчетДт,
| ХозрасчетныйОборотыДтКт.СчетКт,
| ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.01""
| ТОГДА ""ФСС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.03.1""
| ТОГДА ""ФФОМС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.03.2""
| ТОГДА ""ТФОМС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.02.1""
| ТОГДА ""ПФР""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.02.2""
| ТОГДА ""ПФРНакопительная""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.11""
| ТОГДА ""ФСС_НС_ПЗ""
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ КАК Налог,
Ответить
qSEWuQd 25.08.2021 09:56 # 0

vanished
Ответить

Говнокод: по колено в коде.

1C / Говнокод #11850

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

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