gespeicherte XML-Daten ggf. später ändern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    gespeicherte XML-Daten ggf. später ändern

    Hallo zusammen.
    Meine WetterApp nimm nun langsam die Formen an, welche gefordert sind.
    Nun ist beim eingeben von realen Daten ein "Fehler" aufgetaucht.

    Wenn man z.B. bei der ersten Eingabe, Daten falsch eingegebenen hat oder etwas vergessen hat, wir ein ZWEITER Eintrag mit selben Datum in die XML geschrieben. Siehe mein Code / Daten

    Das ist natürlich nicht gut, weil so meine ganzen Diagramme etc nicht stimmen.


    Wie kann ich nun auf einfachstem Wege, mein Eingabecode so abändern, das z.B. die XML eingelesen wird und dann ggf die Daten entweder neu geschrieben werden oder im Falle das ein Datensatz besteht, dieser "geändert" wird.
    Von mir aus kann das "ändern" auch in einem separatem Form passieren.

    Ich hoffe mir kann jemand eine "einfache" Hilfe dazu anbieten.
    DANKE

    Spoiler anzeigen
    ​
    Die XML-Datei

    XML-Quellcode

    1. ​
    2. <?xml version="1.0"?>
    3. <ArrayOfWeatherData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    4. <WeatherData>
    5. <Datum>2023-05-07T00:00:00</Datum>
    6. <WetterTag>sdfsdfsdfsdf</WetterTag>
    7. <WetterNacht>dsfsdfs</WetterNacht>
    8. <RegenTag>2</RegenTag>
    9. <SchneeTag>0</SchneeTag>
    10. <SchneeNacht>3</SchneeNacht>
    11. <LuftfminTag>56</LuftfminTag>
    12. <LuftfmaxTag>22</LuftfmaxTag>
    13. <LuftfminNacht>12</LuftfminNacht>
    14. <LuftfmaxNacht>44</LuftfmaxNacht>
    15. <TempTag>16</TempTag>
    16. <TempNacht>11</TempNacht>
    17. <WindTag>2</WindTag>
    18. <WindNacht>1</WindNacht>
    19. </WeatherData>
    20. <WeatherData>
    21. <Datum>2023-05-07T00:00:00</Datum>
    22. <WetterTag>R/T</WetterTag>
    23. <WetterNacht>K/LB</WetterNacht>
    24. <RegenTag>6</RegenTag>
    25. <SchneeTag>0</SchneeTag>
    26. <SchneeNacht>0</SchneeNacht>
    27. <LuftfminTag>77</LuftfminTag>
    28. <LuftfmaxTag>66</LuftfmaxTag>
    29. <LuftfminNacht>44</LuftfminNacht>
    30. <LuftfmaxNacht>55</LuftfmaxNacht>
    31. <TempTag>13</TempTag>
    32. <TempNacht>4</TempNacht>
    33. <WindTag>2</WindTag>
    34. <WindNacht>1</WindNacht>
    35. </WeatherData>
    36. </ArrayOfWeatherData>


    Die Datei zum speichern der Daten

    VB.NET-Quellcode

    1. ​
    2. Die Datei zum speichern der Daten
    3. Public Class frmInput
    4. Private _weatherData As List(Of WeatherData)
    5. Private ReadOnly _datafolder As String = Path.Combine(Application.StartupPath, "ApSet.xml")
    6. Dim _monthDirectory As String
    7. Dim _yearDirectory As String
    8. Dim NewDatafolder As String
    10. Public Sub New()
    11. InitializeComponent()
    12. ' Initialisiere die Liste der Wetterdaten
    13. _weatherData = New List(Of WeatherData)()
    14. End Sub
    16. Private Sub ReadDataFolderFromXml()
    17. Try
    18. Dim xDoc As XDocument = XDocument.Load(_datafolder)
    19. Dim dataFolderElement As XElement = xDoc.Root.Element("dataFolder")
    20. Dim dataLocation As XElement = xDoc.Root.Element("location")
    21. If dataFolderElement IsNot Nothing AndAlso dataLocation IsNot Nothing Then
    22. Dim savePath As String = dataFolderElement.Value.Trim()
    23. Dim location As String = dataLocation.Value.Trim()
    24. Me.Text = "Eingaben für den Ort: " & location
    25. lbl_savepath.Text = savePath
    26. NewDataFolder = savePath
    27. Else
    28. Throw New Exception("Die Elemente 'dataFolder' oder 'location' konnten nicht gefunden werden.")
    29. End If
    30. Catch ex As Exception
    31. MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    32. Me.Close()
    33. End Try
    34. End Sub
    36. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    37. ClearInputFields()
    38. ' Initialisiere die Liste der Wetterdaten und Speicherort auslesen
    39. _weatherData = New List(Of WeatherData)()
    40. ReadDatafolderFromXml()
    41. End Sub
    43. Private Function CheckControls(ByVal parent As Control) As Boolean
    44. For Each ctrl As Control In parent.Controls
    45. If TypeOf ctrl Is TextBox AndAlso String.IsNullOrEmpty(ctrl.Text) Then
    46. MessageBox.Show("Bitte füllen Sie alle Felder aus!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    47. ctrl.Focus()
    48. Return False
    49. ElseIf ctrl.Controls.Count > 0 Then
    50. If Not CheckControls(ctrl) Then
    51. Return False
    52. End If
    53. End If
    54. Next
    55. Return True
    56. End Function
    58. Private Sub ConvertDecimalSeparator()
    59. For Each gb As Control In Me.Controls
    60. If gb.Enabled AndAlso TypeOf gb Is GroupBox Then
    61. For Each tb As TextBox In gb.Controls.OfType(Of TextBox)()
    62. If IsNumericWithDecimalPoint(tb.Text) Then
    63. tb.Text = tb.Text.Replace(",", ".").Replace(".", ",")
    64. End If
    65. Next
    66. End If
    67. Next
    68. End Sub
    70. Private Function IsNumericWithDecimalPoint(ByVal text As String) As Boolean
    71. Dim decimalSeparator As String = Globalization.CultureInfo.InvariantCulture.NumberFormat.NumberDecimalSeparator
    72. Dim pattern As String = "^[+-]?\d*\" & decimalSeparator & "?\d+$|^[+-]?\d+" & decimalSeparator & "\d+$"
    73. Return System.Text.RegularExpressions.Regex.IsMatch(text, pattern)
    74. End Function
    76. Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    77. If CheckControls(Me) Then
    78. Try
    79. ConvertDecimalSeparator()
    80. ' Lese die Daten aus dem Formular
    81. Dim datum As DateTime = dtpDatum.Value
    82. Dim culture As CultureInfo = CultureInfo.CreateSpecificCulture("de-DE")
    83. Dim dateString As String = datum.ToString("dd.MM.yyyy", culture)
    84. Dim WetterTag As String = txtWetterTag.Text
    85. Dim WetterNacht As String = txtWetterNacht.Text
    86. Dim RegenTag As Double = Double.Parse(txtRegenTag.Text)
    87. 'Dim RegenNacht As Double = Double.Parse(txtRegenNacht.Text)
    88. Dim SchneeTag As Double = Double.Parse(txtSchneeTag.Text)
    89. Dim SchneeNacht As Double = Double.Parse(txtSchneeNacht.Text)
    90. Dim LuftfMinTag As Double = Double.Parse(txtLuftfMinTag.Text)
    91. Dim LuftfMaxTag As Double = Double.Parse(txtLuftfMaxTag.Text)
    92. Dim LuftfMinNacht As Double = Double.Parse(txtLuftfMinNacht.Text)
    93. Dim LuftfMaxNacht As Double = Double.Parse(txtLuftfMaxNacht.Text)
    94. Dim TempTag As Double = Double.Parse(txtTempTag.Text)
    95. Dim TempNacht As Double = Double.Parse(txtTempNacht.Text)
    96. Dim WindTag As Double = Double.Parse(txtWindTag.Text)
    97. Dim WindNacht As Double = Double.Parse(txtWindNacht.Text)
    98. 'Dim luftdruck As Double = Double.Parse(txtLuftdruck.Text)
    99. 'Dim windrichtung As String = txtWindrichtung.Text
    101. ' Erstelle ein neues WeatherData-Objekt
    102. Dim data As New WeatherData()
    103. data.Datum = CDate(dateString) 'datum
    104. data.WetterTag = WetterTag
    105. data.WetterNacht = WetterNacht
    106. data.RegenTag = RegenTag
    107. 'data.RegenNacht = RegenNacht
    108. data.SchneeTag = SchneeTag
    109. data.SchneeNacht = SchneeNacht
    110. data.LuftfminTag = LuftfMinTag
    111. data.LuftfmaxTag = LuftfMaxTag
    112. data.LuftfminNacht = LuftfMinNacht
    113. data.LuftfmaxNacht = LuftfMaxNacht
    114. data.TempTag = TempTag
    115. data.TempNacht = TempNacht
    116. data.WindTag = WindTag
    117. data.WindNacht = WindNacht
    118. 'data.Luftdruck = luftdruck
    119. 'data.Windrichtung = windrichtung
    121. Dim existingData As List(Of WeatherData) = Nothing
    122. Dim existingFileName = Path.Combine(NewDatafolder, datum.ToString("yyyy-MM") & ".xml")
    123. If File.Exists(existingFileName) Then
    124. Dim existingSerializer = New XmlSerializer(GetType(List(Of WeatherData)))
    125. Using existingFileStream = New FileStream(existingFileName, FileMode.Open)
    126. existingData = TryCast(existingSerializer.Deserialize(existingFileStream), List(Of WeatherData))
    127. End Using
    128. End If
    129. If existingData IsNot Nothing Then
    130. existingData.Add(data)
    131. Dim serializer = New XmlSerializer(GetType(List(Of WeatherData)))
    132. Using fileStream = New FileStream(existingFileName, FileMode.Create)
    133. serializer.Serialize(fileStream, existingData)
    134. End Using
    135. Else
    136. _weatherData.Add(data)
    137. Dim fileName = Path.Combine(NewDatafolder, data.Datum.ToString("yyyy-MM") & ".xml")
    138. Dim serializer = New XmlSerializer(GetType(List(Of WeatherData)))
    139. Using fileStream = New FileStream(fileName, FileMode.Create)
    140. serializer.Serialize(fileStream, _weatherData)
    141. End Using
    142. End If
    143. MessageBox.Show("Daten wurden erfolgreich gespeichert!")
    144. Catch ex As Exception
    145. MessageBox.Show("Fehler beim Speichern der Daten: " & ex.Message)
    146. End Try
    147. End If
    148. End Sub
    150. Private Sub chk_Regen_CheckedChanged(sender As Object, e As EventArgs) Handles chk_Regen.CheckedChanged
    151. AktualisiereRegenLabel()
    152. End Sub
    153. Private Sub AktualisiereRegenLabel()
    154. If chk_Regen.Checked Then
    155. txtRegenNacht.Text = "0"
    156. txtRegenNacht.Enabled = False
    157. Else
    158. txtRegenNacht.Text = " "
    159. txtRegenNacht.Enabled = True
    160. End If
    161. End Sub
    163. Private Sub ClearInputFields()
    164. ' Leere alle aktivierten Textboxen in GroupBox-Steuerelementen
    165. For Each gb As GroupBox In Me.Controls.OfType(Of GroupBox)()
    166. For Each ctrl As Control In gb.Controls
    167. If TypeOf ctrl Is TextBox AndAlso ctrl.Enabled Then
    168. DirectCast(ctrl, TextBox).Clear()
    169. End If
    170. Next
    171. Next
    172. ' Setze das Datum des DateTimePicker-Steuerelements auf das aktuelle Datum
    173. For Each dtp As DateTimePicker In Me.Controls.OfType(Of DateTimePicker)()
    174. If dtp.Enabled Then
    175. dtp.Value = DateTime.Now
    176. End If
    177. Next
    178. 'MessageBox.Show("Daten wurden erfolgreich geleert")
    179. End Sub
    181. Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
    182. ClearInputFields()
    183. End Sub
    185. Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
    186. Me.Close()
    187. End Sub
    189. End Class
    191. Public Class WeatherData
    192. Public Property Datum As DateTime
    193. Public Property WetterTag As String
    194. Public Property WetterNacht As String
    195. Public Property RegenTag As Double
    196. 'Public Property RegenNacht As Double
    197. Public Property SchneeTag As Double
    198. Public Property SchneeNacht As Double
    199. Public Property LuftfminTag As Double
    200. Public Property LuftfmaxTag As Double
    201. Public Property LuftfminNacht As Double
    202. Public Property LuftfmaxNacht As Double
    203. Public Property TempTag As Double
    204. Public Property TempNacht As Double
    205. Public Property WindTag As Double
    206. Public Property WindNacht As Double
    207. 'Public Property Luftdruck As Double
    208. 'Public Property Windrichtung As String
    209. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Durchsuche deine Liste _weatherData auf einen Eintrag mit dem Datum welches du (neu) schreiben willst. Mach also eine Query die entweder null ist wenn nichts gefunden wurde oder ansonsten den gefunden Eintrag beinhaltet.
    Gib einen Warnhinweis aus und wenn der Bestätigt wird, überschreibst du die Werte deiner Query, also nichts mit "add" an der Stelle weil nichts zu adden ist. Das wars dann schon.

    Wenn ich den Code richtig erfasst habe, stecken nach Programmstart aber nicht alle Aufzeichnungen in _weatherData drin. Dementsprechend müssten erstmal die archivierten Daten nach dem entsprechenden Datum durchsucht werden und diese dann nach _weatherData verfrachtet werden. Aber sonst stimme ich zu.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo ;)
    ​stecken nach Programmstart aber nicht alle Aufzeichnungen

    Was meinst du damit?

    Wäre es evtl eine Idee, ein neues Form zu machen mit einen DGV und darin die Daten ggf zu ändern und die XML dann entsprechend zu aktualisieren?
    Wenn ja, wie würde das codseitig aussehen?
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    VaporiZed schrieb:

    Wenn ich den Code richtig erfasst habe, stecken nach Programmstart aber nicht alle Aufzeichnungen in _weatherData drin.


    Stimmt... aus meiner Sicht eine suboptimale Herangehensweise. Aber vorhandene Daten werdne ja in existingData deserialisiert. Dann eben hier ansetzen.
    Ich würde mir aber überlegen, ob das Konzept so sinnvoll ist und Funktionen von Ereignissen (Button_Click) lösen und separieren. DGV und sowas wird nicht benötigt, kann man machen wäre aber ein anderes Konzept.

    ​Aber vorhandene Daten werdne ja in existingData deserialisiert. Dann eben hier ansetzen.


    Und wie soll ich da vorgehen? Stehe gerade mächtig auf dem Schlauch????
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Hallo
    »stecken nach Programmstart aber nicht alle Aufzeichnungen«
    Was meinst du damit?
    Du hast eine ApSet.xml und Monats-XML-Dateien. Welche Daten speicherst Du in welcher Datei?
    Ist zu irgendeinem Zeitpunkt beim bisherigen Programmverlauf gegeben, dass sämtliche bisherige Wetterdaten in einer Variable vom Typ List(Of WeatherData) drinstecken, sodass Du ohne Zwischendurchwiederladen immer Zugriff auf alle bisher erfassten Wetterdaten hast?

    btw: Warum wandelst Du beim Speichern mit

    VB.NET-Quellcode

    1. Dim dateString As String = datum.ToString("dd.MM.yyyy", culture)
    das Datum in einen Text, wenn Du nur wenig später mit

    VB.NET-Quellcode

    1. data.Datum = CDate(dateString)
    diesen Text doch wieder in ein Datum umwandelst?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    In der ApSet-XLM sind der Ortsname der Username und die Verzeichnisse abgelegt.
    Die Eigentlichen Wetter-Daten werden in einem anderen Verzeichnis gespeichert. Z.B.: D:\WetterApp\2023\2023-05.xml

    immer Zugriff auf alle bisher erfassten Wetterdaten hast?

    Wenn ich das richtig verstehe, ja in dem "mainform" wo ich die Daten in einem DGV anzeigen lasse.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Wenn Du alle Daten im MainForm hast, dann kannst Du doch so einfach erkennen, ob es schon einen Datensatz für den Tag gibt. Und dann kannst Du den alten auch löschen. Und dann kannst Du bei [speichern] oder Programmende einfach erkennen, welche Monatsdatei neu erstellt werden muss. Ich seh grad das Problem nicht. Außer vielleicht, dass Dein o.g. Formular einfach nicht die Aufgabe haben sollte, Daten zu lesen oder zu speichern, wenn es nicht alle relevanten Informationen hat, die es braucht.
    Daher: Entweder das MainForm hat alle Daten und kümmert sich somit auch um Laden und Speichern von allem. Oder das SubForm kann alle relevanten Daten selber Laden und Speichern. Dann muss es aber auch wissen, ob es bereits Daten gibt, die überschrieben werden müssen. Aber nach einer Änderung in einem Monat muss die betroffene Datei komplett neu geschrieben werden.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Falsch kann aber auch bedeuten: Ein Rechtschreibfehler, den man nach dem Speichern später korrigieren will. Ein Zahlendreher, falsches Datum, …
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ja genau, ein "Fehler" kann sein was @VaporiZed schon schrieb, oder das bestimmte Daten noch nicht vorhanden sind.

    Der Rest, ich baue gerade etwas um. Melde mich wieder. ;)


    Also ich habe das Konzept geändert.
    Es sollen nun die Daten in ein DGV eingegeben und dann als XML-Datei gespeichert werden.
    Desweiteren sollen dann fehlende oder Falsche Eingaben im DGV geändert und gespeichert werden können.

    Es gibt z.Zt. nur das eine Form im Projekt.
    Wenn ich nun ein einer Zelle etwas eingebe und zur nächste, Zelle in der selben Zeile springe bekomme ich den Fehler.

    Fehlermeldung: Ungültige Konvertierung von der Zeichenfolge in Typ Double.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Xml.Serialization
    3. Public Class Inputnew
    5. 'Klasse für Wetterdaten
    6. Public Class WeatherData
    7. Public Datum As Date
    8. Public Property WetterTag As String
    9. Public Property WetterNacht As String
    10. Public Property RegenTag As Double
    11. Public Property SchneeTag As Double
    12. Public Property SchneeNacht As Double
    13. Public Property LuftfminTag As Double
    14. Public Property LuftfmaxTag As Double
    15. Public Property LuftfminNacht As Double
    16. Public Property LuftfmaxNacht As Double
    17. Public Property TempTag As Double
    18. Public Property TempNacht As Double
    19. Public Property WindTag As Double
    20. Public Property WindNacht As Double
    21. End Class
    23. 'Klasse für Array von Wetterdaten
    24. Public Class WeatherDataArray
    25. Inherits List(Of WeatherData)
    26. End Class
    28. Private Sub Inputnew_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    29. ' Datumsangaben für aktuellen Monat im DataGridView anzeigen
    30. Dim daysInMonth As Integer = DateTime.DaysInMonth(dtpDatum.Value.Year, dtpDatum.Value.Month)
    31. For i As Integer = 1 To daysInMonth
    32. DGV_1.Rows.Add(New String() {New Date(dtpDatum.Value.Year, dtpDatum.Value.Month, i).ToString("dd-MM-yyyy"), "", "", "", "", "", "", "", "", "", "", "", "", ""})
    33. Next
    34. DGV_1.Columns(0).ReadOnly = True
    35. DGV_1.AllowUserToAddRows = False
    36. End Sub
    38. Private Sub btn_Save_Click(sender As Object, e As EventArgs) Handles btn_Save.Click
    39. 'Daten aus DGV in Array speichern
    40. Dim data As New WeatherDataArray
    41. For Each row As DataGridViewRow In DGV_1.Rows
    42. If Not row.IsNewRow Then
    43. Dim weatherData As New WeatherData
    44. weatherData.Datum = Date.Parse(CStr(row.Cells(0).Value))
    45. weatherData.WetterTag = CStr(row.Cells(1).Value)
    46. weatherData.WetterNacht = CStr(row.Cells(2).Value)
    47. weatherData.RegenTag = CDbl(row.Cells(3).Value)
    48. weatherData.SchneeTag = CDbl(row.Cells(4).Value)
    49. weatherData.SchneeNacht = CDbl(row.Cells(5).Value)
    50. weatherData.LuftfminTag = CDbl(row.Cells(6).Value)
    51. weatherData.LuftfmaxTag = CDbl(row.Cells(7).Value)
    52. weatherData.LuftfminNacht = CDbl(row.Cells(8).Value)
    53. weatherData.LuftfmaxNacht = CDbl(row.Cells(9).Value)
    54. weatherData.TempTag = CDbl(row.Cells(10).Value)
    55. weatherData.TempNacht = CDbl(row.Cells(11).Value)
    56. weatherData.WindTag = CDbl(row.Cells(12).Value)
    57. weatherData.WindNacht = CDbl(row.Cells(13).Value)
    58. data.Add(weatherData)
    59. End If
    60. Next
    61. 'Daten als XML-File speichern
    62. Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
    63. 'Der Pfad wird später aus der ApSet.xml gelesen
    64. Using writer As New StreamWriter("A:\WetterApp\2023\2023-05.xml")
    65. serializer.Serialize(writer, data)
    66. End Using
    67. End Sub
    69. Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGV_1.CellEndEdit
    70. 'Änderungen im DGV speichern
    71. Dim rowIndex As Integer = DGV_1.CurrentRow.Index
    72. Dim row As DataGridViewRow = DGV_1.Rows(rowIndex)
    73. If Not row.IsNewRow Then
    74. Dim data As New WeatherData
    75. data.Datum = Date.Parse(CStr(row.Cells(0).Value))
    76. data.WetterTag = CStr(row.Cells(1).Value)
    77. data.WetterNacht = CStr(row.Cells(2).Value)
    78. data.RegenTag = CDbl(row.Cells(3).Value)
    79. data.SchneeTag = CDbl(row.Cells(4).Value)
    80. data.SchneeNacht = CDbl(row.Cells(5).Value)
    81. data.LuftfminTag = CDbl(row.Cells(6).Value)
    82. data.LuftfmaxTag = CDbl(row.Cells(7).Value)
    83. data.LuftfminNacht = CDbl(row.Cells(8).Value)
    84. data.LuftfmaxNacht = CDbl(row.Cells(9).Value)
    85. data.TempTag = CDbl(row.Cells(10).Value)
    86. data.TempNacht = CDbl(row.Cells(11).Value)
    87. data.WindTag = CDbl(row.Cells(12).Value)
    88. data.WindNacht = CDbl(row.Cells(13).Value)
    89. 'Daten im Array aktualisieren
    90. Dim dataRowIndex As Integer = rowIndex - 1
    91. Dim dataArray As WeatherDataArray = TryCast(DGV_1.DataSource, WeatherDataArray)
    92. If dataArray IsNot Nothing AndAlso dataArray.Count > dataRowIndex Then
    93. dataArray(dataRowIndex) = data
    94. End If
    95. End If
    96. End Sub
    98. Private Sub dtpDatum_ValueChanged(sender As Object, e As EventArgs) Handles dtpDatum.ValueChanged
    99. DGV_1.Rows.Clear()
    100. ' Datumsangaben für ausgewählten Monat im DataGridView anzeigen
    101. Dim daysInMonth As Integer = DateTime.DaysInMonth(dtpDatum.Value.Year, dtpDatum.Value.Month)
    102. For i As Integer = 1 To daysInMonth
    103. DGV_1.Rows.Add(New String() {New Date(dtpDatum.Value.Year, dtpDatum.Value.Month, i).ToString("dd-MM-yyyy"), "", "", "", "", "", "", "", "", "", "", "", "", ""})
    104. Next
    105. End Sub
    106. End Class



    Beiträge zusammengefasst ~VaporiZed
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    8|
    Nein, bitte nicht manuell das DGV mit Strings füllen. Nimm eine BindingSource, setze Deine List(Of WeatherData) als DataSource und binde das DGV an die BindingSource.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo
    Ich habe nun erneut begonnen.
    EDIT vorhin falschen Code geladen...
    gleich kommt der richtige.

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    So es hat etwas gedauert aber hier nun der neue Code. Es gibt nur das eine Form.
    Nach einigen Test´s funktioniert er.

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.IO
    3. Imports System.Data
    4. Imports System.Xml.Serialization
    6. Public Class frm_Main
    7. 'Klasse für Wetterdaten
    8. Public Class WeatherData
    9. Public Property Datum As Date
    10. Public Property WetterTag As String
    11. Public Property WetterNacht As String
    12. Public Property RegenTag As Double
    13. Public Property SchneeTag As Double
    14. Public Property SchneeNacht As Double
    15. Public Property LuftfminTag As Double
    16. Public Property LuftfmaxTag As Double
    17. Public Property LuftfminNacht As Double
    18. Public Property LuftfmaxNacht As Double
    19. Public Property TempTag As Double
    20. Public Property TempNacht As Double
    21. Public Property WindTag As Double
    22. Public Property WindNacht As Double
    23. End Class
    25. 'Klasse für Array von Wetterdaten
    26. Public Class WeatherDataArray
    27. Inherits List(Of WeatherData)
    28. End Class
    30. Private weatherDataList As New WeatherDataArray
    31. Private filePath As String
    33. Private Sub frm_Main_Load(sender As Object, e As EventArgs) Handles Me.Load
    34. lbl_Datum.Text = dtpDatum.Value.ToString("MMMM - yyyy")
    35. ' Dateinamen aus DTP generieren
    36. Dim fileName As String = dtpDatum.Value.ToString("MM-yyyy") & ".xml"
    37. filePath = Path.Combine("B:\", fileName)
    39. If File.Exists(filePath) Then
    40. ' Daten aus XML-Datei laden
    41. LoadWeatherDataFromXmlFile(filePath)
    42. Else
    43. ' Neue Daten erstellen
    44. Dim daysInMonth As Integer = DateTime.DaysInMonth(dtpDatum.Value.Year, dtpDatum.Value.Month)
    45. weatherDataList = New WeatherDataArray()
    46. For i As Integer = 1 To daysInMonth
    47. Dim item As New WeatherData()
    48. item.Datum = New Date(dtpDatum.Value.Year, dtpDatum.Value.Month, i)
    49. weatherDataList.Add(item)
    50. Next
    51. End If
    52. 'Datenquelle und Bindingsource einrichten
    53. Dim weatherDataBindingSource As New BindingSource
    54. weatherDataBindingSource.DataSource = weatherDataList
    55. DGV_1.DataSource = weatherDataBindingSource
    56. ' Andere DataGridView-Einstellungen
    57. DGV_1.Columns(0).ReadOnly = True
    58. DGV_1.AllowUserToAddRows = False
    59. End Sub
    61. Private Sub btn_Save_Click(sender As Object, e As EventArgs) Handles btn_Save.Click
    62. SaveWeatherDataToXmlFile(filePath, weatherDataList)
    63. End Sub
    65. ' Funktion zum Speichern von Daten in einer XML-Datei
    66. Private Sub SaveWeatherDataToXmlFile(ByVal filePath As String, ByVal weatherDataList As List(Of WeatherData))
    67. Try
    68. 'Wetterdaten als XML-Datei speichern
    69. Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
    70. Using writer As New StreamWriter(filePath)
    71. serializer.Serialize(writer, weatherDataList)
    72. End Using
    73. MessageBox.Show("Die Wetterdaten wurden erfolgreich gespeichert.")
    74. Catch ex As Exception
    75. MessageBox.Show(String.Format("Fehler beim Speichern der Wetterdaten: {0}", ex.Message))
    76. End Try
    77. End Sub
    79. ' Funktion zum Laden von Daten aus einer XML-Datei
    80. Private Sub LoadWeatherDataFromXmlFile(filePath As String)
    81. 'Wetterdaten aus XML-Datei laden
    82. If File.Exists(filePath) Then
    83. Dim serializer As New XmlSerializer(GetType(WeatherDataArray))
    84. Using reader As New StreamReader(filePath)
    85. weatherDataList = DirectCast(serializer.Deserialize(reader), WeatherDataArray)
    86. End Using
    87. Else
    88. MessageBox.Show("Die Wetterdaten-Datei wurde nicht gefunden.")
    89. End If
    90. 'Daten im DGV anzeigen
    91. Dim weatherDataBindingSource As New BindingSource
    92. weatherDataBindingSource.DataSource = weatherDataList
    93. DGV_1.DataSource = weatherDataBindingSource
    94. End Sub
    96. Private Sub dtpDatum_ValueChanged(sender As Object, e As EventArgs) Handles dtpDatum.ValueChanged
    97. ClearDataGridView()
    98. ' Dateinamen aus DTP generieren
    99. Dim fileName As String = dtpDatum.Value.ToString("MM-yyyy") & ".xml"
    100. filePath = Path.Combine("B:\", fileName)
    101. If File.Exists(filePath) Then
    102. ' Daten aus XML-Datei laden
    103. LoadWeatherDataFromXmlFile(filePath)
    104. Else
    105. ' Neue Daten erstellen
    106. Dim daysInMonth As Integer = DateTime.DaysInMonth(dtpDatum.Value.Year, dtpDatum.Value.Month)
    107. weatherDataList = New WeatherDataArray()
    108. For i As Integer = 1 To daysInMonth
    109. Dim item As New WeatherData()
    110. item.Datum = New Date(dtpDatum.Value.Year, dtpDatum.Value.Month, i)
    111. weatherDataList.Add(item)
    112. Next
    113. End If
    114. 'Datenquelle und Bindingsource einrichten
    115. Dim weatherDataBindingSource As New BindingSource
    116. weatherDataBindingSource.DataSource = weatherDataList
    117. DGV_1.DataSource = weatherDataBindingSource
    118. ' Andere DataGridView-Einstellungen
    119. DGV_1.Columns(0).ReadOnly = True
    120. DGV_1.AllowUserToAddRows = False
    121. End Sub
    123. Private Sub ClearDataGridView()
    124. 'Alle Zeilen im DataGridView löschen
    125. If DGV_1.Rows.Count > 0 Then
    126. For i As Integer = DGV_1.Rows.Count - 1 To 0 Step -1
    127. DGV_1.Rows.RemoveAt(i)
    128. Next
    129. End If
    130. End Sub
    132. ' Dezimalpunkt ersetzen
    133. Private Sub DGV_1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DGV_1.EditingControlShowing
    134. If TypeOf e.Control Is DataGridViewTextBoxEditingControl Then
    135. Dim textBox As DataGridViewTextBoxEditingControl = CType(e.Control, DataGridViewTextBoxEditingControl)
    136. AddHandler textBox.KeyPress, AddressOf TextBox_KeyPress
    137. End If
    138. End Sub
    140. Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs)
    141. If e.KeyChar = "." Then
    142. e.KeyChar = CChar(",")
    143. End If
    144. End Sub
    146. ' Das DGV formatieren / Farben Zeilen und negativ Zahlen
    147. Private Sub DGV_1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DGV_1.CellFormatting
    148. If e.ColumnIndex = 0 AndAlso Not e.Value Is Nothing Then
    149. e.Value = DateTime.Parse(e.Value.ToString()).ToString("dd-MM-yyyy")
    150. e.FormattingApplied = True
    151. End If
    152. ' Überprüfen, ob es sich um eine Zelle mit einer Zahl handelt
    153. If e.ColumnIndex >= 0 AndAlso IsNumeric(e.Value) Then
    154. ' Überprüfen, ob die Zahl negativ ist
    155. If CDbl(e.Value) < 0 Then
    156. ' Setzen Sie die Textfarbe auf Rot
    157. e.CellStyle.ForeColor = Color.Red
    158. Else
    159. ' Setzen Sie die Textfarbe auf Standardfarbe
    160. e.CellStyle.ForeColor = DGV_1.DefaultCellStyle.ForeColor
    161. End If
    162. End If
    163. If e.RowIndex Mod 2 = 1 Then
    164. e.CellStyle.BackColor = Color.LightGray
    165. End If
    166. End Sub
    168. ' Button zum Einstellen des Datums um einen Monat zurück
    169. Private Sub btnPrevMonth_Click(sender As Object, e As EventArgs) Handles btnPrevMonth.Click
    170. dtpDatum.Value = dtpDatum.Value.AddMonths(-1)
    171. lbl_Datum.Text = dtpDatum.Value.ToString("MMMM - yyyy")
    172. End Sub
    174. ' Button zum Einstellen des Datums um einen Monat nach vorne
    175. Private Sub btnNextMonth_Click(sender As Object, e As EventArgs) Handles btnNextMonth.Click
    176. dtpDatum.Value = dtpDatum.Value.AddMonths(1)
    177. lbl_Datum.Text = dtpDatum.Value.ToString("MMMM - yyyy")
    178. End Sub
    180. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Die weatherDataBindingSource (Zeile 53) würde ich Private definieren (Zeile 32?).
    Die Zeilen 90 - 93 in der Funktion LoadWeatherDataFromXmlFile mach gar keinen Sinn. Die Zuweisung überschreibst du in der Funktion (oder Sub wie ihr in VB.Net sagt) frm_Main_Load ab Zeile 52 gleich wieder.
    Tatsächlich glaube ich nicht einmal, dass das funktioniert, weil die Variablenzuweisung in Zeile 91 beim Verlassen der Sub wieder zerstört werden müßte.

    Mehr habe ich mir jetzt nicht angeguckt.

Facebook
Telefonspende