XML Serialization

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

    XML Serialization

    Hallo,

    habe ein Problem mit meiner XML Serialization... Momentan wird meine XML jedesmal überschrieben.

    Dim serializer As New XmlSerializer(GetType(Log))

    Dim writer As XmlTextWriter = New XmlTextWriter("path", Encoding.Unicode)
    serializer.Serialize(writer, LogForm)
    writer.Close()

    Wie bekomme ich es hin, das jedesmal ein neuer Eintrag angefügt wird?


    LG FG

    Hallo,

    wenn du die XML-Datei aufbereiten möchtest damit diese von einem anderen Programm weiterverarbeitet werden kann, solltest du dir eventuell LINQtoXML ansehen, weil das eigentlich alles bieten sollte was du hierfür benötigst.

    Wenn du allerdings die Daten für dieses eine Programm serialisieren willst bzw. für eines deiner anderen Programme, dann solltest du dir, die entsprechenden Objekte anlegen und diese beim Start durch Deserialisierung in den Speicher laden und beim Beenden wieder zurück in die Datei serialisieren.

    Da sicher mehrere dieses Problem haben, stelle ich hier mal einen Beispielcode zur Verfügung:

    Achtung: Nicht zu empfehlen für große Datenmengen, da mit dieser Methode jedes mal, alle Daten in den Arbeitsspeicher geladen werden müssen.
    Wichtig: Diese Methode dient vor allem zum Speichern von Objekten die zur Laufzeit hinuzugefügt werden, um diese nach einem Neustart weiter verwenden zu können!

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Wird zur Serialisierung benötigt
    2. Imports System.Xml.Serialization
    3. 'Wird zum Öffnen der Datei benötigt
    4. Imports System.IO
    6. ''' <summary>
    7. ''' Erstellt eine Liste vom Objekt "Person". Durch das Attribut "Serializable()" kann die Liste serialisiert werden.
    8. ''' </summary>
    9. ''' <remarks></remarks>
    10. <Serializable()> _
    11. Public Class personen
    12. Inherits List(Of person)
    13. End Class
    15. ''' <summary>
    16. ''' Das Objekt "Person" enthält alle Angaben zu einer Person.
    17. ''' </summary>
    18. ''' <remarks></remarks>
    19. <Serializable()> _
    20. Public Class person
    21. Public Property ID As Integer
    22. Public Property Name As String
    23. Public Property Alter As Integer
    25. Public Sub New()
    26. ID = 0
    27. Name = String.Empty
    28. Alter = 0
    29. End Sub
    31. 'Definiert was beim Neuerstellen des Objektes angegeben werden muss
    32. Public Sub New(ByVal sName As String, ByVal iAlter As Integer, ByVal iID As Integer)
    33. Name = sName
    34. Alter = iAlter
    35. ID = iID
    36. End Sub
    37. End Class
    41. Public Class Form1
    42. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    44. 'Zuerst erstellen wir eine Objekt vom Typ "Personen", welches 3 Objekte vom Typ "Person" enthält
    45. Dim personenliste As New personen From {New person("Franz", 20, 1),
    46. New person("Markus", 23, 2),
    47. New person("Maria", 18, 3)}
    49. 'Nun lassen wir uns die Anzahl an Personen in der Liste ausgeben.
    50. MsgBox(personenliste.Count)
    54. 'Hier wird das Objekt "Personenliste" und alle darin enthaltenen Objekte in eine Datei serialisiert.
    55. XMLSerialize(Of personen)(personenliste, "c:\test.xml")
    57. 'Nun löschen wir die Liste und überprüfen dies mit der Ausgabe der Anzahl an Objekten, die darin enthalten ist.
    58. personenliste.Clear()
    59. MsgBox(personenliste.Count)
    61. 'Hier laden wir die Daten wieder aus der Datei, zurück in das Objekt (Deserialisieren) und lassen uns zur Überprüfung wieder die Anzahl ausgeben.
    62. personenliste = XMLDeserialize(Of personen)("c:\test.xml")
    63. MsgBox(personenliste.Count)
    65. 'Beendet die Ausführung
    66. End
    67. End Sub
    69. ''' <summary>
    70. ''' Serialisiert ein Objekt in eine XML-Datei
    71. ''' </summary>
    72. ''' <typeparam name="T">Gibt den TYP des Objektes an</typeparam>
    73. ''' <param name="Obj">Das zu serialisierende Objekt</param>
    74. ''' <param name="FileName">Die Datei in der das Objekt gespeichert werden soll</param>
    75. ''' <remarks></remarks>
    76. Public Sub XMLSerialize(Of T)(ByVal Obj As Object, ByVal FileName As String)
    77. Dim XML As New XmlSerializer(GetType(T))
    78. Dim FS As New FileStream(FileName, FileMode.Create)
    79. XML.Serialize(FS, Obj)
    80. FS.Close()
    81. End Sub
    83. ''' <summary>
    84. ''' Deserialisiert ein Objekt aus einer XML-Datei
    85. ''' </summary>
    86. ''' <typeparam name="T">Gibt den TYP des Objektes an</typeparam>
    87. ''' <param name="FileName">Die Datei aus der das Objekt geladen werden soll</param>
    88. ''' <returns>Gibt das zu deserialisierende Objekt zurück</returns>
    89. ''' <remarks></remarks>
    90. Public Function XMLDeserialize(Of T)(ByVal FileName As String) As T
    91. Dim XML As New XmlSerializer(GetType(T))
    92. Dim fs As New FileStream(FileName, FileMode.Open)
    93. Dim obj As T
    94. obj = XML.Deserialize(fs)
    95. fs.Close()
    96. Return obj
    97. End Function
    98. End Class


    Ich hoffe ich konnte weiterhelfen

    Mfg
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

Facebook