Школоло / Говнокод #422 Ссылка на оригинал

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
  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
Public Function MakeShort(Parametr As String) As String
Dim temp As String
    
Dim f1index As Integer
Dim Lastindex As Integer
    
If (Parametr <> "") Then
temp = Strings.Replace(Parametr, "\", " ")
temp = Strings.Replace(temp, "/", " ")
temp = Strings.Replace(temp, ":", " ")
temp = Strings.Replace(temp, "*", " ")
temp = Strings.Replace(temp, "?", " ")
temp = Strings.Replace(temp, "<", " ")
temp = Strings.Replace(temp, ">", " ")
temp = Strings.Replace(temp, "|", " ")
    
    
    f1index = Strings.InStr(temp, Strings.Chr(34))
    Lastindex = Strings.InStrRev(temp, Strings.Chr(34))
    
    temp = Strings.Mid(temp, f1index, Lastindex)
    
    MakeShort = Strings.Replace(temp, Strings.Chr(34), "")
Else
    MakeShort = ""
End If
End Function

Что то типа парсера... или точнее готовится так из строки имя файла

guest guest, (Updated )

Комментарии (55, +55)

Школоло / Говнокод #421 Ссылка на оригинал

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
  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
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
  99. 99
  100. 100
Option Explicit

 'обявление констант имен ячеек
 'изменнение их здесь приведет к програмному изменению
 'имена констант задаются именами ячеек куда записана та или иная информация

'Зеленый--------------------------------



 Public Const зТехКартаНазаказ As String = "L4"
 Public Const зкНаряду As String = "L5"
 
 Public Const зЗаказчик As String = "B7"
 Public Const зЗаказ As String = "G7"
 
 Public Const зТТН As String = "K14"
 
 Public Const зТираж As String = "B12"
 Public Const зКрасочность1 As String = "F12"
 Public Const зКрасочность2 As String = "H12"
 
 Public Const зФорматЭтикетки1 As String = "M10"
 Public Const зФорматЭтикетки2 As String = "O10"
 
 Public Const зБумага As String = "K12"
 'Public Const зГрамматура As String = "M5"
 
 Public Const бМашина As String = "B22"
 'Public Const бГруппаКраски As String = "E6"
 'Public Const бГруппаБумаги As String = "L6"
 
'конец о бланке

'схема раскроя---------------------------
 Public Const сФормат1 As String = "A11"       'слева
 Public Const сФормат2 As String = "B10"       'выше
 Public Const сПечатныйЛист1 As String = "F11" 'слева
 Public Const сПечатныйЛист2 As String = "H10" 'выше
 
 Public Const сКоличествоИзделийНаПечЛисте As String = "M8"
 Public Const сКоличествоПечатныхЛистовНаФормате As String = "M9"
 Public Const сКоличествоЛистооттисков As String = "M10"
 Public Const сКоличествоКраскооттисков As String = "M11"
 Public Const сПриведенныеЛистооттиски As String = "M12"
 Public Const сПриведенныеКраскооттиски As String = "M13"
 Public Const сКоэффициентПриведения As String = "M14"
    
'конец схема раскроя
 
 'Материалы-----------------------------
 Public Const мПленка As String = "B18"
 Public Const мПластины As String = "B19"
 Public Const мПроявитель As String = "F18"
 Public Const мФиксаж As String = "F19"
 Public Const мДобавкаПроявитель As String = "M18"
 Public Const мДобавкаФиксож As String = "M19"
 
 'конец материалов
 
 'бумага----------------------------------
 Public Const бКоличество As String = "B23"
 Public Const бВес As String = "B24"
 Public Const бВсего As String = "B25"
 Public Const бКоличествоФорматов As String = "B26"
 
 Public Const бПриладка As String = "F25"
 Public Const бПриладкаНаПечать As String = "M25"
 'конецбумага------------------------------
 
 'краска
 Public Const кКраска1Цвет As String = "B29"
 Public Const кИтого As String = "B30"
    
 '-----------------
 
 'химия-------------------------------------
 Public Const хКонцентрат As String = "M29"
 Public Const хИзопропиловый As String = "M30"
 Public Const хХимия As String = "M31"
 Public Const хСиккатив As String = "M32"
 Public Const хСредстваДляОчистки As String = "M33"
 Public Const хПротивоотмарывающий As String = "M34"
 'конец химии-------------------------------

 'после печатная (коробки лента лак)
 Public Const пКоробкиШтук As String = "M36"
 Public Const пКоробкиНазавание As String = "K36"
 Public Const пЛента As String = "M37"
 
 Public Const пТипЛакировки As String = "A34"
 Public Const пЛакНазание As String = "B34"
 Public Const пЛак As String = "D34"
 
 Public Const фФольгаСколько As String = "M41"
 Public Const фФолькаКакая As String = "K41"
 'конец послепечатной
 Public Const Summ1 As String = "K44"
 Public Const Под1 As String = "K45"
 Public Const Под2 As String = "K46"

Один не очень перспективный проект...
В котором все было завязано так... трудно предсавить как оно без этого жило...

guest guest, (Updated )

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

Си диез / Говнокод #420 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
/*
    При подписке на комментарии по RSS, в приходящем комментарии приходит ссылка
    на него же на сайте, но она не правильная и во всей "теме" одинаковая.

    Пример (подписан #413), ссылка: http://govnokod.ru/2637#comment1094
*/

guest guest, (Updated )

Комментарии (3, +3)

Jawa / Говнокод #419 Ссылка на оригинал

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
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
if ((solution.indexOf("filter") != -1)
                    || (solution.indexOf("Filter") != -1)
                    || (solution.indexOf("FILTER") != -1)) {
                solution = "Filter incoming traffic to port/service \""
                        + serviceName + "\" if the service is not used";
            } else if ((solution.indexOf("package") != -1)
                    || (solution.indexOf("Package") != -1)
                    || (solution.indexOf("PACKAGE") != -1)
                    || (solution.indexOf("vendor") != -1)
                    || (solution.indexOf("Vendor") != -1)
                    || (solution.indexOf("VENDOR") != -1)
                    || (solution.indexOf("service") != -1)
                    || (solution.indexOf("Service") != -1)
                    || (solution.indexOf("SERVICE") != -1)) {
                solution = "AMBIQUITY_SOLUTION_START port/service \""
                        + item.getServiceName() + "\'} " + solution;
            }

//...............................................etc

Развиваю один старый проект. Не буду говорить о всех перлах того, что я там увидел, про великую архитектуру проекта, но кое-что хотелось бы показать.
З.Ы. Я бы хотя бы сделал так
solution.toLowerCase().indexOf("package" ) != -1
З.З.Ы Этот ужас таки порефакторил и его убрали :)

guest guest, (Updated )

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

Змея / Говнокод #418 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
def myint2str(x, n):
    zzeros = '0'
        input_string = str(x)
        string_len = len(input_string)
        for zz in range(1,n-string_len,1):
            zzeros = zzeros + '0'

        rres = zzeros+str(x)
        return rres

Задача: написать функцию которая переводит целое число в строку определённого размера, содержащую это целое число и нули.

То есть:
5 >> 00005
123 >> 00123

Отсюда: http://koldunov.net/?p=194

guest guest, (Updated )

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

"PHP" / Говнокод #416 Ссылка на оригинал

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
  13. 13
  14. 14
  15. 15
/* 
пройдя голосование пользователь переходит на такую страничку
/voted.html?how=bae60998ffe4923b131e3d6e4c19993e&key=
а ниже обработчик этой страницы
*/

if ($_GET['how'] == md5('bad')) {
  $msg['msg'] = "<h1>You have already voted!</h1>";
  $msg['coupon'] = "Your 5% discount coupon is <font color=red>".$voteSys->getUsedCoupon($_GET['key'])."</font>";
  $msg['coupon_link'] = '<a style="border: red;" href="'.$site_url.'/order.htm?coupon='.$voteSys->getUsedCoupon($_GET['key']).'"><h1>You can use your 5% discount NOW!</h1></a>';
  
}
elseif ($_GET['how'] == md5('good')) {
	if ($voteSys->isValidKeyWithCoupon($_GET['key'])) { 
      $msg['msg'] = " Thank you for completing this questionnaire, <br>you opinion is very important to us!";

А наших программистов не учили пользоваться СЕССИЯМи !!

guest guest, (Updated )

Комментарии (10, +10)