Komischer Fehler beim lesen und schreiben und Textdatei

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Proggi.

    Komischer Fehler beim lesen und schreiben und Textdatei

    Hallo,
    ich schreibe gerade an einem Programm hier ein Teil des codes:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Dim fs As New FileStream("beispiel.txt", FileMode.Open)
    3. Dim sr As New StreamReader(fs)
    4. Dim zeile As String
    6. Do Until sr.Peek() = -1
    7. zeile = sr.ReadLine()
    8. ComboBox1.Text &= zeile & vbCrLf
    9. Loop
    10. sr.Close()
    11. Dim fs1 As New FileStream("beispiel.txt", FileMode.Open)
    12. Dim sr1 As New StreamReader(fs1)
    13. Dim zeile1 As String
    15. Do Until sr1.Peek() = -1
    16. zeile1 = sr1.ReadLine()
    17. ComboBox1.Text &= zeile1 & vbCrLf
    18. Loop
    19. sr.Close()
    20. End Sub
    22. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    23. Dim fs As New FileStream("beispiel.txt", _
    24. FileMode.Create)
    25. Dim sw As New StreamWriter(fs)
    26. sw.WriteLine(ComboBox1.Text)
    27. sw.Close()
    29. Form2.Show()
    30. End Sub
    31. Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
    32. Dim fs1 As New FileStream("beispiel.txt", _
    33. FileMode.Create)
    34. Dim sw1 As New StreamWriter(fs1)
    35. sw1.WriteLine(ComboBox2.Text)
    36. sw1.Close()
    38. Form3.Show()
    39. End Sub


    Mein Problem:
    Die Combobox1 kann in die Textdatei schrieben und beim laden auch immer auslesen. Baer die Combobox2 zeigt immer den Fehler an das die Texdatei schon verwendet wird. Mir ist klar was das heißt. Aber wieso geht das in der ersten und wie kann ich das Problem vermeiden???? ?(