@frautomke Sorry, das war ein Verständnisproblem meinerseits.
Ich lese alle Zeilen ein, die nicht mit "***" anfangen, bei Dir steht aber, dass alle Zeilen ab "***" einzulesen sind.
Also:
Spoiler anzeigen
Ich lese alle Zeilen ein, die nicht mit "***" anfangen, bei Dir steht aber, dass alle Zeilen ab "***" einzulesen sind.
Also:
VB.NET-Quellcode
- Public Class Data
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Using dlg As New OpenFileDialog()
- dlg.Filter = "Dat Files|*.dat|All Files|*.*"
- If dlg.ShowDialog() <> DialogResult.OK Then
- Return
- End If
- Dim found = false
- For Each line In IO.File.ReadLines(dlg.FileName)
- If line.StartsWith("***") Then
- found = true
- Continue For ' "***" selbst überlesen
- End If
- If found Then
- ListBox1.Items.Add(line)
- Dim Values() = line.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
- ListBox2.Items.Add(Values(2))
- ListBox2.Items.Add(Values(3))
- ListBox2.Items.Add(Values(4))
- ListBox2.Items.Add(Values(5))
- ListBox2.Items.Add(Values(11))
- End If
- Next
- End Using
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- ListBox1.Items.Clear()
- ListBox2.Items.Clear()
- End Sub
- 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!
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!