Hallo, ich bin gerade erst dabei mich in Visual Basic einzuarbeiten
Mein Problem ist: Ich habe eine Datei in der Wetterdaten stehen, die ersten ca. 30 Zeilen können unbeachtet gelassen werden. Dies erkenne ich an "***" im Code, denn danach beginnen die Werte.
Die Werte sind allerdings pro Stunde alle nebeneinander geschrieben. Aus dieser Zeile brauche ich den 3, 4, 5, 6 und 12 Wert. Und ich komme einfach nicht weiter, ich kann den ersten Teil abschneiden oder alle Leerzeichen entfernen
Nur leider bringt mich das nicht weiter. Vielleicht habt ihr ein paar Tipps oder Stichworte nach denen ich google'n kann? Danke
Datei: (So ungefähr sieht eine Zeile aus)
***
3849500 2920500 1 1 1 0.2 1019 200 4.7 6 3.8 98 0 0 307 -320 1
Code:
*Topic verschoben, BBCode angepasst*
Mein Problem ist: Ich habe eine Datei in der Wetterdaten stehen, die ersten ca. 30 Zeilen können unbeachtet gelassen werden. Dies erkenne ich an "***" im Code, denn danach beginnen die Werte.
Die Werte sind allerdings pro Stunde alle nebeneinander geschrieben. Aus dieser Zeile brauche ich den 3, 4, 5, 6 und 12 Wert. Und ich komme einfach nicht weiter, ich kann den ersten Teil abschneiden oder alle Leerzeichen entfernen
Nur leider bringt mich das nicht weiter. Vielleicht habt ihr ein paar Tipps oder Stichworte nach denen ich google'n kann? Danke
Datei: (So ungefähr sieht eine Zeile aus)
***
3849500 2920500 1 1 1 0.2 1019 200 4.7 6 3.8 98 0 0 307 -320 1
Code:
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Imports System.Collections
- Public Class Data
- Public Function RemoveExtraSpaces(input_text As String) As String
- Dim rsRegEx As System.Text.RegularExpressions.Regex
- rsRegEx = New System.Text.RegularExpressions.Regex("\s+")
- Return rsRegEx.Replace(input_text, " ").Trim()
- End Function
- Public FilePath As String
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim OpenFileDialog2 As New OpenFileDialog()
- OpenFileDialog2.Filter = "Text Files|*.txt"
- OpenFileDialog2.Title = "Select a Text File"
- If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
- FilePath = OpenFileDialog2.FileName
- Dim s() As String = IO.File.ReadAllLines(FilePath)
- Dim u As String = Environment.NewLine
- Dim x As Integer = 0
- For i = 0 To s.Length - 1
- If s(i).Contains("***") Then
- u = (i + 1).ToString & Environment.NewLine
- ListBox1.Items.Add("Zeilenanzahl: " + u)
- For x = u To s.Length - 1
- ListBox1.Items.Add(s(i + 1))
- i = i + 1
- Next x
- End If
- Next
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim fileReader = My.Computer.FileSystem.OpenTextFileReader(FilePath)
- Dim stringReader As String
- stringReader = fileReader.ReadToEnd()
- Dim TestArray() As String = Split(stringReader, " ")
- Dim LastNonEmpty As Integer = -1 '// Löscht alle Leerzeichen
- For i As Integer = 0 To TestArray.Length - 1
- If TestArray(i) <> "" Then
- LastNonEmpty += 1
- TestArray(LastNonEmpty) = TestArray(i)
- ListBox2.Items.Add(TestArray(i))
- End If
- Next
- ReDim Preserve TestArray(LastNonEmpty)
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- ListBox1.Items.Clear()
- ListBox2.Items.Clear()
- End Sub
- End Class
*Topic verschoben, BBCode angepasst*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()