Hallo zusammen
Ich habe Folgendes Problem:
Ich habe 1 Textdatei welche ich Zeilenweise auslese. Immer wen ich am Schluss, also an der letzten Zeile ankomme bin, bekomme ich eine Fehlermeldung...
Was muss ich beim Folgenden Code ändern das bei der letzten Zeile zb: "msgBox("Du hast alle Fragen bearbeitet")" oder ME.Close() kommt?
Code:
mfg Guzu
Ich habe Folgendes Problem:
Ich habe 1 Textdatei welche ich Zeilenweise auslese. Immer wen ich am Schluss, also an der letzten Zeile ankomme bin, bekomme ich eine Fehlermeldung...
Was muss ich beim Folgenden Code ändern das bei der letzten Zeile zb: "msgBox("Du hast alle Fragen bearbeitet")" oder ME.Close() kommt?
Code:
VB.NET-Quellcode
- Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- counter = Counter +1
- Dim objReader3 As New StreamReader(fullPathf.ToString, System.Text.Encoding.Default)
- Dim sLine3 As String = ""
- Dim arrText3 As New ArrayList()
- sLine3 = objReader3.ReadLine(counter)
- If sLine3 nothing Then
- MsgBox("Du hast alle Fragen bearbeitet")
- Me.Close()
- objReader.Close()
- Else
- objReader.Close()
- End If
- Dim Frage() As String = IO.File.ReadAllLines(fullPathf, System.Text.Encoding.Default)
- RichTextBox1.Text = Frage(counter)
mfg Guzu