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

    • ava Max ID 21.05.2010 13:04 # 0

      И что же она делает? Итересно, если это - одна из самых адекватных, то какие же тогда другие?
      Ответить

      • ava 3.14159265 21.05.2010 13:17 # +1

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

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

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

        Вообще такие говнокоды как у юзера k06a - это ВЕЩЬ.
        Коротко и смешно.
        Ответить

      • ava bugmenot 07.06.2010 19:09 # +1

        чтень!
        Ответить

    • ava firefred 24.08.2021 02:09 # 0

      Я стал ласкать их. У них, был свой вкус. Не такой, как у Наташкиных, и не такой, как у других женщин, а особый, только ей принадлежащий, волшебный вкус.
      Ответить

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