Hvordan henter jeg flere linjer fra txt fil?

Dim VarBoo as String
oRead = oFile.OpenText(“C:\dintekstfil.txt”)
VarBoo = oRead.ReadToEnd()

Mangler der ikke lidt mere end det?

Skal de ikke defineres`?

Den virker ihvertfald ikke før oRead og oFile bliver defineret.

Det her er bare snuppet fra en anden side, men er det noget der evt. kan tilpasses og bruges?

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      DataArray = New ArrayList()
      Dim StrContent As String = TextBox1.Text()
      'First Name
      ParseData(StrContent, "First Name:", "Last Name:", 12)
      DataArray.Add(strPart1)
      'Last Name
      ParseData(StrContent, "Last Name:", "Address:", 11)
      DataArray.Add(strPart1)
      'Load Array
      ListBox1.DataSource = DataArray
End Sub

Function ParseData(ByVal n As String, ByVal FirstPart As String, ByVal SecondPart As String, ByVal strLength As Integer)
      strPart1 = n
      Dim strPart2 As String = n
      n = n.IndexOf(FirstPart)
      strPart2 = strPart2.IndexOf(SecondPart)
      strPart1 = strPart1.Substring(n + strLength, strPart2 - n - strLength)
End Function

Det kan godt være... men jeg kan sgu ikke gennemskue sådan en kode...

Ok.. Jeg er heller ikke særlig god selv.. Har kun prøvet lidt engang imellem, men aldrig noget seriøst, så jeg tror jeg overlader det til nogen der har mere forstand på det..

*LOL*


Ok.... men takker

Dim sr As StreamReader = New StreamReader("C:\test.dat")
        Dim line As String
        line = sr.ReadLine
        While line <> Nothing
            ' process line
            line = sr.ReadLine
        End While
        sr.Close

is a very standard way of reading lines

der kommer jo kun en linje ind... den sidste...

Lavede denne istedet

        Dim sr As StreamReader = New StreamReader("C:\MCAU\log.txt")
        Dim line As String
        Dim TxtBox As String
        Dim counter As Integer

        counter = 50

        While counter > 0
            line = sr.ReadLine
            TxtBox = TxtBox & line & vbCrLf
            txtLog.Text = TxtBox
            counter = counter - 1
        End While

        sr.Close()

lægger du et svar?

Dim SR As IO.StreamReader = New IO.StreamReader("fil.txt")
TextBox1.Text = SR.ReadToEnd()
SR.Close()

Lukker...