XML in Objekt verschachtelt einlesen und nachtraglich im Objekt anpassungen durchführen

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Entwickler.

    XML in Objekt verschachtelt einlesen und nachtraglich im Objekt anpassungen durchführen

    Neu

    Hallo Zusammen,

    Ich habe ein Objektmodel Verschachtelt aus 5 Klassen (Schule, Kassen, Schüler , Zeugniss , Noten)
    Die XML habe ich über das Objektmodell serialisiert.

    Ich habe dieses jetzt wieder deserialisiert ins Objektmodel.
    Möchte jetzt nur einen Schüler oder Noten hinzufügen , ändern oder entfernen und wieder als neue XML serialisieren ?

    Wie läuft man om Objektmodel durch



    Danke

    Neu

    Hallo,

    Habe das ObjektModell etwas gekürzt und XML Datei angepasst.
    Hoffe jetzt wird es etwas verständlicher.

    XML-Datei Inhalt:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <clsSchule xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    3. <ID>1</ID>
    4. <Name>Name1</Name>
    5. <Adresse>Adresse1</Adresse>
    6. <Klasse>
    7. <clsKlasse>
    8. <ID>1</ID>
    9. <Name>Name1</Name>
    10. <Adresse>Adresse1</Adresse>
    11. <Schüler>
    12. <clsSchüler>
    13. <ID>1</ID>
    14. <Jahrgang>2024/2025</Jahrgang>
    15. <Datum>10.10.2023</Datum>
    16. <Zeugniss>
    17. <clsZeugniss>
    18. <ID>1</ID>
    19. <Semester>2023/2024</Semester>
    20. <Datum>10.10.2022</Datum>
    21. <Noten>
    22. <clsNoten>
    23. <ID>1</ID>
    24. <Fach>Fach1</Fach>
    25. <Note>Note1</Note>
    26. </clsNoten>
    27. <clsNoten>
    28. <ID>2</ID>
    29. <Fach>Fach2</Fach>
    30. <Note>Note2</Note>
    31. </clsNoten>
    32. </Noten>
    33. </clsZeugniss>
    34. <clsZeugniss>
    35. <ID>1</ID>
    36. <Semester>2024/2025</Semester>
    37. <Datum>10.10.2023</Datum>
    38. <Noten>
    39. <clsNoten>
    40. <ID>1</ID>
    41. <Fach>Fach1</Fach>
    42. <Note>Note1</Note>
    43. </clsNoten>
    44. <clsNoten>
    45. <ID>2</ID>
    46. <Fach>Fach2</Fach>
    47. <Note>Note2</Note>
    48. </clsNoten>
    49. </Noten>
    50. </clsZeugniss>
    51. </Zeugniss>
    52. </clsSchüler>
    53. </Schüler>
    54. </clsKlasse>
    55. </Klasse>
    56. </clsSchule>


    ObjektModel:

    VB.NET-Quellcode

    1. Public Class clsSchule
    2. Inherits clsKlasse
    3. Private _ID As Integer
    4. Private _Name As String
    5. Private _Adresse As String
    6. Private _Klasse As New List(Of clsKlasse)
    7. Public Property ID As Integer
    8. Get
    9. Return _ID
    10. End Get
    11. Set(value As Integer)
    12. _ID = value
    13. End Set
    14. End Property
    15. Public Property Name As String
    16. Get
    17. Return _Name
    18. End Get
    19. Set(value As String)
    20. _Name = value
    21. End Set
    22. End Property
    23. Public Property Adresse As String
    24. Get
    25. Return _Adresse
    26. End Get
    27. Set(value As String)
    28. _Adresse = value
    29. End Set
    30. End Property
    31. Public Property Klasse As List(Of clsKlasse)
    32. Get
    33. Return _Klasse
    34. End Get
    35. Set(value As List(Of clsKlasse))
    36. _Klasse = value
    37. End Set
    38. End Property
    39. Public Sub SchuleSave()
    40. Dim writer As New System.Xml.Serialization.XmlSerializer(GetType(clsSchule))
    41. Dim file As New System.IO.StreamWriter(c:\temp\SchuleBelegung.xml)
    42. writer.Serialize(file, mobjSchule)
    43. file.Close()
    44. End Sub
    45. Public Sub SchuleLoad()
    46. Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(clsSchule))
    47. Dim file As New System.IO.StreamReader(c:\temp\SchuleBelegung.xml)
    48. mobjSchule = New clsSchule
    49. mobjSchule = (CType(reader.Deserialize(file), clsSchule))
    50. End Sub
    51. End Class
    53. Public Class clsKlasse
    54. Inherits clsSchüler
    55. Private _ID As Integer
    56. Private _Name As String
    57. Private _Adresse As String
    58. Private _Schüler As New List(Of clsSchüler)
    59. Public Property ID As Integer
    60. Get
    61. Return _ID
    62. End Get
    63. Set(value As Integer)
    64. _ID = value
    65. End Set
    66. End Property
    67. Public Property Name As String
    68. Get
    69. Return _Name
    70. End Get
    71. Set(value As String)
    72. _Name = value
    73. End Set
    74. End Property
    75. Public Property Adresse As String
    76. Get
    77. Return _Adresse
    78. End Get
    79. Set(value As String)
    80. _Adresse = value
    81. End Set
    82. End Property
    83. Public Property Schüler As List(Of clsSchüler)
    84. Get
    85. Return _Schüler
    86. End Get
    87. Set(value As List(Of clsSchüler))
    88. _Schüler = value
    89. End Set
    90. End Property
    91. End Class
    93. Public Class clsSchüler
    94. Inherits clsZeugniss
    95. Private _ID As Integer
    96. Private _Jahrgang As String
    97. Private _Datum As Date
    98. Private _Zeugniss As New List(Of clsZeugniss)
    99. Public Property ID As Integer
    100. Get
    101. Return _ID
    102. End Get
    103. Set(value As Integer)
    104. _ID = value
    105. End Set
    106. End Property
    107. Public Property Jahrgang As String
    108. Get
    109. Return _Jahrgang
    110. End Get
    111. Set(value As String)
    112. _Jahrgang = value
    113. End Set
    114. End Property
    115. Public Property Datum As Date
    116. Get
    117. Return _Datum
    118. End Get
    119. Set(value As String)
    120. _Datum = value
    121. End Set
    122. End Property
    123. Public Property Zeugniss As List(Of clsZeugniss)
    124. Get
    125. Return _Zeugniss
    126. End Get
    127. Set(value As List(Of clsZeugniss))
    128. _Zeugniss = value
    129. End Set
    130. End Property
    131. End Class
    133. Public Class clsZeugniss
    134. Inherits clsNoten
    135. Private _ID As Integer
    136. Private _Semester As Integer
    137. Private _Datum As Date
    138. Private _Noten As New List(Of clsNoten)
    139. Public Property ID As Integer
    140. Get
    141. Return _ID
    142. End Get
    143. Set(value As Integer)
    144. _ID = value
    145. End Set
    146. End Property
    147. Public Property Semester As Integer
    148. Get
    149. Return _Semester
    150. End Get
    151. Set(value As Integer)
    152. _Semester = value
    153. End Set
    154. End Property
    155. Public Property Datum As Date
    156. Get
    157. Return _Datum
    158. End Get
    159. Set(value As String)
    160. _Datum = value
    161. End Set
    162. End Property
    163. Public Property Noten As List(Of clsNoten)
    164. Get
    165. Return _Noten
    166. End Get
    167. Set(value As List(Of clsNoten))
    168. _Noten = value
    169. End Set
    170. End Property
    171. End Class
    173. Public Class clsNoten
    174. Private _ID As Integer
    175. Private _Fach As String
    176. Private _Note As Integer
    177. Public Property ID As Integer
    178. Get
    179. Return _ID
    180. End Get
    181. Set(value As Integer)
    182. _ID = value
    183. End Set
    184. End Property
    185. Public Property Fach As String
    186. Get
    187. Return _Fach
    188. End Get
    189. Set(value As String)
    190. _Fach = value
    191. End Set
    192. End Property
    193. Public Property Note As Integer
    194. Get
    195. Return _Note
    196. End Get
    197. Set(value As Integer)
    198. _Note = value
    199. End Set
    200. End Property
    201. End Class

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

    Neu

    @Entwickler Es gibt diverse Code-Tags im Forum-Editor, nutze sie.

    Editiere Deinen Post:
    Code markieren und den entsprechend Tag-Button drücken.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Neu

    Dein Code kompiliert nicht. Kannst du nochmal etwas genauer sagen was du willst?

    Ich denke du meinst sowas?

    VB.NET-Quellcode

    1. Dim s = s.SchuleLoad ' Lade Schule mit Inhalt
    2. s.Klassen.Last.Schüler.Last.Zeugnisse.Last.Noten.Last(Function(x) x.ID = 5) = 6 'Gib dem letzten Schüler der letzten Klasse auf dem letzten Zeugnis in der letzten Note mit ID 5 eine 6
    3. s.Klassen.Last.Schüler.Add(New clsSchüler() With {.Name = "Joseph"}) 'Erstelle Schüler Joseph in der letzten Klasse
    4. s.SchuleSave ' Speicher die Änderungen

    Ich denke es wäre besser deine SchuleLoad wäre eine Function die eine geladene Schule zurückgibt. Dort ist auch der Fehler mobjschule ist nicht definiert worden. Und das dadrin zu definieren wäre fürs Laden recht doof, weils ja verworfen wird. Alternativ müsstest von außen ein Objekt reinreichen oder die Schule Class als Art Singleton handhaben.

    Ich glaube du weißt nicht was Inherits heißt. Ein Schüler erbt doch nicht von Zeugnis. Vielleicht erbt der von Mensch und selbst das wär schon an den Haaren herbeigezogen ;).

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Neu

    Hallo Haudruferzappeltnoch,

    Danke für Info, dass war es was ich gesucht habe!!

    ja habe ich mir etwas aus den Haaren gezogen ;)
    Beispiel Quellcode hatte ich jetzt auch nur so schnell zusammenkopiert.
    Die Klassen liegen eigentlich verteilt in .dll's und haben nichts mit Schule zu tun.

    Mfg