Speichern und Öffnen einer List(Of T) mit Sub List (Of T)

  • Allgemein

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ViktorS.

    Speichern und Öffnen einer List(Of T) mit Sub List (Of T)

    Hallo, ich einen einen Quellcode der ungefehr so aussieht.
    Quellcode:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Property lList As New List(Of List)
    3. Class List
    4. Public Property Name As String
    5. Public Property User As New List(Of User)
    6. End Class
    7. Class User
    8. Public Property Name As String
    9. Public Property Status As String
    10. End Class
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. For i As Integer = 0 To 10
    13. Dim lst As New List
    14. For u As Integer = 0 To 25
    15. Dim usr As New User
    16. usr.Name = i
    17. usr.Status = u
    18. lst.User.Add(usr)
    19. Next
    20. lst.Name = i
    21. lList.Add(lst)
    22. Next
    23. End Sub
    24. End Class



    Ich habe eine Liste von einer Klasse mit eigenschaften. Eine von diesen Eigenschaften ist eine neue Liste von wiederrum eine rneuen Klasse mit eigenschaften.
    Ich möchte jetzt die lKlasse(im Quellcode) speichern. Dabei sollen alle List Klassen in dieser Liste und zu jeder ListKlasse auch noch die Liste der User Klassen. Die Nebeneigenschaften sollen dabei auch gespeichert werden. Wie kann ich das ambesten machen und mit welcher Speicherungsmethode?

    Kann mir da jemand Tipps geben? ICh persönlich würde sagen mit der Xml Wariente, ich kenne mich mi Xml aber nicht aus.

    ViktorS schrieb:

    Kann mir da jemand Tipps geben? ICh persönlich würde sagen mit der Xml Wariente, ich kenne mich mi Xml aber nicht aus.

    Denke auch der XML-Serializer ist das beste , wenn Du Dir nicht ein eigenes Format stricken möchtest. Nimm folgende Klasse, speichere sie unter Serializer.vb ab und binde sie in Dein Projekt ein:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. '############################################################################################
    2. '######## CLASS SERIALIZER ######### -----
    3. '############################################################################################
    4. '---
    5. '--- This class offers serialization services
    6. '--- binary with optional compression
    7. '--- XML
    8. '--- relative filenames will be accepted
    9. '--- if filename does not exist it will be created
    11. Imports System.Runtime.Serialization.Formatters.Binary
    13. Imports System.IO
    14. Imports System.IO.Compression
    16. Public Class Serializer
    17. ' source: http://www.vbarchiv.net/tipps/details.php?id=1749
    18. ' see also article about generics at: http://www.devproconnections.com/article/net-framework2/net-generics.aspx
    19. '############################################################
    20. '### METHODS #####
    21. '############################################################
    23. '-------------------------------
    24. '-- BinarySerialize ----
    25. '-------------------------------
    26. Public Shared Sub BinarySerialize(Of T)(ByVal fileName As String, ByVal instance As T, ByVal compression As Boolean)
    27. Dim fullPath As String
    28. Try
    29. fullPath = System.IO.Path.GetFullPath(fileName)
    30. ' create directory
    31. If Not Directory.Exists(Path.GetDirectoryName(fullPath)) Then
    32. Directory.CreateDirectory(Path.GetDirectoryName(fullPath))
    33. End If
    34. Dim fs As Stream = New FileStream(fullPath, FileMode.OpenOrCreate)
    35. Dim bf As New BinaryFormatter
    36. ' use optional compression
    37. If compression Then fs = New GZipStream(fs, CompressionMode.Compress)
    39. bf.Serialize(fs, instance)
    40. fs.Close()
    41. Catch ex As Exception
    42. MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
    43. End Try
    44. End Sub
    46. Public Shared Sub BinarySerialize(Of T)(ByVal fileName As String, ByVal instance As T)
    47. BinarySerialize(fileName, instance, False)
    48. End Sub
    51. '-------------------------------
    52. '-- BinaryDeserialize ----
    53. '-------------------------------
    54. Public Shared Function BinaryDeserialize(Of T)(ByVal fileName As String, ByVal defaultInstance As T, ByVal compression As Boolean) As T
    55. Dim fullPath As String
    56. Try
    57. fullPath = System.IO.Path.GetFullPath(fileName)
    58. ' create file if not exist with defaultInstance
    59. If Not File.Exists(fullPath) Then
    60. BinarySerialize(fileName, defaultInstance, compression)
    61. Return defaultInstance
    62. End If
    63. Dim fs As Stream = New FileStream(fileName, FileMode.OpenOrCreate)
    64. Dim bf As New BinaryFormatter
    65. If compression Then fs = New GZipStream(fs, CompressionMode.Decompress)
    67. BinaryDeserialize = CType(bf.Deserialize(fs), T)
    68. fs.Close()
    69. Catch ex As Exception
    70. MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
    71. End Try
    72. End Function
    74. Public Shared Function BinaryDeserialize(Of T)(ByVal fileName As String, ByVal defaultInstance As T) As T
    75. Return BinaryDeserialize(Of T)(fileName, defaultInstance, False)
    76. End Function
    78. Public Shared Function BinaryDeserialize(Of T As New)(ByVal fileName As String, ByVal compression As Boolean) As T
    79. Return BinaryDeserialize(Of T)(fileName, New T, compression)
    80. End Function
    82. Public Shared Function BinaryDeserialize(Of T As New)(ByVal fileName As String) As T
    83. Return BinaryDeserialize(Of T)(fileName, New T)
    84. End Function
    86. '-------------------------------
    87. '-- XMLSerialize ----
    88. '-------------------------------
    89. Public Shared Sub XMLSerialize(Of T)(ByVal fileName As String, ByVal instance As T)
    90. Dim fullPath As String
    91. Try
    92. fullPath = System.IO.Path.GetFullPath(fileName)
    93. ' create directory
    94. If Not Directory.Exists(Path.GetDirectoryName(fullPath)) Then
    95. Directory.CreateDirectory(Path.GetDirectoryName(fullPath))
    96. End If
    97. ' create serializer and stream
    98. Dim xs As New System.Xml.Serialization.XmlSerializer(GetType(T))
    99. Dim fs As Stream = New FileStream(fullPath, FileMode.OpenOrCreate)
    100. ' serialize
    101. xs.Serialize(fs, instance)
    102. fs.Close()
    103. Catch ex As Exception
    104. MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
    105. End Try
    106. End Sub
    108. '-------------------------------
    109. '-- XMLDeserialize ----
    110. '-------------------------------
    111. Public Shared Function XMLDeserialize(Of T)(ByVal fileName As String, ByVal defaultInstance As T) As T
    112. Dim fullPath As String
    113. Try
    114. fullPath = System.IO.Path.GetFullPath(fileName)
    115. ' create file if not exist with defaultInstance
    116. If Not File.Exists(fullPath) Then
    117. XMLSerialize(fileName, defaultInstance)
    118. Return defaultInstance
    119. End If
    120. ' create serializer and stream
    121. Dim fs As Stream = New FileStream(fileName, FileMode.OpenOrCreate)
    122. Dim xs As New System.Xml.Serialization.XmlSerializer(GetType(T))
    123. ' deserialize
    124. XMLDeserialize = CType(xs.Deserialize(fs), T)
    125. fs.Close()
    126. Catch ex As Exception
    127. MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
    128. End Try
    129. End Function
    131. End Class


    Dein Beispielcode kannn damit so abspeichern:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict Off
    2. Public Class Form1
    3. Public Property lList As New List(Of List)
    4. Class List
    5. Public Property Name As String
    6. Public Property User As New List(Of User)
    7. End Class
    8. Class User
    9. Public Property Name As String
    10. Public Property Status As String
    11. End Class
    12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. For i As Integer = 0 To 10
    14. Dim lst As New List
    15. For u As Integer = 0 To 25
    16. Dim usr As New User
    17. usr.Name = i
    18. usr.Status = u
    19. lst.User.Add(usr)
    20. Next
    21. lst.Name = i
    22. lList.Add(lst)
    23. Next
    24. Serializer.XMLSerialize("lList.xml", lList)
    25. End Sub
    26. End Class

    A, perfekt :)

    Ich finde nur nicht heraus, wie man das Gespeicherte beim Öffnen wieder einlesen kann.
    Ich habe diesen Code, aber die MsgBox sagt mir für den Wert 0.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Property lList As New List(Of List)
    2. Class List
    3. Public Property Name As String
    4. Public Property User As New List(Of User)
    5. End Class
    6. Class User
    7. Public Property Name As String
    8. Public Property Status As String
    9. End Class
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. If File.Exists("lList.xml") Then
    12. Serializer.XMLDeserialize("lList.xml", lList)
    13. MsgBox(lList.Count)
    14. Else
    15. For i As Integer = 0 To 10
    16. Dim lst As New List
    17. For u As Integer = 0 To 25
    18. Dim usr As New User
    19. usr.Name = i
    20. usr.Status = u
    21. lst.User.Add(usr)
    22. Next
    23. lst.Name = i
    24. lList.Add(lst)
    25. Next
    26. Serializer.XMLSerialize("lList.xml", lList)
    27. End If
    28. End Sub

    ViktorS schrieb:

    Ich finde nur nicht heraus, wie man das Gespeicherte beim Öffnen wieder einlesen kann.

    Der Deserializer ist als Funktion definiert, gibt also die Liste wieder zurück wenn das XML-File existiert. Also müsste Dein Code lauten:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Property lList As New List(Of List)
    2. Class List
    3. Public Property Name As String
    4. Public Property User As New List(Of User)
    5. End Class
    6. Class User
    7. Public Property Name As String
    8. Public Property Status As String
    9. End Class
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. If File.Exists("lList.xml") Then
    12. lList = Serializer.XMLDeserialize("lList.xml", New List(Of List))
    13. MsgBox(lList.Count)
    14. Else
    15. For i As Integer = 0 To 10
    16. Dim lst As New List
    17. For u As Integer = 0 To 25
    18. Dim usr As New User
    19. usr.Name = i
    20. usr.Status = u
    21. lst.User.Add(usr)
    22. Next
    23. lst.Name = i
    24. lList.Add(lst)
    25. Next
    26. Serializer.XMLSerialize("lList.xml", lList)
    27. End If
    28. End Sub


    hoffe ich jedenfalls :) ....

    Das 2.Argument des Deserializers ist ein Voreinstellungs-Wert den er zurückgeben soll wenn er die datei nicht findet.

    Die Darstellung Deines XML-Inhalts kannst Du noch mit den Attributen <XMLAttribute> und <XMLElement> vor Deinen ElementenNamen verändern, aber das musst Du bitte selber nachlesen.

Facebook