AllieAusNotebook
Grünschnabel
Hi Leute,
nach vier Zeilen wird mir eine leere Zeile in der Messagebox ausgegeben und er beendet das Einlesen. Da ist aber noch längst nicht Ende. Wo mag das dran liegen?
Ciao,
Allie
nach vier Zeilen wird mir eine leere Zeile in der Messagebox ausgegeben und er beendet das Einlesen. Da ist aber noch längst nicht Ende. Wo mag das dran liegen?
Code:
Dim fpath = frmRoot.txtPath.Text & "\pdfprinterprinter.txt"
Dim fs As FileStream = New FileStream(fpath, FileMode.Open, FileAccess.Read)
Dim line As String = ""
Dim r As StreamReader = New StreamReader(fs)
r.BaseStream.Seek(0, SeekOrigin.Begin)
If System.IO.File.Exists(fpath) Then
'durchsuche Datei nach bisherigen Einstellungen
While (r.EndOfStream <> True)
line = r.ReadLine()
Select Case line
Case "Zeitintervall"
MsgBox(r.ReadLine)
cmbIntervall.SelectedItem = r.ReadLine
Case "Username"
MsgBox(r.ReadLine)
txtUsername.Text = r.ReadLine
Case "Passwort"
MsgBox(r.ReadLine)
txtPasswort.Text = r.ReadLine
Case Else
MsgBox(line)
End Select
End While
r.Close()
fs.Close()
End If
End Sub
Ciao,
Allie