Daten aus einer Textdatei auslesen

[bobbydigital]

Hallo Leute, ich brauch mal bissl Hilfe.
Möchte über ein FormularDaten aufnehmen (KNR, Name, Tel., Text, Seriennummer).
Unter den Eingabefeldern soll eine Anzeige sein.
Wenn ich die letzte Zahl der KNR eingebe und bereits ein Eintrag dazu existiert, sollen diese Einträge unten in der Anzeige angezeigt werden.
Bis jetzt habe ich Formular für Eingabe gebastelt und kann diese Daten in eine Textdatei speichern.
Weiter weiß ich nicht.
Zusätzlich zu den angezeigten Einträgen sollen daneben 3 checkboxen sein für(offen, arbeit, erledigt) und ein Button zum bearbeiten bzw. um ein anderes Formular zu öffnen.

Bitte helft mir

 

[engelmarkus]

Muss es denn eine Textdatei sein? Geht nicht XML auch?
Du müsstest halt wahrscheinlich erstmal alle Zeilen einlesen, dann weißt du ja, welches Trennzeichen du zwischen den einzelnen "Spalten" benutzt. Du musst halt dann jeweils die KNR raussuchen und mit EndsWith oder so vergleichen.

 

[bobbydigital]

kein pPlan von xml...
kann mir vieleicht jemand ein Codebspiel geben...

 

[Spyke]

schau dir am besten das Objekt XmlDocument an.
Damit geht es recht einfach.

Dll: System.Xml.DLL
Namespace: System.Xml

 

[engelmarkus]

Wenn du mit .Net 3.5 arbeitest, könntest du auch das XElement sehr schön einsetzen. Das sagt mir persönlich mehr zu als das XMLDocument, zumal man sich mit dem inline-XML in VB.Net 9 eigentlich einen Haufen Arbeit sparen kann.

 

[bobbydigital]

kann mir bitte jemand helfen, wie ich es schaffe, dass wenn ich die 5 Zahl der Kundennummer eingebe, sofort nach nach einem passendem Datensatz in der Textdatei gesucht wird und die in einer ListBox ausgegeben wird

 

[engelmarkus]

Hier hab ich mal ein kleines Beispiel für dich, das musst du halt jetzt ein bisschen anpassen:

Module Module1
    Dim Daten As New List(Of Zeile)

    Sub Main()
        For Each z In IO.File.ReadAllLines("Daten.txt")
            Dim spl = z.Split(";")

            Daten.Add(New Zeile(spl(0), spl(1), spl(2)))
        Next

        Console.WriteLine("Bitte Nummer eingeben: ")
        Dim nr = Console.ReadLine()

        For Each ergebnis In Daten.Where(Function(x) x.KNr.Contains(nr))
            Console.WriteLine(ergebnis)
        Next

        Console.ReadKey()
    End Sub
End Module

Structure Zeile
    Public KNr As String
    Public Name As String
    Public Vorname As String

    Sub New(ByVal knr As String, ByVal name As String, ByVal vorname As String)
        Me.KNr = knr
        Me.Name = name
        Me.Vorname = vorname
    End Sub

    Public Overrides Function ToString() As String
        Return "Kundennummer: " & KNr & "; Name: " & Name & "; Vorname: " & Vorname
    End Function
End Structure

Die Daten.txt sieht folgendermaßen aus:

123;Name;Vorname