...ошибки и избавление от них...

[Druid-2004]

Как перехватить ошибки?
Дело в том, что я построково читаю файл, но когда цикл проверки файла подходит к концу, и видит, что там пусто, он просто напросто обижается и материт строку "input #1", stroka$....
выскакивает ошибка с номером 62 - что-то про то, что файлу - конец...
... как бы эту ошибку перехватить и завершить цикл?

[alibek]

Do Until EOF(1)
Line Input #1, S$
Loop

[Druid-2004]

Do Until EOF(1)
Line Input #1, S$
Loop

Нет, мне нужно остановить примерно такой вот цикл:

private sub cikl()
Open "base.dat" For Input As #1
Nach:
Input #1, stroka$
If stroka$ = " " Then break
If stroka$ <> " " Then
Form2.BaseList.AddItem stroka$
GoTo Nach
End If
end sub

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

[Sedge]

Ну тебе же alibek все написал. Цикл будет выполнятся до тех пор, пока не будет получен символ конца файла. И никакой ошибки обрабатывать не надо.

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

Private sub Cikl()
Open "base.dat" For Input As #1
Do While Not EOF(1)
    Input #1, stroka$
    Form2.BaseList.AddItem stroka$
Loop
End Sub


[Druid-2004]

Ну тебе же alibek все написал. Цикл будет выполнятся до тех пор, пока не будет получен символ конца файла. И никакой ошибки обрабатывать не надо.

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

Private sub Cikl()
Open "base.dat" For Input As #1
Do While Not EOF(1)
    Input #1, stroka$
    Form2.BaseList.AddItem stroka$
Loop
End Sub


Все-равно та же ошибка

Run-time error '62':
input past and of the file

[alibek]

Не Input, а Line Input

[tyomitch]

"GoTo Nach" - рулез.
"Немецкий язык родственен русскому: и в том, и в другом есть предлог направления 'нах'" (с)

[Mleha]

Я бы сделал так:

Private sub Cikl()
On Error GoTo ex
Open "base.dat" For Input As #1
Do While Not EOF(1)
Input #1, stroka$
Form2.BaseList.AddItem stroka$
Loop
ex:
Exit Sub
End Sub

[tyomitch]

Я бы сделал так:

И зря. Зачем здесь обработка ошибок? Достаточно простого цикла "While Not EOF", как и написал alibek.
Про последовательность "Exit Sub: End Sub" даже и не говорю