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

    −368

    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
    Public Function Chten(adr As String, TK As Boolean) As String
    Dim str As String
    Dim strr As String
    Dim i As Long
    If DirectoryExists(adr) = True Then
      Dim FLong As Long
      Open adr For Binary As #1
      FLong = Loc(1)
      Do While FLong < LOF(1)
        str = str + Input(1, #1)
        FLong = Loc(1)
      Loop
      Close #1
      strr = str
      If TK = True Then
      strr = ""
      Dim j As Long
      j = Len(str)
      For i = 1 To j
        If ((i Mod 8) = 0) Or (i = j) Then
            strr = strr + RTK(Mid(str, 1, 8))
            str = Mid(str, 9)
        End If
      Next
      End If
      Chten = strr
    End If
    End Function
    
    'есть ли
    'видно что функцию он где-то взял - см. другой стиль именования переменных и отступы
    'но при этом сама и функция тоже попахивает
    Public Function DirectoryExists(ByVal strPathName As String) As Boolean
        Dim DirectoryFound As String
        Const errPathNotFound As Integer = 76
        On Error GoTo 0
        DirectoryFound = Dir(strPathName, vbDirectory)
        If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
            DirectoryExists = False
        Else
            DirectoryExists = True
        End If
    End Function

    лаба моего бывшего однокурсника, весь остальной код - в таком же стиле
    вчера искал кой-чего - наткнулся на архив старых лаб моих одногрупников и их предшественников.
    Эта наверно одна из самых адекватных, потому что хоть можно сходу понять что она делает
    и писал её человек хоть немного выкупающий что он пишет и тем не менее...

    Запостил: 3.14159265, 21 Мая 2010

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

    • И что же она делает? Итересно, если это - одна из самых адекватных, то какие же тогда другие?
      Ответить
      • >>И что же она делает?
        этот кусок читает файл, причем заметьте как
        Do While FLong < LOF(1)
        str = str + Input(1, #1)
        FLong = Loc(1)
        Loop
        по одному символу и складывает со строкой - так хоть на асме читай - будет крайне медленно.
        а потом другой цикл, чтобы нарезать то что прочитали по 8

        >>>то какие же тогда другие?
        там жесть,
        все переменные одно-двух буквенные , куча на хрен ненужных циклов, (к примеру - поиск символа или слова в строке) причем зачастую с криво написаными условиями.
        ifы c непонятными откуда вырытыми числами в условиях
        какие-то абсолютно ненужные проверки
        все это без отступов и вce в в одной процедуре ))
        Короче стандартная лаба среднего студента универа.

        Причем там огромные портянки кода делающие то что можно реализовать в 10 строк.
        Я их сюда постить не хочу так как это хоть говно, но оно стандартное, да и думаю у каждого такого хватает, хотя может вырежу самый жир...

        Вообще такие говнокоды как у юзера k06a - это ВЕЩЬ.
        Коротко и смешно.
        Ответить
      • чтень!
        Ответить
    • Я стал ласкать их. У них, был свой вкус. Не такой, как у Наташкиных, и не такой, как у других женщин, а особый, только ей принадлежащий, волшебный вкус.
      Ответить

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