Как остановить цикл?

[Druid-2004]

Каким образом остановить следующий цикл?

open "test.tst" for input as #1
Do While Not EOF(1)
Line Input #1, stroka$
Form2.BaseListOrg.AddItem stroka$
Loop
close #1

Мне нужно остановить этот цикл, если $stroka вдруг станет ровна, допустим "тест", но при всем этом, мне нужно прочитать следующую строку, идущую ниже строки "тест".


Заранее благодарен.

[GSerg]

is stroka="test" then line input #1,stroka:exit do

[SHURUP]

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

Private Sub Command1_Click()
Open "test.tst" For Input As #1
Do While Not EOF(1)
Line Input #1, stroka$
If stroka$ = "text" Then
    Line Input #1, LastString
    Exit Do
End If
Form2.BaseListOrg.AddItem stroka$
Loop
Close #1
MsgBox LastString
End Sub

[cg_ck]

Каждый раз будет вызыватся процедура if
Лучше внести второе условие в цикл
Private Sub Command1_Click()
Open "test.tst" For Input As #1
Do While Not EOF(1) or stroka$<>"Text:"
Line Input #1, stroka$
Form2.BaseListOrg.AddItem stroka$
Loop
Close #1
MsgBox LastString
End Sub
Помоему так можно.