Textdatei auslesen, Formatieren und als Array speichern -weiter gehts ...

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von dasSofa.

    Textdatei auslesen, Formatieren und als Array speichern -weiter gehts ...

    Hallo,

    ich habe eine Textdatei in der Datum, Uhrzeit sowie Temperaturwerte meiner Wetterstation stehen.

    VB.NET-Quellcode

    1. 2010.04.10;11:55:00;15.0
    2. 2010.04.10;11:56:00;16.0
    3. 2010.04.10;11:57:00;17.0
    4. 2010.04.10;11:58:00;18.0
    5. 2010.04.10;11:59:00;19.0
    6. 2010.04.10;12:00:00;20.0


    Diese würde ich gerne Auslesen und das Datum, Uhrzeit und Tempwert als Array ausgeben. Dazu muss ich das Datum und die Uhrzeit auch noch Umwandeln um mit ZedGraph einen Graphen Zeichnen.

    Mein Problem dabei ist es, dass Datum aus der Log "2010.04.10" sowieso die Uhrzeit für XDate in der For Schleife zu Wandeln.

    VB.NET-Quellcode

    1. X = New XDate(date_year(i), date_month(i), date_day(i), date_hour(i), date_min(i), date_sec(i)).XLDate


    Bis jetzt habe ich mit

    VB.NET-Quellcode

    1. Dim Templogreader As String() = IO.File.ReadAllLines("testfile.log")
    2. For i As Integer = 0 To Templogreader.Length - 1

    die Datei gelesen, aber beim Umwandeln scheitere ich kläglich :(
    Wäre für jede Hilfe sehr dankbar !

    Gruß BErnhard

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „dasSofa“ ()

    Ich habe schon viel getestet, bin aber immer an Fehlermeldungen gescheitert.

    z.b.

    VB.NET-Quellcode

    1. Dim Templogreader As String() = IO.File.ReadAllLines("testfile.log")
    3. For i As Integer = 0 To Templogreader.Length - 1
    4. temp_date_Year = Val(Split(Templogreader(i), ".")(0))
    7. x = New XDate(temp_date_Year(i), temp_date_Month(i), temp_date_Day(i), temp_date_Hour(i), temp_date_Minute(i), temp_date_Second(i)).XLDate


    Sagt mir beim Splitten
    Fehler 1 Der Wert vom Typ "Double" kann nicht in "1-dimensionales Array von Integer" konvertiert werden. C:\Users\Bernhard\Documents\Visual Studio 2008\Projects\ZedGraphSampleVB_v5.0.6\ZedGraphSample\Form1.vb 46 30 ZedGraphSample

    Bin noch blutiger Anfänger und verstehe das Problem nicht.

    Oder mit CInt

    VB.NET-Quellcode

    1. temp_date_Year = CInt(Split(Templogreader(i), ".")(0))


    Fehler 1 Der Wert vom Typ "Integer" kann nicht in "1-dimensionales Array von Integer" konvertiert werden. C:\Users\Bernhard\Documents\Visual Studio 2008\Projects\ZedGraphSampleVB_v5.0.6\ZedGraphSample\Form1.vb 46 30 ZedGraphSample

    Es fehlt wohl nocht an Grundlagenkentnissen. Aber nach 2 Tagen habe ich mich entschlossen mal um Hilfe zu Fragen.
    Ein Freund der Java Programmiert hat es auch schon versucht und ist gescheitert.

    Gruß Bernhard

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dasSofa“ ()

    Wenn du die Datentypen nicht mitpostest, kann man eigentlich nur raten :D
    was sind val und temp_date_Year für Datentypen??

    Die Fehlermeldung sagt, daß du einen Double auf ein 1-dimensionales Array zuweisen willst, also passen da 2 Typen nicht zusammen.

    Versuche

    Quellcode

    1. dim temp_date_Year AS string
    2. dim values() as string
    3. values = Templogreader(i).Split(".",StringSplitOptions.None)
    4. temp_date_Year = values(0)

    VB.NET-Quellcode

    1. Dim temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second As Integer


    Soweit ich weiss kann XDate keine String Werte verarbeiten.

    Wenn ich nun deinen Code einfüge und temp_date_Years als String ,bekomme ich die Fehlermeldung bei

    VB.NET-Quellcode

    1. values = Templogreader(i).Split(".", StringSplitOptions.None)
    2. und
    3. x = New XDate(temp_date_Year(i), temp_date_Month(i), temp_date_Day(i), temp_date_Hour(i), temp_date_Minute(i), temp_date_Second(i)).XLDate


    Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "Split" ohne einschränkende Konvertierung aufgerufen werden kann:
    'Public Function Split(separator() As Char, options As System.StringSplitOptions) As String()': Der mit dem Argument übereinstimmende Parameter "separator" wird von "String" auf "1-dimensionales Array von Char" reduziert.
    'Public Function Split(separator() As Char, count As Integer) As String()': Der mit dem Argument übereinstimmende Parameter "separator" wird von "String" auf "1-dimensionales Array von Char" reduziert. C:\Users\Bernhard\Documents\Visual Studio 2008\Projects\ZedGraphSampleVB_v5.0.6\ZedGraphSample\Form1.vb 49 22 ZedGraphSample

    Du meinst so oder ?

    VB.NET-Quellcode

    1. Dim temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second As Integer
    4. Dim Templogreader As String() = IO.File.ReadAllLines("testfile.log")
    6. For i As Integer = 0 To Templogreader.Length - 1
    9. Dim values() As String
    10. values = Templogreader(i).Split(".")
    11. temp_date_Year = values(0)
    14. x = New XDate(temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second).XLDate


    wenn ja geht es so leider nicht.
    Ich Blick langsam immer weniger durch ...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „dasSofa“ ()

    Ich habe es nun hinbekommen das Datum bei XDate im richtigen Format zu bekommen !

    VB.NET-Quellcode

    1. Dim temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second As Integer
    3. Dim Templogreader As String() = IO.File.ReadAllLines("testfile.log")
    5. For i As Integer = 0 To Templogreader.Length - 1
    7. Dim TempDatum() As String
    8. Dim TempZeit() As String
    9. TempDatum = Templogreader(i).Split(";")
    10. TempDatum = TempDatum(0).Split(".")
    11. temp_date_Year = TempDatum(0)
    12. temp_date_Month = TempDatum(1)
    13. temp_date_Day = TempDatum(2)
    15. TempZeit = Templogreader(i).Split(";")
    16. TempZeit = TempZeit(1).Split(":")
    17. temp_date_Hour = TempZeit(0)
    18. temp_date_Minute = TempZeit(1)
    19. temp_date_Second = TempZeit(2)
    21. X = New XDate(temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second).XLDate
    22. y1 = -12
    23. y2 = 25
    24. y3 = i + 12
    26. list1.Add(x, y1)
    27. list2.Add(x, y2)
    28. list3.Add(x, y3)
    29. Next i


    Leider passt nun das Zeilenweise auslesen der Datum und Uhrzeit nicht, hat dazu jemand eine Idee ?
    Bilder

    • Graph.jpg

      29,54 kB, 499×363, 193 mal angesehen

    VB.NET-Quellcode

    1. ' Call this method from the Form_Load method, passing your ZedGraphControl
    3. Sub CreateGraph(ByVal zgc As ZedGraphControl)
    4. Dim myPane As GraphPane = zgc.GraphPane
    8. 'Zeige Point Values beim Start
    9. zgc.IsShowPointValues = True
    11. 'Horizontale Scrollbar + Aktivierung
    12. zgc.IsShowHScrollBar = True
    13. zgc.IsAutoScrollRange = True
    15. ' Beschriftung
    16. myPane.Title.Text = "Min/Max & Temperatur"
    17. myPane.XAxis.Title.Text = "Datum"
    18. myPane.YAxis.Title.Text = "Temp °"
    20. ' Make up some data arrays based on the Sine function
    21. Dim list1 As New PointPairList()
    22. Dim list2 As New PointPairList()
    23. Dim list3 As New PointPairList()
    24. Dim x, y1, y2, y3 As Double
    25. Dim temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second As Integer
    27. Dim Templogreader As String() = IO.File.ReadAllLines("testfile.log")
    29. For i As Integer = 0 To Templogreader.Length - 1
    31. Dim TempDatum, TempZeit, TempWert As String()
    33. TempDatum = Templogreader(i).Split(";")
    34. TempDatum = TempDatum(0).Split(".")
    35. temp_date_Year = TempDatum(0)
    36. temp_date_Month = TempDatum(1)
    37. temp_date_Day = TempDatum(2)
    38. TempZeit = Templogreader(i).Split(";")
    39. TempZeit = TempZeit(1).Split(":")
    40. temp_date_Hour = TempZeit(0)
    41. temp_date_Minute = TempZeit(1)
    42. temp_date_Second = TempZeit(2)
    43. TempWert = Templogreader(i).Split(";")
    46. X = New XDate(temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second).XLDate
    47. y1 = -12
    48. y2 = 25
    49. y3 = TempWert(2)
    51. list1.Add(x, y1)
    52. list2.Add(x, y2)
    53. list3.Add(x, y3)
    54. Next
    56. ' Set the XAxis to date type
    57. myPane.XAxis.Scale.Format = "dd.MMM.yyyy" & Chr(10) & "HH:mm:ss"
    58. myPane.XAxis.Type = AxisType.Date
    60. 'Dim gMinTime, gMaxTime As Double
    62. 'gMinTime = New XDate(2010, 4, 10, 0, 0, 0).XLDate
    63. 'gMaxTime = New XDate(2010, 4, 10, 0, 12, 10).XLDate
    65. 'myPane.XAxis.Scale.Min = gMinTime
    66. 'myPane.XAxis.Scale.Max = gMaxTime
    68. 'Generiert Kurven mit Farben
    70. Dim myCurve As LineItem = myPane.AddCurve("Min", _
    71. list1, Color.Blue, SymbolType.None)
    73. Dim myCurve3 As LineItem = myPane.AddCurve("Temp", _
    74. list3, Color.Green, SymbolType.Circle)
    77. Dim myCurve2 As LineItem = myPane.AddCurve("Max", _
    78. list2, Color.Red, SymbolType.None)
    80. myCurve3.Line.IsSmooth = True
    81. 'myCurve3.Line.SmoothTension = 0.5F
    83. ' Farbe des Titels
    84. myPane.Title.FontSpec.FontColor = Color.Black
    86. ' Raster auf dem Graph mit grauer Farbe
    87. myPane.XAxis.MajorGrid.IsVisible = True
    88. myPane.YAxis.MajorGrid.IsVisible = True
    89. myPane.XAxis.MajorGrid.Color = Color.LightGray
    90. myPane.YAxis.MajorGrid.Color = Color.LightGray
    92. ' Position der Legende
    93. myPane.Legend.Position = ZedGraph.LegendPos.Bottom
    95. ' Dicke der Kurven
    96. myCurve.Line.Width = 1.0F
    97. myCurve2.Line.Width = 1.0F
    98. myCurve3.Line.Width = 1.0F
    100. ' Farbfüllung unterhalb der Kurven
    101. myCurve.Line.Fill = New Fill(Color.White, Color.Blue, 45.0F)
    102. myCurve2.Line.Fill = New Fill(Color.White, Color.Red, 45.0F)
    103. myCurve3.Line.Fill = New Fill(Color.White, Color.Green, 45.0F)
    105. ' Increase the symbol sizes, and fill them with solid white
    107. myCurve3.Symbol.Size = 7.0F
    108. myCurve3.Symbol.Fill = New Fill(Color.White)
    110. ' Add a background gradient fill to the axis frame
    111. myPane.Chart.Fill = New Fill(Color.White, _
    112. Color.FromArgb(255, 255, 210), -45.0F)
    114. ' Calculate the Axis Scale Ranges
    115. zgc.AxisChange()
    118. End Sub


    Nun wird der Graph richtig dargestellt !

    Nun geht es dran den TempWert auszulesen, wie bekomme ich nun den Wert y3 As Double ? Bei dem jetzigen Code wir aus "12.5" leider "125.0" gemacht.
    Ich habe es mit dem Convert.ToDouble(TempWert(2)) getestet wobei mir VB sagt das es wegen dem 1-dimmensionalen Array nicht geht.
    Irgend welche Anregungen ?

    Gruß Bernhard

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dasSofa“ ()

    genau das problem hatte ich auch, wobei der_Kurt mich dann darauf aufmerksam gemacht hat, dass es 12,5 heißen muss um es richtig zu konvertieren.

    mach einfach mal statt

    VB.NET-Quellcode

    1. y3 = TempWert(2)


    das hier

    VB.NET-Quellcode

    1. y3 = Double.Parse(TempWert(2).Replace(".", ","))

    leider ist das mit dem . und , ein problem, da es nun auf einem Englischen oder Amerikanischen System nichtmehr funktionieren würde, da bei denen ja 100.000 bei uns 100 entspricht...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Super !
    Da das Programm nur bei mir läuft, ist das mit dem Englischen System egal ;)
    Habe es auch so gemacht nur mit etwas längeren Code. Also danke für die kurze Variante !
    Danke auch an alle Helfer, nun geht alles :thumbsup:

    Gruß Bernhard

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „dasSofa“ ()

    Ich habe nun die Logdatei um 2 Werte ergänzt.

    VB.NET-Quellcode

    1. ' Datum;Uhrzeit;Temperatur;Regenmenge;Regenmenge_Tag
    2. 2010.04.10;11:55:00;15.5;1100;15.0


    Nun kommt etwas ganz kurioses. Wenn ich den TemWert(2) auf TempWert(4) mache, wird im Graphen garnichts angezeigt.
    Beim debuggen ist der TempWert(4) 15.0 als String und y1 15.0 als Double, TempWert(2) ist 15.5 als Stringund y1 15.5 als Double,beim ersten durchlauf von der For i Schleife.
    Wie zum Täufel nochmal kann es sein, das TemWert(4) keinen Graphen Zeichnet ?
    Ich verstehe absolut nicht wieso Zedgraph sich weigert. Es gibt doch keinen Unterschied zwischen TemWert(2) und (4)...

    VB.NET-Quellcode

    1. For i As Integer = 0 To Templogreader.Length - 1
    3. Dim TempDatum, TempZeit, TempWert As String()
    5. TempDatum = Templogreader(i).Split(";")
    6. TempDatum = TempDatum(0).Split(".")
    7. temp_date_Year = TempDatum(0)
    8. temp_date_Month = TempDatum(1)
    9. temp_date_Day = TempDatum(2)
    10. TempZeit = Templogreader(i).Split(";")
    11. TempZeit = TempZeit(1).Split(":")
    12. temp_date_Hour = TempZeit(0)
    13. temp_date_Minute = TempZeit(1)
    14. temp_date_Second = TempZeit(2)
    15. TempWert = Templogreader(i).Split(";")
    18. x = New XDate(temp_date_Year, temp_date_Month, temp_date_Day, temp_date_Hour, temp_date_Minute, temp_date_Second).XLDate
    19. y1 = Double.Parse(TempWert(4).Replace(".", ","))
    21. list1.Add(x, y1)
    23. Next
    Bilder

    • wetterlog.png

      177,06 kB, 1.680×1.050, 172 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „dasSofa“ ()