Hallo,
das da ganz unten ist zurzeit mein Code. Er liefert mir, ab einer bestimmten Stelle (***), alle Zeilen und über Values später auch einzelne Werte einer Zeile.
Der Datensatz sieht ungefähr so aus:
3844500 2924500 1 1 1 -0.5 1025 146 2.7 4 3.6 96 0 0 199 -290 0
3844500 2924500 1 1 2 -2.0 1025 127 2.5 2 3.2 97 0 0 193 -290 0
3844500 2924500 1 1 3 -3.0 1025 115 2.5 2 2.9 98 0 0 187 -289 0
3844500 2924500 1 1 4 -2.9 1024 121 2.8 2 2.9 98 0 0 187 -289 0
3844500 2924500 1 1 5 -2.7 1023 126 2.9 2 3.0 98 0 0 198 -290 0
Jetzt möchte ich aus der ersten Zeile die rot markierten Werte nehmen und alle anderen Zeilen damit durchlaufen, das Vorkommen zählen und die Zeilen mit den gleichen Werten zusammenfassen.
Allerdings bin ich erst Anfänger und hab einen riesen Knoten im Kopf - kann mir jemand auf die Sprünge helfen?
Danke
Die Farbe "Rot" ist der Moderation vorbehalten. Farbe geändert. ~Trade
das da ganz unten ist zurzeit mein Code. Er liefert mir, ab einer bestimmten Stelle (***), alle Zeilen und über Values später auch einzelne Werte einer Zeile.
Der Datensatz sieht ungefähr so aus:
3844500 2924500 1 1 1 -0.5 1025 146 2.7 4 3.6 96 0 0 199 -290 0
3844500 2924500 1 1 2 -2.0 1025 127 2.5 2 3.2 97 0 0 193 -290 0
3844500 2924500 1 1 3 -3.0 1025 115 2.5 2 2.9 98 0 0 187 -289 0
3844500 2924500 1 1 4 -2.9 1024 121 2.8 2 2.9 98 0 0 187 -289 0
3844500 2924500 1 1 5 -2.7 1023 126 2.9 2 3.0 98 0 0 198 -290 0
Jetzt möchte ich aus der ersten Zeile die rot markierten Werte nehmen und alle anderen Zeilen damit durchlaufen, das Vorkommen zählen und die Zeilen mit den gleichen Werten zusammenfassen.
Allerdings bin ich erst Anfänger und hab einen riesen Knoten im Kopf - kann mir jemand auf die Sprünge helfen?
Visual Basic-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
- Dim idx As Long = 0
- For Each line In IO.File.ReadLines(dlg.FileName)
- Dim Values() = line.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
- idx = idx + 1
- If line.StartsWith("***") Then
- found = True
- Continue For ' "***" selbst überlesen
- End If
- If found Then
- 'ListBox1.Items.Add(idx)
- 'ListBox1.Items.Add(line)
- '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
Danke
Die Farbe "Rot" ist der Moderation vorbehalten. Farbe geändert. ~Trade
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()