Læs fil linje for linje og split en tekststreng

Jeg ville bruge en StreamReader og ReadLine metoden til at hente en linie af
gangen.

jep, har jeg funde ud af, men jeg kan kun finde ud at at læse første linje?

Hvis du har fået læst alle linier ind i en streng kan du splitt med:

Dim crlf As String = ""
crlf = crlf & Convert.ToChar(13)
crlf = crlf & Convert.ToChar(10)
Dim lines() As String = alllines.Split(crlf.ToCharArray)

Øh.

Næste gang du kalder ReadLine så læser du da næste linie.

(forudsat at du ikke åbner filen igen)

Ofte bruger man:

        Dim line = stmrdr.ReadLine
        While line <> Nothing
            ' process line
            line = stmrdr.ReadLine
        End While

OK ?

Ved ikke helt, kan ikke rigtig finde ud af det med stream?

-Thomas

Hvordan ser din kode ud nu ?  (kun relevant udsnit)

ofd1.ShowDialog
Dim myReader As New IO.StreamReader(ofd1.FileName)
Dim lineRead as string = myReader.ReadLine.ToString 
textbox1.Text=textbox1.Text & ";;;;;" & lineRead
While lineRead <> Nothing
            lineRead = myReader.line
            textbox1.Text=textbox1.Text & ";;;;;" & lineRead
End While

------------------------------------------------

jeg har goså prøvet med

myFileStream = New System.IO.FileStream(ofd1.FileName,System.IO.FileMode.Open,System.IO.FileAccess.ReadWrite,System.IO.FileShare.None)

Dim myReader As New System.IO.StreamReader(myFileStream)


---------

-Thomas

Prøv:

Dim myReader As New IO.StreamReader(ofd1.FileName)
Dim lineRead as string = myReader.ReadLine
While lineRead <> Nothing
    textbox1.Text=textbox1.Text & ";;;;;" & lineRead
            lineRead = myReader.ReadLine
End While

Mange Tak for hjælpen :)