1. VisualBasic / Говнокод #910

    −130

    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
    61. 61
    62. 62
    63. 63
    i = 2
    
                    X = "blank"
                    index = ""
                    qty = "1"
    
                    For Each Z In sContents
                        If (Z.StartsWith("1") Or Z.StartsWith("2") Or Z.StartsWith("3") Or Z.StartsWith("4") Or Z.StartsWith("5") Or Z.StartsWith("6") Or Z.StartsWith("7") Or Z.StartsWith("8") Or Z.StartsWith("9")) Then
                            Line = Z.Split("|")
    
                            If Not Line(0).Contains(".") Then
                                index = Line(0)
                                qty = 1
                            End If
    
                            If Line(1).StartsWith("ID") Then
                                X = Line(3).Substring(15)
                                qty = Line(4)
                            Else
                                sheet.Cells(i, 1) = Line(2)
                                sheet.Cells(i, 2) = Line(3)
    
                                If Line(2) = X Then
                                    sheet.Range("B" & i).Font.Bold = True
                                Else
                                    If Line(0).StartsWith(index & ".") Then
                                        sheet.Range("B" & i).IndentLevel() = 1
                                    End If
                                End If
    
                                If Not Line(0).Contains(".") Then
                                    sheet.Range("B" & i).Font.Bold = True
                                End If
    
                                If Line(5) = "N/A" Then
                                    sheet.Cells(i, 3) = 0
                                Else
                                    sheet.Cells(i, 3) = Line(5)
                                End If
    
                                sheet.Range("C" & i).NumberFormat = "[$$-2409]#,##0.00"
    
                                sheet.Cells(i, 4) = Line(7)
    
                                If qty > 1 Then
                                    sheet.Cells(i, 5) = Line(4) * qty
                                Else
                                    sheet.Cells(i, 5) = Line(4)
                                End If
    
                                sheet.Cells(i, 6) = "=E" & i & "*C" & i
    
                                sheet.Range("F" & i).NumberFormat = "[$$-2409]#,##0.00"
    
                                sheet.Range("D" & i, "E" & i).HorizontalAlignment = Excel.Constants.xlCenter
                                sheet.Range("A" & i, "F" & i).Font.Size = 10
                                sheet.Range("A" & i, "F" & i).Borders.LineStyle = Excel.Constants.xlSolid
    
                                i = i + 1
                            End If
                        End If
    
                    Next Z

    чем не говнокод?
    работает, хуле :)

    Запостил: guest, 21 Апреля 2009

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

    • ncux:
      рисует красивую экселину из текстового файла-выкидыша уебищного сановского веб конфигуратора
      Ответить

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