Легко читаемый код

[Ramzes]

Код в орегинале:

Код: Выделить всё

Dim Mfile() As String
Dim MfileLen() As Integer
Dim arrVal As Long
Dim temparrval As Long
Dim temp As String
Dim TempArr() As String
Dim OnExitArr() As String


Private Sub Form_Load()
Open "c:\1.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, q
    arrVal = arrVal + 1
Loop
Close #1
    ReDim Mfile(1 To arrVal)
    ReDim MfileLen(1 To arrVal)
    ReDim OnExitArr(1 To arrVal)
temparrval = 1
Open "c:\1.txt" For Input As #1
Do Until EOF(1)
    Line Input #1, txt
    Mfile(temparrval) = txt
    temparrval = temparrval + 1
Loop
Close #1
For q = 1 To arrVal
    MfileLen(q) = Len(Mfile(q))
Next
For q = 1 To arrVal
    ReDim TempArr(1 To MfileLen(q))
    For w = 1 To MfileLen(q)
        TempArr(w) = Asc(Mid(Mfile(q), w, 1))
        If TempArr(w) < 32 Then Exit Sub
        If TempArr(w) > 250 Then
            TempArr(w) = TempArr(w)
        End If
        TempArr(w) = TempArr(w) + 5
        OnExitArr(q) = OnExitArr(q) & Chr(TempArr(w))
    Next
Next
For r = 1 To arrVal
    ss = ss & OnExitArr(r) & vbCrLf
Next
MsgBox ss
End Sub

и код котрый легко прочитать

Код: Выделить всё

Dim Mfile() As String: Dim MfileLen() As _
Integer: Dim arrVal As Long: Dim temparrval _
As Long: Dim temp As String: Dim TempArr() _
As String: Dim OnExitArr() As String
Private Sub Form_Load(): Open "c:\1.txt" _
For Input As #1: Do Until EOF(1): Line Input _
#1, q: arrVal = arrVal + 1: Loop: Close #1: _
ReDim Mfile(1 To arrVal): ReDim MfileLen(1 _
To arrVal): ReDim OnExitArr(1 To arrVal): _
temparrval = 1: Open "c:\1.txt" For Input _
As #1: Do Until EOF(1): Line Input #1, txt: _
Mfile(temparrval) = txt: temparrval = temparrval _
+ 1: Loop: Close #1: For q = 1 To arrVal: _
MfileLen(q) = Len(Mfile(q)): Next: For q = 1 _
To arrVal: ReDim TempArr(1 To MfileLen(q))
For w = 1 To MfileLen(q): TempArr(w) = _
Asc(Mid(Mfile(q), w, 1)): If TempArr(w) < 32 _
Then Exit Sub
If TempArr(w) > 250 Then: TempArr(w) = TempArr(w)
End If: TempArr(w) = TempArr(w) + 5: OnExitArr(q) _
= OnExitArr(q) & Chr(TempArr(w))
Next: Next: For r = 1 To arrVal: ss = ss & _
OnExitArr(r) & vbCrLf: Next: MsgBox ss: End Sub


Код вполне рабочий и даже компилируется, я просто одному знакомому его так давал, он сильно кричал что прочитает любой код и поймет смысл с первого раза, но это уже отдельня история

Хотелось узнать может кто действительно так пишет?

[tyomitch]

А ты сходи на http://thedailywtf.com/ , там показывают, кто действительно так пишет. И ещё даже не так порой...

[Шурик]

Только не смейтесь над вопросом и не называйте меня идиотом, я и сам это знаю
----------------------------------------------------
Собственно вопрос:
А разница есть, если напишу как первый код или как второй код???
Я к тому что, например есть оптимизатор HTML кода.

[Amed]

Компилятору всё равно, Шурик... Он, грубо говоря, заменяет все "_" и ":" на ничего и vbCrLf, получая код вида №1

[Ramzes]

Нет никакой разницы, только второй код читать тяжелее и ошибки в таком коде ой как трудно искать

[Шурик]

спасибо люди добрые!!!

[Amed]

Кстати, вы будете смеяться, но код вида "2" (в 1 посте) нам написал информатик на каком-то из занятий... Потом мы дружно ловили блох в коде пол-пары...

П.С. прога была на целую убористо исписанную доску

[vvs_adm]

Только не смейтесь над вопросом и не называйте меня идиотом, я и сам это знаю
----------------------------------------------------
Собственно вопрос:
А разница есть, если напишу как первый код или как второй код???
Я к тому что, например есть оптимизатор HTML кода.

Ну представь, что вчера ты написал такой вод код :

Код: Выделить всё

Dim AAA() As String: Dim AAAA() As _
Integer: Dim AAAAA As Long: Dim AAAAAA _
As Long: Dim AAAAAAA As String: Dim AAAAAAAA() _
As String: Dim AAAAAAAAA() As String
Private Sub Form_Load(): Open "c:\1.txt" _
For Input As #1: Do Until EOF(1): Line Input _
#1, q: AAAAA = AAAAA + 1: Loop: Close #1: _
ReDim AAA(1 To AAAAA): ReDim AAAA(1 _
To AAAAA): ReDim AAAAAAAAA(1 To AAAAA): _
AAAAAA = 1: Open "c:\1.txt" For Input _
As #1: Do Until EOF(1): Line Input #1, txt: _
AAA(AAAAAA) = txt: AAAAAA = AAAAAA _
+ 1: Loop: Close #1: For q = 1 To AAAAA: _
AAAA(q) = Len(AAA(q)): Next: For q = 1 _
To AAAAA: ReDim AAAAAAAA(1 To AAAA(q))
For w = 1 To AAAA(q): AAAAAAAA(w) = _
Asc(Mid(AAA(q), w, 1)): If AAAAAAAA(w) < 32 _
Then Exit Sub
If AAAAAAAA(w) > 250 Then: AAAAAAAA(w) = AAAAAAAA(w)
End If: AAAAAAAA(w) = AAAAAAAA(w) + 5: AAAAAAAAA(q) _
= AAAAAAAAA(q) & Chr(AAAAAAAA(w))
Next: Next: For r = 1 To AAAAA: ss = ss & _
AAAAAAAAA(r) & vbCrLf: Next: MsgBox ss: End Sub


А сегодня он не работает... Вот не замучаешься ты его отлаживать? Я раз попробовал и твердо теперь уверен : быстрее с ноля написать, чем такую хх.мантию восстанавливать.

[Tatyanka]

О, это мысль, такие коды надо заклятым друзьям подкидывать. Ну, или когда заставляют писать что-то неинтересное. Себе нормально написать, а им так...

[vvs_adm]

У меня вот абсолютно нормально читаемый код помню не работал. Представьте ситуацию : компилю прогу на си под unix, зову препода. Запускаю ... Прога пишет что-то типа Please input data >> : Препод вводит данные (ну типа дня рождения, а выдать должно к примеру день недели). Прога в ответ : Error!!! The Uncorrect Data!!! Препод мне типа что за фигня? Я грю - не знаю, это не прога, это юникс ругается!!! Ну он мне : ты что, дурак? Юникс так сроду не ругался... Я грю : извиняйте, не знаю, как там юникс, но моя прога по другому бы вас послала. Смотрим код: там к примеру если некоректные данные, то сказать "Семен Семеныч... " Плюс прога всего из пяти строк, их нужно было штук шесть за полпары сдать.У препода глаза на лоб, он смотрит в пять строк кода, компилит его лично, запускает... Ему в ответ : Error!!! The Uncorrect Data!!! У препода пот на лбу выступать начинает... Он повторяет процедуру снова, и тут я боковым зрением вижу своего кореша, которого я час назад на другой машине запустил под своим паролем( он гад свой забыл) и который в быстром темпе отлаживает для сдачи свою точно такую же прогу на МОЕМ диске, умудряясь перекомпилить за долю секунды в такое самое имя свою прогу, которая на неверные данные выдает Error!!! The Uncorrect Data!!! За мат меня препод чуть с пары не выгнал... Но когда понял, в чем дело, сам над собой чуть со смеху не сдох.

[mad_Max]

Хотелось узнать может кто действительно так пишет?

А может кто-нибудь обфускатором подрабатывает

[Шурик]

Только не смейтесь над вопросом и не называйте меня идиотом, я и сам это знаю
----------------------------------------------------
Собственно вопрос:
А разница есть, если напишу как первый код или как второй код???
Я к тому что, например есть оптимизатор HTML кода.

Ну представь, что вчера ты написал такой вод код :

Код: Выделить всё

Dim AAA() As String: Dim AAAA() As _
Integer: Dim AAAAA As Long: Dim AAAAAA _
As Long: Dim AAAAAAA As String: Dim AAAAAAAA() _
As String: Dim AAAAAAAAA() As String
Private Sub Form_Load(): Open "c:\1.txt" _
For Input As #1: Do Until EOF(1): Line Input _
#1, q: AAAAA = AAAAA + 1: Loop: Close #1: _
ReDim AAA(1 To AAAAA): ReDim AAAA(1 _
To AAAAA): ReDim AAAAAAAAA(1 To AAAAA): _
AAAAAA = 1: Open "c:\1.txt" For Input _
As #1: Do Until EOF(1): Line Input #1, txt: _
AAA(AAAAAA) = txt: AAAAAA = AAAAAA _
+ 1: Loop: Close #1: For q = 1 To AAAAA: _
AAAA(q) = Len(AAA(q)): Next: For q = 1 _
To AAAAA: ReDim AAAAAAAA(1 To AAAA(q))
For w = 1 To AAAA(q): AAAAAAAA(w) = _
Asc(Mid(AAA(q), w, 1)): If AAAAAAAA(w) < 32 _
Then Exit Sub
If AAAAAAAA(w) > 250 Then: AAAAAAAA(w) = AAAAAAAA(w)
End If: AAAAAAAA(w) = AAAAAAAA(w) + 5: AAAAAAAAA(q) _
= AAAAAAAAA(q) & Chr(AAAAAAAA(w))
Next: Next: For r = 1 To AAAAA: ss = ss & _
AAAAAAAAA(r) & vbCrLf: Next: MsgBox ss: End Sub


А сегодня он не работает... Вот не замучаешься ты его отлаживать? Я раз попробовал и твердо теперь уверен : быстрее с ноля написать, чем такую хх.мантию восстанавливать.

Хе.... я так точно не напишу даже в нетрезвом состоянии

[vvs_adm]

Хе.... я так точно не напишу даже в нетрезвом состоянии

Я тогда пытался отладить код, написанный мной на асме в пьяном виде.

[Ramzes]

Да писать проги в нетрезвом состоянии чревато осложнениями отладки в трезвом

[vvs_adm]

Да писать проги в нетрезвом состоянии чревато осложнениями отладки в трезвом

Ну да, я долго смотрел на две строки примерно следующего содержания (синтаксис точно уже не помню...) :

Код: Выделить всё

Move AX, BX
Move BX, CX

после чего используются регистры АХ и СХ, а про ВХ абсолютно никакого упоминания. Я неуверенным жестом исправил обе строки на одну

Код: Выделить всё

Move AX, CX

после чего никаких изменений ессно не заметил. Долго пытался вспомнить, какие же великие мысли роились в моей голове при написании этих двух строк, но вспомнить не удалось. И так все в том же духе... Короче через минут 20 мучений переписал все нафиг заново за 5 минут и сразу все заработало