VB.NET Do-Loop-Schleife

Zeile für Zeile einer Textdatei durch eine Do-Loop-Schleife auslesen



Do-Loop-Schleife
Mit einer Do-Loop-Schleife Zeile für Zeile aus einer Textdatei auslesen.

 

Private Sub DoLoop()
  Dim s as String
  Dim enc as System.Text.Encoding = System.Text.UTF7Encoding.UTF7
  Dim stream as New IO.StreamReader("C:\test.txt", enc)
 
  Do
    s = stream.ReadLine ' Zeile auslesen und an s übergeben
    MsgBox(s)
  Loop Until IsNothing(s) ' Lese bis Ende
 
End Sub