Auslesen einzelner Wörter aus einer Zeile einer Textdatei (Eigentlich .dat, aber die bekomme ich nicht ausgelesen)

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von frautomke.

    @frautomke Sorry, das war ein Verständnisproblem meinerseits. :whistling:
    Ich lese alle Zeilen ein, die nicht mit "***" anfangen, bei Dir steht aber, dass alle Zeilen ab "***" einzulesen sind.
    Also:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Data
    2. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Using dlg As New OpenFileDialog()
    4. dlg.Filter = "Dat Files|*.dat|All Files|*.*"
    5. If dlg.ShowDialog() <> DialogResult.OK Then
    6. Return
    7. End If
    8. Dim found = false
    9. For Each line In IO.File.ReadLines(dlg.FileName)
    10. If line.StartsWith("***") Then
    11. found = true
    12. Continue For ' "***" selbst überlesen
    13. End If
    14. If found Then
    15. ListBox1.Items.Add(line)
    16. Dim Values() = line.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
    17. ListBox2.Items.Add(Values(2))
    18. ListBox2.Items.Add(Values(3))
    19. ListBox2.Items.Add(Values(4))
    20. ListBox2.Items.Add(Values(5))
    21. ListBox2.Items.Add(Values(11))
    22. End If
    23. Next
    24. End Using
    25. End Sub
    26. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    27. ListBox1.Items.Clear()
    28. ListBox2.Items.Clear()
    29. End Sub
    30. End Class
    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!