Textdatei auslesen und Zeilen löschen

  • VB.NET

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

    Textdatei auslesen und Zeilen löschen

    Hallo allerseits!

    Ich habe ein kleines Telefontool erstellt in dem es dem User zur laufzeit möglich ist Telefonnummern in einem Textdokument zu speichern damit diese beim nächsten Start der Anwendung wieder zur verfügung stehen.
    Das erstellen des Textdokumentes funktioniert auch ganz gut. Nur stehe ich jetzt vor einem weiteren Problem: Dem löschen bestimmter Nummern aus dieser Liste...

    Dazu habe ich mir eine Form erstellt mit Labels (lblName, lblNummer) und drei Buttons (btnVor, btnZurück, btnLöschen). Mit den Buttons kann ich Zeilenweise vor bzw. zurück blättern was auch funktioniert. Allerdings habe ich kein "Ende" des Dokumentes festlegen können also wird der Zeilenzähler (klick auf btnVor) ständig um eins erhöht (s. Kommentare im Code).

    Mein bisheriger Code:

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class frmKurzwahlWeg
    5. Dim Zeile As Integer = 1
    7. Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    8. lblRückmeldung.Text = ""
    9. Dim lines() As String = IO.File.ReadAllLines("Kurzwahl.txt")
    10. Dim sr As New StreamReader(Path.GetDirectoryName(Application.ExecutablePath) & "\Kurzwahl.txt")
    11. On Error GoTo raus
    12. Dim linetext As String = lines(Zeile)
    13. Dim Data() As String = linetext.Split(CChar(";"))
    14. Dim NameKW As String = Data(0)
    15. Dim Nummer As String = Data(1)
    16. lblName.Text = NameKW
    17. lblNummer.Text = Nummer
    18. raus:
    19. sr.Close()
    20. sr.Dispose()
    21. sr = Nothing
    23. End Sub
    26. Private Sub btnVor_Click(sender As System.Object, e As System.EventArgs) Handles btnVor.Click
    27. Zeile = Zeile + 1
    28. Dim lines() As String = IO.File.ReadAllLines("Kurzwahl.txt")
    29. Dim sr As New StreamReader(Path.GetDirectoryName(Application.ExecutablePath) & "\Kurzwahl.txt")
    30. On Error GoTo raus 'nicht elegant aber musste sein da ich sonst eine Fehlermeldung bekomme
    31. 'wenn das Ende des Textdokuments erreicht ist
    32. If Zeile >= 1 Then ' "AND Zeile < EndOfLines" oder sowas sollte hier noch hinzu. komme nur nicht drauf
    33. Dim linetext As String = lines(Zeile)
    34. Dim Data() As String = linetext.Split(CChar(";"))
    35. Dim NameKW As String = Data(0)
    36. Dim Nummer As String = Data(1)
    37. lblName.Text = NameKW
    38. lblNummer.Text = Nummer
    39. End If
    40. raus:
    41. sr.Close()
    42. sr.Dispose()
    43. sr = Nothing
    44. End Sub
    46. Private Sub btnZurück_Click(sender As System.Object, e As System.EventArgs) Handles btnZurück.Click
    47. If Zeile > 1 Then Zeile = Zeile - 1
    48. Dim lines() As String = IO.File.ReadAllLines("Kurzwahl.txt")
    49. Dim sr As New StreamReader(Path.GetDirectoryName(Application.ExecutablePath) & "\Kurzwahl.txt")
    50. On Error GoTo raus
    51. If Zeile >= 1 Then
    52. Dim linetext As String = lines(Zeile)
    53. Dim Data() As String = linetext.Split(CChar(";"))
    54. Dim NameKW As String = Data(0)
    55. Dim Nummer As String = Data(1)
    56. lblName.Text = NameKW
    57. lblNummer.Text = Nummer
    58. End If
    59. raus:
    60. sr.Close()
    61. sr.Dispose()
    62. sr = Nothing
    63. End Sub
    65. Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs) Handles btnLöschen.Click
    66. ' hier komme ich nicht weiter. Schon viel rum probiert ohne Lösung. Hoffe mir kann wer nen Tipp geben
    67. End Sub
    68. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BlueIce“ ()

    Lied die Datei nur einmal ein mit

    VB.NET-Quellcode

    1. Dim lines() As String = System.IO.File.ReadAllLines(DEINE_DATEI)

    Pack die Zeilen in eine List(Of String) oder besser List (Of DEINE_TELEFON_STRUKTUR).
    Die List bietet eine Vielfalt an Zugriffsmöglichkeiten und ihr Ende ist sauber definiert.
    Du kannst nach Belieben Einträge löschen und am Ende speicherst Du wieder alles auf Platte.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende