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

    −108

    1. 1
    Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")

    Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.

    Говнокод или вполне нормальный трюк?

    valemak, 28 Февраля 2012

    Комментарии (8)
  2. VisualBasic / Говнокод #9440

    −90

    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
    L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
    Label4.Caption = L
    
    If L > 50 Then
    MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной работы программы", vbExclamation, "Ошибка"
    L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
    Label4.Caption = L
    End If
        If L > 50 Then
            MsgBox "Ошибка. Попробуйте запустить приложение снова и выполнить все действия", vbCritical, "Ошибка"
            End
    
    End If

    Третий раз не спрашиваем...

    vovams, 16 Февраля 2012

    Комментарии (5)
  3. VisualBasic / Говнокод #9394

    −110

    1. 1
    2. 2
    If f <> "" Then Shell(Path, AppWinStyle.Hide)
            If f = "" Then Shell(Path)

    Угу, про Else тогда еще не слышали :)

    ipro, 12 Февраля 2012

    Комментарии (2)
  4. VisualBasic / Говнокод #9391

    −112

    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
    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
    'http://www.gotdotnet.ru/files/1003/
    Public Class Form1
        Public massiv(50), massiv1(50) As String
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim a As String
            a = " " + TextBox1.Text
            For i As Integer = 1 To a.Length - 1
                For j As Integer = 1 To 44
                    If a.Substring(i, 1).ToLower = massiv(j) Then
                        TextBox2.Text = TextBox2.Text + massiv1(j)
                        Exit For
                    End If
                Next
            Next
        End Sub
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            massiv(1) = "а"
            massiv(2) = "б"
            massiv(3) = "в"
            massiv(4) = "г"
            massiv(5) = "д"
            massiv(6) = "е"
            massiv(7) = "ё"
            massiv(8) = "ж"
            '...
            massiv(31) = "э"
            massiv(32) = "ю"
            massiv(33) = "я"
            massiv(34) = "1"
            massiv(35) = "2"
            massiv(36) = "3"
            massiv(37) = "4"
            massiv(38) = "5"
            massiv(39) = "6"
            massiv(40) = "7"
            massiv(41) = "8"
            massiv(42) = "9"
            massiv(43) = "0"
            massiv(44) = " "
            '  ////////////////////////////////////////////////////////////////////////////////////
            massiv1(1) = "1"
            massiv1(2) = "2"
            massiv1(3) = "3"
            massiv1(4) = "4"
            massiv1(5) = "5"
            massiv1(6) = "6"
            massiv1(7) = "7"
            massiv1(8) = "8"
            massiv1(9) = "9"
            massiv1(10) = "a"
            massiv1(11) = "b"
            massiv1(12) = "c"
            massiv1(13) = "d"
            '...
            massiv1(31) = "v"
            massiv1(32) = "w"
            massiv1(33) = "x"
            massiv1(34) = "<"
            massiv1(35) = ">"
            massiv1(36) = "!"
            massiv1(37) = "="
            massiv1(38) = "?"
            massiv1(39) = "/"
            massiv1(40) = "@"
            massiv1(41) = "~"
            massiv1(42) = "\"
            massiv1(43) = "-"
            massiv1(44) = "_"
    
        End Sub
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim g As String
            g = " " + TextBox1.Text
            For i As Integer = 1 To g.Length - 1
                For j As Integer = 1 To 44
                    If g.Substring(i, 1).ToLower = massiv1(j) Then
                        TextBox2.Text = TextBox2.Text + massiv(j)
                        Exit For
                    End If
                Next
            Next
        End Sub
    End Class

    dreesto, 11 Февраля 2012

    Комментарии (7)
  5. VisualBasic / Говнокод #9220

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    For I = nrow_Start To nrow_Stop
        Do
            If Nrow_Frm1 = I Then Exit Do
            If Nrow_Frm2 = I Then Exit Do
            If Nrow_Frm3 = I Then Exit Do
            If Nrow_Frm4 = I Then Exit Do
        
            Cells(I, ncol_Period).FormulaR1C1 = formula
        Loop While False
    Next I

    И такое встречается..

    hexman, 25 Января 2012

    Комментарии (5)
  6. VisualBasic / Говнокод #9200

    −107

    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
    GraphicsWindow.Width = 640
    GraphicsWindow.Height = 480
    
    GraphicsWindow.PenColor = "Yellow" 
    For i = 0 To 250
      GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i )
    EndFor
    
    GraphicsWindow.PenColor = "Orange"
    For i = 0 To 250 Step 10
      GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i)
    EndFor
    
    GraphicsWindow.BrushColor = "SteelBlue"
    GraphicsWindow.FillRectangle (0,0, 640 , 230)
    GraphicsWindow.BrushColor = "lightGreen"
    GraphicsWindow.FillTriangle(0, 480, 0, 230, 250, 230)
    GraphicsWindow.FillTriangle(640, 480, 640, 230, 390, 230)
    
    GraphicsWindow.BrushColor = "Orange"
    GraphicsWindow.FillEllipse (10, 30, 50, 50)  
    
    GraphicsWindow.PenColor = "Yellow"
    Turtle.Show()
    y = 0
    For i = 0 To 360 Step 30
    Turtle.X =35
    Turtle.Y = 55
    Turtle.Angle = i
    Turtle.PenUp()
    Turtle.Move(25)
    Turtle.PenDown()
    If y = 1 Then
      Turtle.Move(10)
      y = 0
    else  
      Turtle.Move(20)
      y = 1
    endif
    endfor

    KotoFey1ch, 23 Января 2012

    Комментарии (4)
  7. VisualBasic / Говнокод #9199

    −106

    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
    Turtle.Show()
    Turtle.Move (200)
    Turtle.TurnRight()
    Turtle.TurnRight()
    Turtle.Move(100)
    Turtle.TurnLeft()
    Turtle.Move(100)
    Turtle.TurnRight()
    Turtle.Move(100)
    Turtle.TurnRight()
    Turtle.TurnRight()
    Turtle.Move(200)
    
    Turtle.PenUp()
    Turtle.MoveTo(500, 0)
    Turtle.MoveTo(500, 250)
    Turtle.PenDown()
    Turtle.Angle = 0
    Turtle.Move(180)
    Turtle.PenUp()
    Turtle.Move(10)
    Turtle.PenDown()
    Turtle.Move(3)

    KotoFey1ch, 23 Января 2012

    Комментарии (15)
  8. VisualBasic / Говнокод #8538

    −94

    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
    ' ==== Пример №1 ====
    strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
    strChildAsset = "ChildAssetArray_NewEarlyStaged"
    strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")
    
    ' ==== Пример №2 ====
    strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
    strArrProjectNames= Split(strProjectNames,",")
    
    ' ==== Пример №3 ====
    Dim strWeekday
    ...
    ReDim strWeekday(7)
    strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"

    Примеры создания массивов из QTP-проекта, написанного индусами

    Lurker, 16 Ноября 2011

    Комментарии (1)
  9. VisualBasic / Говнокод #8534

    −93

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ' Return the current date & time converted to GMT in string format
    Public Function gf_GetGMTDateTimeString
    	Dim strDateTime
    	strDateTime=FormatDateTime(date(),vbgeneraldate) & " " & FormatDateTime(now(),vblongtime)
    	strDateTime=DateAdd("h", -5, strDateTime)
    	strDateTime=DateAdd("n", -30, strDateTime)
    	gf_GetGMTDateTimeString=strDateTime
    End Function

    Код из проекта на QTP, написанного индусами
    P.S. UTC+05:30 это Индия, для тех кто не понял

    Lurker, 16 Ноября 2011

    Комментарии (85)
  10. VisualBasic / Говнокод #8319

    −148

    1. 1
    2. 2
    Begin Brahman
    О чем молчат брахманы

    Брехем.

    alexoy, 27 Октября 2011

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