[need quick response] Read a line from a text file

[Blinger1]

How do i read a line from a text file? i need to read a single line, msgbox what the line says and then do the same for the next line.

+rep to helpers

[paws]

What? If you mean find text Ctrl + F.

[Blinger1]

no ill try pseudo code it.

Begin
Read "hello.txt"
Seperate lines
Alert each line
End

[Mentor]

In what language?

Vb6 would be for exsample:

Private Sub getline_Click()
    'line to get
    getline = 8
    usefile = "C:\somefile.txt"
    'open file
    Open usefile For Input As #1
    curline = 1
    'loop till line found
    Do Until stopme Or EOF(1)
        Line Input #1, linetext
        'if this is the line stop looping and msgbox it
        If curline = getline Then
            stopme = True
            MsgBox linetext
        End If
        curline = curline + 1
    Loop
    Close #1
End Sub

[Blinger1]

In what language?

Vb6 would be for exsample:

Private Sub getline_Click()
    'line to get
    getline = 8
    usefile = "C:\somefile.txt"
    'open file
    Open usefile For Input As #1
    curline = 1
    'loop till line found
    Do Until stopme Or EOF(1)
        Line Input #1, linetext
        'if this is the line stop looping and msgbox it
        If curline = getline Then
            stopme = True
            MsgBox linetext
        End If
        curline = curline + 1
    Loop
    Close #1
End Sub

that should work cant test it at the moment because i haven't got vb 6 installed