Code umgestalten (Daten an XML anhängen/in neue Datei speichern)

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Code umgestalten (Daten an XML anhängen/in neue Datei speichern)

    Hallo und Frohe Ostern

    Ich habe hier eine App im Aufbau. Der u.g Code funktioniert soweit.
    Für jeden Tag einer Kalenderwoche wird eine XML-Datei in einen bestimmten Verzeichnis geschrieben.
    Nun wollte ich das alles in einem DGView abzeigen lassen, was mir dann bewust machte, das ich den Code irgendwie ändern muss.

    Wie komme ich schnell dahin, das für jede KW die täglichen Daten nur in die vorhandene XML an gehangen werden?
    Erst wenn eine neue KW beginnt soll auch eine neue XML geschrieben werden.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
    2. If CheckControls(Me) Then
    3. ' Datum aus dem DateTimePicker auslesen
    4. Dim selectedDate As Date = dtpDatum.Value
    5. ' Speicherort aus den Einstellungen auslesen
    6. Dim settingsFilePath As String = Path.Combine(Application.StartupPath, "settings.xml")
    7. Dim xmlSettings As XDocument = XDocument.Load(settingsFilePath)
    8. Dim Datenverzeichnis As String = xmlSettings.<Settings>.<DataLocation>.Value
    9. ' Ordnerpfad generieren
    10. Dim monat = selectedDate.ToString("MMMM")
    11. Dim jahr = selectedDate.Year.ToString()
    12. Dim monatsOrdner = IO.Path.Combine(Datenverzeichnis, jahr, monat)
    13. If Not IO.Directory.Exists(monatsOrdner) Then
    14. IO.Directory.CreateDirectory(monatsOrdner)
    15. End If
    16. ' Kalenderwochen-Ordner anlegen
    17. Dim calendar As Calendar = CultureInfo.InvariantCulture.Calendar
    18. Dim kalenderwoche As Integer = calendar.GetWeekOfYear(selectedDate, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
    19. Dim kalenderwocheOrdner = "KW- " & kalenderwoche.ToString("D2")
    20. Dim kwOrdnerPfad = IO.Path.Combine(monatsOrdner, kalenderwocheOrdner)
    21. If Not IO.Directory.Exists(kwOrdnerPfad) Then
    22. IO.Directory.CreateDirectory(kwOrdnerPfad)
    23. End If
    24. 'Erstellen einer neuen Instanz von WetterWoche
    25. Dim neueWoche As New WetterWoche
    26. 'Erstellung eines neuen Wettertags und Zuweisung der eingegebenen Werte
    27. Dim neuerTag As New WetterTag
    28. neuerTag.Datum = dtpDatum.Value
    29. neuerTag.NiederschlagRegenTag = CDbl(txtNiederschlagRegenTag.Text)
    30. neuerTag.NiederschlagRegenNacht = CDbl(txtNiederschlagRegenNacht.Text)
    31. neuerTag.NiederschlagSchneeTag = CDbl(txtNiederschlagSchneeTag.Text)
    32. neuerTag.NiederschlagSchneeNacht = CDbl(txtNiederschlagSchneeNacht.Text)
    33. neuerTag.LuftfeuchtigkeitMinTag = CInt(txtLuftfeuchtigkeitMinMaxTag.Text.Split(CChar("/"))(0))
    34. neuerTag.LuftfeuchtigkeitMaxTag = CInt(txtLuftfeuchtigkeitMinMaxTag.Text.Split(CChar("/"))(1))
    35. neuerTag.LuftfeuchtigkeitMinNacht = CInt(txtLuftfeuchtigkeitMinMaxNacht.Text.Split(CChar("/"))(0))
    36. neuerTag.LuftfeuchtigkeitMaxNacht = CInt(txtLuftfeuchtigkeitMinMaxNacht.Text.Split(CChar("/"))(1))
    37. neuerTag.TemperaturTag = CDbl(txtTemperaturTag.Text)
    38. neuerTag.TemperaturNacht = CDbl(txtTemperaturNacht.Text)
    39. neuerTag.WindstaerkeTag = CDbl(txtWindstaerkeTag.Text)
    40. neuerTag.WindstaerkeNacht = CDbl(txtWindstaerkeNacht.Text)
    41. neuerTag.WettergeschehnTag = txtWettergeschehnTag.Text
    42. neuerTag.WettergeschehnNacht = txtWettergeschehnNacht.Text
    43. neuerTag.Luftdruck = CDbl(txtLuftdruck.Text)
    44. neuerTag.Windrichtung = txtWindrichtung.Text
    45. ' Hinzufügen des neuen Wettertags zur Liste
    46. wetterdaten.Add(neuerTag)
    47. ' Speichern der Wetterdaten in der XML-Datei
    48. Dim stadt As String = xmlSettings.<Settings>.<Location>.Value
    49. Dim dateiname As String = String.Format("{0}_{1}.xml", stadt, dtpDatum.Value.ToString("ddMMyyyy"))
    50. Dim filePath As String = Path.Combine(Datenverzeichnis, kwOrdnerPfad, dateiname)
    51. Dim wochXml As New XElement("Wetterwoche", New XAttribute("StadtName", stadt))
    52. ' Hinzufügen der Wetterdaten
    53. For Each Tag As WetterTag In wetterdaten
    54. Dim tagXml As New XElement("Wettertag",
    55. New XAttribute("Datum", Tag.Datum.ToString("yyyy-MM-dd")),
    56. New XElement("NiederschlagRegenTag", Tag.NiederschlagRegenTag),
    57. New XElement("NiederschlagRegenNacht", Tag.NiederschlagRegenNacht),
    58. New XElement("NiederschlagSchneeTag", Tag.NiederschlagSchneeTag),
    59. New XElement("NiederschlagSchneeNacht", Tag.NiederschlagSchneeNacht),
    60. New XElement("LuftfeuchtigkeitMinMaxTag", Tag.LuftfeuchtigkeitMinTag & "/" & Tag.LuftfeuchtigkeitMaxTag),
    61. New XElement("LuftfeuchtigkeitMinMaxNacht", Tag.LuftfeuchtigkeitMinNacht & "/" & Tag.LuftfeuchtigkeitMaxNacht),
    62. New XElement("TemperaturTag", Tag.TemperaturTag),
    63. New XElement("TemperaturNacht", Tag.TemperaturNacht),
    64. New XElement("WindstaerkeTag", Tag.WindstaerkeTag),
    65. New XElement("WindstaerkeNacht", Tag.WindstaerkeNacht),
    66. New XElement("WettergeschehnTag", Tag.WettergeschehnTag),
    67. New XElement("WettergeschehnNacht", Tag.WettergeschehnNacht),
    68. New XElement("Luftdruck", Tag.Luftdruck),
    69. New XElement("Windrichtung", Tag.Windrichtung))
    70. wochXml.Add(tagXml)
    71. Next
    72. ' Speichern der Wetterdaten
    73. wochXml.Save(filePath)
    74. MessageBox.Show("Die Wetterdaten wurden unter " & Environment.NewLine & filePath & Environment.NewLine & " erfolgreich gespeichert.", "Speichern erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
    75. End If
    76. End Sub


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

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Zuallererst würde ich an deiner Stelle den Code weiter modularisieren.
    Konkret: du hast da sehr viele Werte, die eine Funktion dir als Objekt zurückliefern könnte.
    Das würde den Code schon mal leserlicher machen.

    Zu deinem eigentlichen Problem, dass du pro KW eine Datei hast:
    Ich schlage folgende Ordnerstruktur vor:

    Quellcode

    1. ​
    2. %AppData%/myprogram/
    3. jahr/
    4. kw01.xml
    5. kw02.xml
    6. ...


    In den XMLs kannst du dann folgende Datenstruktur anwenden, wenn du unbedingt ein eigenes Format verwenden willst:

    XML-Quellcode

    1. ​
    2. <week city="mycity" begindate="2023-01-02" enddate="2023-01-09" >
    3. <day date="2023-01-02" >
    4. <weather type="precipitation" unit="ml/m2" >200</weather>
    5. ...
    6. </day>
    7. </week>


    Alternativ, kannst du auch ein bereits existierendes Format wie dieses verwenden.
    Quellcode lizensiert unter CC by SA 2.0 (Creative Commons Share-Alike)

    Meine Firma: Procyon Systems

    Selbstständiger Softwareentwickler & IT-Techniker.

    Hi.

    Zum Thema anhängen an Datei.

    Als Erstes liest du das XML der Kalenderwoche ein, oder neu erstellen, falls nicht vorhanden.

    Das sollte dann in deinem Objekt eingelesen sein (denke in deinem Beispiel ist das "wochXml"),
    dann mit XML mit wochXml.Add(blabla....)
    und dann diese in die Datei speichern. (Was dann einem "Append" gleich kommt).

    Es ist sogar möglich, mit XML gezielt einzufügen, da muss aber mit "AddBefore" und Konsorten gemacht werden.

    Zum Thema Tag und Nacht, das ist redundant, dort könnte auch etwas gekürzt werden.
    Wenn zwei Objekte (für Tag/Nacht) angelegt werden, und diese dann mit einer Eigenschaft für Werte und
    einer zusätzlichen Eigenschaft für Tageszeit versehen wird.

    WetterTag.Tageszeit = "Morgens"
    WetterTag.TagesZeit = "Nachts" etc.

    Dann könnte es so aussehen...

    VB.NET-Quellcode

    1. neuerTag.NiederschlagRegen = CDbl(txtNiederschlagRegenTag.Text)
    2. neuerTag.NiederschlagSchnee = CDbl(txtNiederschlagSchneeTag.Text)
    3. ...
    4. neueNacht.NiederschlagRegen = CDbl(txtNiederschlagRegenNacht.Text)
    5. neueNacht.NiederschlagSchnee = CDbl(txtNiederschlagSchneeNacht.Text)
    6. ...


    Ist etwas schwammig formuliert, aber erst einlesen und dann .add() und zum Abschluss speichern der "KWxx.xml".

    Grüße aus HH :)

    Moin moin
    Danke erstmal.
    Ich habe es nun so gelöst.

    Spoiler anzeigen

    VB.NET-Quellcode

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

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

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