1. Список говнокодов пользователя bytemdfab

    Всего: 2

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

    −123

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    Функция   СтрокаБезПробелов(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)

  3. 1C / Говнокод #6113

    −103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    к = 0;
ТЗ2=СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТЗ2,"ТМЦ,Кво");
ТЗ2.НоваяКолонка("Арт");
ТЗ2.ВыбратьСтроки();
Пока ТЗ2.ПолучитьСтроку()=1 Цикл
	ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");
	Если Лев(ТМЦ_,5)="Набор" Тогда
		ТЗ2.Арт=ТМЦ_.Родитель;
	Иначе
		ТЗ2.Арт=ТМЦ_.Родитель.Родитель;
	КонецЕсли;
	к=к+1;
КонецЦикла;

    Из 7.7. Особенно радует момент ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");

    bytemdfab, 29 Марта 2011

    Комментарии (2)