- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 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
лаба моего бывшего однокурсника, весь остальной код - в таком же стиле
вчера искал кой-чего - наткнулся на архив старых лаб моих одногрупников и их предшественников.
Эта наверно одна из самых адекватных, потому что хоть можно сходу понять что она делает
и писал её человек хоть немного выкупающий что он пишет и тем не менее...
Max ID 21.05.2010 13:04 # 0
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 - это ВЕЩЬ.
Коротко и смешно.
bugmenot 07.06.2010 19:09 # +1
firefred 24.08.2021 02:09 # 0