1. Куча / Говнокод #1216

    +79.5

    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
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    For Each LVRefWarnItem In Me.ListViewRefWarn.ListItems 
      For Each LVDiagItem In Me.ListViewDiag.ListItems 
        For Each LVReqdClassItem In Me.ListViewReqdClass.ListItems 
          For Each LVReqdPayItem In Me.ListViewReqdPay.ListItems 
            For Each LVReqdSpecItem In Me.ListViewReqdSpec.ListItems 
              For Each LVReqingSpecItem In Me.ListViewReqingSpec.ListItems 
                For Each LVSvcItem In Me.ListViewSvc.ListItems 
                  For Each LVReqdContItem In Me.ListViewReqdCont.ListItems 
                    For Each LVReqingContItem In Me.ListViewReqingCont.ListItems 
                      For Each LVReqingClassItem In ListViewReqingClass.ListItems 
                        For Each LVReqingPayItem In ListViewReqingPay.ListItems 
                          For Each LVHPCodesItem In ListViewHPCodes.ListItems 
                            For Each LVHPOptionCodesItem In ListViewHPOptionCodes.ListItems 
                              For Each LVPOSItem In ListViewPOS.ListItems 
                                For Each LVReqdProvIDItem In ListViewReqdProvID.ListItems 
                                  For Each LVReqingProvIDItem In ListViewReqingProvID.ListItems 
                                    For Each LVAuthTypeItem In ListViewAuthType.ListItems 
                                      For Each LVMembCondItem In ListViewMemberCondition.ListItems 
                                          TempDe1.InsertRule _ 
                                             AdvancedRule, "Advanced", Me.TextGroup, Me.CheckAutoApprove.Value, _ 
                                             CDate(Me.DTPickerFromDt), CDate(Me.DTPickerToDt), ExpDate, _ 
                                             LVSvcItem.Text, LVSvcItem.ListSubItems(1).Text, LVDiagItem.Text, _ 
                                             LVDiagItem.ListSubItems(1).Text, IIf(LVSvcItem.ListSubItems.Count = 1, _ 
                                             "0", LVSvcItem.ListSubItems(LVSvcItem.ListSubItems.Count).Text), _ 
                                             LVReqdSpecItem.Text, LVReqdSpecItem.ListSubItems(1).Text, _ 
                                             LVReqdClassItem.Text, LVReqdClassItem.ListSubItems(1).Text, _ 
                                             LVReqdContItem.Text, LVReqdContItem.ListSubItems(1).Text, _ 
                                             LVReqdPayItem.Text, LVReqdPayItem.ListSubItems(1).Text, _ 
                                             LVReqingSpecItem.Text, LVReqingSpecItem.ListSubItems(1).Text, 
                                             LVReqingClassItem.Text, LVReqingClassItem.ListSubItems(1).Text, _ 
                                             LVReqingContItem.Text, LVReqingContItem.ListSubItems(1).Text, _ 
                                             LVReqingPayItem.Text, LVReqingPayItem.ListSubItems(1).Text, _ 
                                             LVHPCodesItem.Text, LVHPCodesItem.ListSubItems(1).Text, _ 
                                             LVPOSItem.Text, LVPOSItem.ListSubItems(1).Text, _ 
                                             LVReqdProvIDItem.Text, LVReqdProvIDItem.ListSubItems(1).Text, _ 
                                             LVReqingProvIDItem.Text, LVReqingProvIDItem.ListSubItems(1).Text, _ 
                                             TextDesc.Text, TextAgeFrom.Text, TextAgeTo.Text, _ 
                                             LVAuthTypeItem.Text, LVAuthTypeItem.ListSubItems(1).Text, _ 
                                             LVMembCondItem.Text, LVMembCondItem.ListSubItems(1).Text, _ 
                                             Me.cboRuleType.SelectedItem.Key, Me.txtRulePriority.Text, _ 
                                             Int(LVRefWarnItem.Text), Int(LVRefWarnItem.ListSubItems(1).Text), _ 
                                             LVHPOptionCodesItem.Text, LVHPOptionCodesItem.ListSubItems(1).Text 
                                      Next 
                                    Next LVAuthTypeItem 
                                  Next LVReqingProvIDItem 
                                Next LVReqdProvIDItem 
                              Next LVPOSItem 
                            Next LVHPOptionCodesItem 
                          Next LVHPCodesItem 
                        Next LVReqingPayItem 
                      Next LVReqingClassItem 
                    Next LVReqingContItem 
                  Next LVReqdContItem 
                Next LVSvcItem 
              Next LVReqingSpecItem 
            Next LVReqdSpecItem 
          Next LVReqdPayItem 
        Next LVReqdClassItem 
      Next LVDiagItem 
    Next LVRefWarnItem

    ... ооп во всех позах :)

    Запостил: guest, 17 Июня 2009

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

    • bydlo:
      Это, наверное, кодогенератор на ЛИСПе постаралсо.
      Ответить
    • а не VB? в любом случае чушь, и похоже на фейк. 0.
      Ответить
    • Vladislaff:
      Давайте теперь постить сюда все CodeSOD'ы с TheDailyWTF.com?
      Это ж буквально пару дней назад там было.
      Ответить
    • нечего на ООП пинять если руки кривые
      как ноги моей первой девушки
      Ответить

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