Tekst bestand lezen, regel voor regel.

[Spy1]

Ik wil mijn programma een tekst bestand regel voor regel laten lezen en vervolgens in een array laten plaatsen. Maar het lukt niet, want hij zet de teken-voor-teken in de array. Ik gebruik de volgende code.

       For Each test In sr.ReadToEnd
      WordsList.Add(SR)
Next

 

[wicherh]

Gebruik deze code om een .txt bestand te lezen:

 Const path = "C:\Text.txt"
Dim fs As System.IO.FileStream = New System.IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
Dim s As System.IO.StreamReader = New System.IO.StreamReader(fs)
Dim Stringarray(0) As String
Dim x As Integer = -1
While s.Peek > -1
x += 1
ReDim Preserve Stringarray(0 To x)
Stringarray(x) = s.ReadLine
End While

Nu zit je .txt bestand elke line in een stringarray

 

[Pizara]

ReadToEnd moet ReadLine worden. Dan wordt je item in je for/each een String ipv een Char