Школоло / Говнокод #3283 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 3.14159265, (Updated )

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

  • ava Max ID # Ссылка на оригинал 0

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

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

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

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

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

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

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓