Я изложил своё мнение, и привёл 2 примера, что по моему является качественным и некачественным кодом:
Качественный код:
- Код: Выделить всё
Public Function ReadFile(ByVal sFileName As String, ByVal sSplitter As String) As String
Dim hFile As Long
Dim ret As String
Dim sLine As String
hFile = FreeFile()
Open sFileName For Input As #hFile
Do While Not EOF(hFile)
Line Input #hFile, sLine
ret = ret + sSplitter + sIle
Loop
ReadFile = Right(ret, Len(ret) - Len(sSplitter)
Close #hFile
End Function
Некачественный код
- Код: Выделить всё
Function FileRead(Name As String, Delitel As String)
Open Name For Input As #1
20
On Error Goto 10
Line Input #1, stroka
text = text +stroka + Delitel
Goto 20
10
Close #1
FileRead = text
End Function
На что последовал такой ответ:
Оба работают... Именование переменных не важно-компилятору пофиг... Во втором варианте ещё и отлов ошибок есть... Единственная трабла- использование фиксированного номера файла.
А как вы считаете?
ИМХО: Второй код ужасен и от него тошнит.
