XML File einlesen, editieren und wieder speichern. Aber wie?

  • VB.NET
  • .NET 5–6

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    XML File einlesen, editieren und wieder speichern. Aber wie?

    Hallo,
    ich stehe zur Zeit auf dem Schlauch. Ich habe eine XML Datei, die ist leider so vorgegeben (Das Beispiel ist dem Original nachgebaut) und kann leider nicht abgeändert werden.
    Was will ich erreichen. Am liebsten ein Klasse erstellen in der ich via XmlSerializer, oder was auch immer, die XML einlese, bearbeiten kann und wieder speichern kann.
    Nun habe ich die Tolle Funktion in Visual Studio gefunden, die mir aus einem XML in der Zwischenablage eine Klasse erstellt. So weit so gut. Das XML wird eingelesen. Aber wie kann ich z.B. via "For Each" alle Title auslesen? Und wie die Manipulierten Daten wieder in der gleichen XML Datei speichern. Die XML Datei muss danach genau so wieder ausschauen.
    Oder sollte ich einen ganz anderen Weg gehen? Für Anregungen bin ich sehr dankbar.

    Hier mal meine XMLTestdatei:

    XML-Quellcode

    1. <?xml version="1.0" standalone="yes"?>
    2. <XMLApp>
    3. <Title>
    4. <Name>Name 1</Name>
    5. <Manufacturer>Manufacturer 1</Manufacturer>
    6. <Notes>Notes 1</Notes>
    7. <Category>Category 1</Category>
    8. </Title>
    9. <Title>
    10. <Name>Name 2</Name>
    11. <Manufacturer>Manufacturer 2</Manufacturer>
    12. <Notes>Notes 2</Notes>
    13. <Category>Category 2</Category>
    14. </Title>
    15. <Title>
    16. <Name>Name 3</Name>
    17. <Manufacturer>Manufacturer 3</Manufacturer>
    18. <Notes>Notes 3</Notes>
    19. <Category>Category 3</Category>
    20. </Title>
    21. <Title>
    22. <Name>Name 4</Name>
    23. <Manufacturer>Manufacturer 4</Manufacturer>
    24. <Notes>Notes 4</Notes>
    25. <Category>Category 2</Category>
    26. </Title>
    27. <Title>
    28. <Name>Name 5</Name>
    29. <Manufacturer>Manufacturer 5</Manufacturer>
    30. <Notes>Notes 5</Notes>
    31. <Category>Category 1</Category>
    32. </Title>
    33. <PlatformFolder>
    34. <MediaType>Mediatype 1_1</MediaType>
    35. <Filename>Filename 1_1</Filename>
    36. <Name>Name 1</Name>
    37. </PlatformFolder>
    38. <PlatformFolder>
    39. <MediaType>Mediatype 2_1</MediaType>
    40. <Filename>Filename 2_1</Filename>
    41. <Name>Name 2</Name>
    42. </PlatformFolder>
    43. <PlatformFolder>
    44. <MediaType>Mediatype 2_2</MediaType>
    45. <Filename>Filename 2_2</Filename>
    46. <Name>Name 2</Name>
    47. </PlatformFolder>
    48. <PlatformFolder>
    49. <MediaType>Mediatype 3_1</MediaType>
    50. <Filename>Filename 3_1</Filename>
    51. <Name>Name 3</Name>
    52. </PlatformFolder>
    53. <PlatformFolder>
    54. <MediaType>Mediatype 4_1</MediaType>
    55. <Filename>Filename 4_1</Filename>
    56. <Name>Name 4</Name>
    57. </PlatformFolder>
    58. <PlatformFolder>
    59. <MediaType>Mediatype 5_1</MediaType>
    60. <Filename>Filename 5_1</Filename>
    61. <Name>Name 5</Name>
    62. </PlatformFolder>
    63. <PlatformFolder>
    64. <MediaType>Mediatype 5_2</MediaType>
    65. <Filename>Filename 5_2</Filename>
    66. <Name>Name 5</Name>
    67. </PlatformFolder>
    68. <PlatformCategory>
    69. <Name>Category 1</Name>
    70. <Notes>Category Descrition 3</Notes>
    71. </PlatformCategory>
    72. <PlatformCategory>
    73. <Name>Category 2</Name>
    74. <Notes>Category Descrition 3</Notes>
    75. </PlatformCategory>
    76. <PlatformCategory>
    77. <Name>Category 3</Name>
    78. <Notes>Category Descrition 3</Notes>
    79. </PlatformCategory>
    80. </XMLApp>


    Die generierte Klasse:

    VB.NET-Quellcode

    1. Public Class XMLApp
    3. ' HINWEIS: Für den generierten Code ist möglicherweise mindestens .NET Framework 4.5 oder .NET Core/Standard 2.0 erforderlich.
    4. '''<remarks/>
    5. <System.SerializableAttribute(),
    6. System.ComponentModel.DesignerCategoryAttribute("code"),
    7. System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True),
    8. System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)>
    9. Partial Public Class ApplicationName
    11. Private titleField() As ApplicationNameTitle
    13. Private platformFolderField() As ApplicationNamePlatformFolder
    15. Private platformCategoryField() As ApplicationNamePlatformCategory
    17. '''<remarks/>
    18. <System.Xml.Serialization.XmlElementAttribute("Title")>
    19. Public Property Title() As ApplicationNameTitle()
    20. Get
    21. Return Me.titleField
    22. End Get
    23. Set
    24. Me.titleField = Value
    25. End Set
    26. End Property
    28. '''<remarks/>
    29. <System.Xml.Serialization.XmlElementAttribute("PlatformFolder")>
    30. Public Property PlatformFolder() As ApplicationNamePlatformFolder()
    31. Get
    32. Return Me.platformFolderField
    33. End Get
    34. Set
    35. Me.platformFolderField = Value
    36. End Set
    37. End Property
    39. '''<remarks/>
    40. <System.Xml.Serialization.XmlElementAttribute("PlatformCategory")>
    41. Public Property PlatformCategory() As ApplicationNamePlatformCategory()
    42. Get
    43. Return Me.platformCategoryField
    44. End Get
    45. Set
    46. Me.platformCategoryField = Value
    47. End Set
    48. End Property
    49. End Class
    51. '''<remarks/>
    52. <System.SerializableAttribute(),
    53. System.ComponentModel.DesignerCategoryAttribute("code"),
    54. System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)>
    55. Partial Public Class ApplicationNameTitle
    57. Private nameField As String
    59. Private manufacturerField As String
    61. Private notesField As String
    63. Private categoryField As String
    65. '''<remarks/>
    66. Public Property Name() As String
    67. Get
    68. Return Me.nameField
    69. End Get
    70. Set
    71. Me.nameField = Value
    72. End Set
    73. End Property
    75. '''<remarks/>
    76. Public Property Manufacturer() As String
    77. Get
    78. Return Me.manufacturerField
    79. End Get
    80. Set
    81. Me.manufacturerField = Value
    82. End Set
    83. End Property
    85. '''<remarks/>
    86. Public Property Notes() As String
    87. Get
    88. Return Me.notesField
    89. End Get
    90. Set
    91. Me.notesField = Value
    92. End Set
    93. End Property
    95. '''<remarks/>
    96. Public Property Category() As String
    97. Get
    98. Return Me.categoryField
    99. End Get
    100. Set
    101. Me.categoryField = Value
    102. End Set
    103. End Property
    104. End Class
    106. '''<remarks/>
    107. <System.SerializableAttribute(),
    108. System.ComponentModel.DesignerCategoryAttribute("code"),
    109. System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)>
    110. Partial Public Class ApplicationNamePlatformFolder
    112. Private mediaTypeField As String
    114. Private filenameField As String
    116. Private nameField As String
    118. '''<remarks/>
    119. Public Property MediaType() As String
    120. Get
    121. Return Me.mediaTypeField
    122. End Get
    123. Set
    124. Me.mediaTypeField = Value
    125. End Set
    126. End Property
    128. '''<remarks/>
    129. Public Property Filename() As String
    130. Get
    131. Return Me.filenameField
    132. End Get
    133. Set
    134. Me.filenameField = Value
    135. End Set
    136. End Property
    138. '''<remarks/>
    139. Public Property Name() As String
    140. Get
    141. Return Me.nameField
    142. End Get
    143. Set
    144. Me.nameField = Value
    145. End Set
    146. End Property
    147. End Class
    149. '''<remarks/>
    150. <System.SerializableAttribute(),
    151. System.ComponentModel.DesignerCategoryAttribute("code"),
    152. System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)>
    153. Partial Public Class ApplicationNamePlatformCategory
    155. Private nameField As String
    157. Private notesField As String
    159. '''<remarks/>
    160. Public Property Name() As String
    161. Get
    162. Return Me.nameField
    163. End Get
    164. Set
    165. Me.nameField = Value
    166. End Set
    167. End Property
    169. '''<remarks/>
    170. Public Property Notes() As String
    171. Get
    172. Return Me.notesField
    173. End Get
    174. Set
    175. Me.notesField = Value
    176. End Set
    177. End Property
    178. End Class
    180. End Class


    Und zu guter letzt mein Code:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Xml
    4. Imports System.Environment
    5. Imports XMLTest.XMLTest
    7. Module Program
    8. Sub Main(args As String())
    9. Console.WriteLine("XML_Read_Edit_Save_Test")
    10. Dim strXMLFile As String = "C:\PfadzurXMLDatei\testdata.xml"
    11. Dim objXML As New XMLApp
    12. Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(XMLApp))
    13. Dim file As New System.IO.StreamReader(strXMLFile)
    14. objXML = CType(reader.Deserialize(file), XMLApp)
    15. End Sub
    16. End Module

    Wenn es wirklich nur um das einlesen und verändern der XML-Datei geht, so habe ich früher glaube ich immer die Klasse XmlDocument verwendet. Ich müsste es auch wieder anschauen. Ist schon ewig das ich mit diesen Werkzeugen gearbeitet habe. Hast du es schon damit probiert?
    docs.microsoft.com/en-us/dotnet/api/system.xml.xmldocument


    Freundliche Grüsse

    exc-jdbi

    bahnski schrieb:

    Aber wie kann ich z.B. via "For Each" alle Title auslesen?

    Ich finde, mit Serialisierung bist du auf einem sehr guten Weg.
    probierma:

    VB.NET-Quellcode

    1. for each ttl in objXml.Title
    2. Console.Writeline(ttl.Titel.Name)
    3. next

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

    Hallo zusammen.

    Also wenn ich so etwas habe, dann verwende ich eine List(Of ...)

    Hier ein Auszug, wie es bei mir aussehen würde. Natürlich mit deinem Code nicht getestet, aber als Anregung.

    VB.NET-Quellcode

    1. Private titleListe As New List(Of ApplicationNameTitle)
    3. '''<remarks/>
    4. <XmlArrayItem("Titel", IsNullable:=False)>
    5. Public Property Title() As List(Of ApplicationNameTitle)
    6. Get
    7. Return Me.titleListe
    8. End Get
    9. Set
    10. Me.titleListe = Value
    11. End Set
    12. End Property

    So, habe es selber herausgefunden! Hier meine Lösung:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Xml
    4. Module Program
    5. Dim appPath As String = AppDomain.CurrentDomain.BaseDirectory
    6. Sub Main(args As String())
    7. Console.WriteLine("XML Read Change Write!")
    8. Dim strXMLFile As String = appPath + "testdata.xml"
    9. Dim strXMLOut As String = appPath + "testdataout.xml"
    10. Console.WriteLine("Open XML File:" + strXMLFile)
    11. Dim objXML As New XMLApp.XMLApp
    12. Dim reader As New System.Xml.Serialization.XmlSerializer(GetType(XMLApp.XMLApp))
    13. Dim infile As New System.IO.StreamReader(strXMLFile)
    14. objXML = CType(reader.Deserialize(infile), XMLApp.XMLApp)
    15. infile.Close()
    16. For Each objTitel As XMLApp.XMLAppTitle In objXML.Title
    17. Console.WriteLine(objTitel.Name)
    18. If objTitel.Name = "Name 5" Then
    19. objTitel.Name = "Name 55"
    20. End If
    21. Next
    22. Console.WriteLine("Save Class to XML File:" + strXMLOut)
    23. Dim writer As New System.Xml.Serialization.XmlSerializer(GetType(XMLApp.XMLApp))
    24. Dim outFile As New System.IO.StreamWriter(strXMLOut)
    25. writer.Serialize(outFile, objXML)
    26. outFile.Close()
    27. End Sub
    28. End Module

    Habe ein Testprojekt beigefügt.
    Dateien

    • XMLTest2.zip

      (169,92 kB, 84 mal heruntergeladen, zuletzt: )

Facebook
Telefonspende