Problem beim serialisieren (XML) eines Objekts...

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

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Rebecca82.

    Jo - suboptimale Benamung gebiert meist viel Wirrsal ;)

    Was du UserData nennst ist wohl eher ein Contact - dann nenne ihn auch so. Und ein Contact darf keine Liste weiterer Contacts enthalten. Ein Contact ist ein Contact und das ist seine Verantwortung (Concern) und gut ist.
    AppUser kann namentlich so bleiben, obwohl einfach User ja wohl auch reichen würde.
    Und AppUser enthält eine Liste von Contacts.
    Und enthält keine Liste weiterer AppUser.
    Und eine - hier noch garnet eingeführte, noch übergeordnete Klasse enthält eine Liste von AppUser. Also nochmal: Die Liste der AppUser darf nicht inne AppUser selbst drinne sein!

    Es wäre glaub viel einfacher für dich gewesen, hättest du dich gleich mit Datasetse beschäftigt - wieviele Tage murkste damit nu schon rum?
    Da hätte es ganz klar eine Tabelle User gegeben, und eine ihr untergeordnete Tabelle Contact und done und kein Missverständnis möglich.

    Das Dataset wäre dann die og. allen übergeordnete Klasse, die die Liste der User hält, und jeder User hat Verbindung zu allen seinen Contacts (nur zu seinen).

    ErfinderDesRades schrieb:

    Es wäre glaub viel einfacher für dich gewesen, hättest du dich gleich mit Datasetse beschäftigt - wieviele Tage murkste damit nu schon rum?
    Da hätte es ganz klar eine Tabelle User gegeben, und eine ihr untergeordnete Tabelle Contact und done und kein Missverständnis möglich.

    Das Dataset wäre dann die og. allen übergeordnete Klasse, die die Liste der User hält, und jeder User hat Verbindung zu allen seinen Contacts (nur zu seinen).

    Du hast Recht. Ich werde mal beginnen mich mit Datasets auseinander zu setzen. Das ist wohl wirklich am sinnvollsten für mein Vorhaben.
    Allerdings habe ich mich heute morgen nochmal hingesetzt und folgendes ausprobiert (schnell zum testen):

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Xml.Serialization
    4. Public Class Form1
    6. Public Class User
    7. Public Username As String
    8. Public Password As String
    9. Public UserID As Integer
    10. Public Bankkonten As New List(Of Konto)
    11. Public Sub AddKonto(Bankkonto As Konto)
    12. Bankkonten.Add(Bankkonto)
    13. End Sub
    14. Public Sub DeleteBankkonto(Bankkonto As Konto)
    15. Dim Index As Integer = Bankkonten.IndexOf(Bankkonto)
    16. If Not Index = -1 Then
    17. Bankkonten.RemoveAt(Index)
    18. End If
    19. End Sub
    20. End Class
    22. Public Class Konto
    23. Public Kontonummer As Integer
    24. Public Bankleitzahl As Integer
    25. Public Bank As String
    26. End Class
    28. 'Benutzer speichern und laden
    29. Public Class SaveAndLoadManagement
    30. Shared Sub SaveXML(ByVal ApplicationUsers As List(Of User), ByVal Filename As String)
    31. Dim XML As New XmlSerializer(GetType(List(Of User)))
    32. Try
    33. Using FStream As New FileStream(Filename, FileMode.Create, FileAccess.Write)
    34. Try
    35. XML.Serialize(FStream, ApplicationUsers)
    36. FStream.Close()
    37. Catch ex As Exception
    38. MessageBox.Show(ex.Message,
    39. "Fehler beim Schreiben der Datei!",
    40. MessageBoxButtons.OK,
    41. MessageBoxIcon.Error)
    42. End Try
    43. End Using
    44. Catch ex As Exception
    45. MessageBox.Show(ex.Message,
    46. "Fehler beim Erzeugen/Öffnen der Datei!",
    47. MessageBoxButtons.OK,
    48. MessageBoxIcon.Error)
    49. End Try
    50. End Sub
    52. Shared Function LoadXML(ByVal Filename As String) As List(Of User)
    53. Dim XML As New XmlSerializer(GetType(List(Of User)))
    54. Dim ReturnValue As List(Of User)
    55. Try
    56. Using FStream As New FileStream(Filename, FileMode.Open, FileAccess.Read)
    57. Try
    58. ReturnValue = CType(XML.Deserialize(FStream), List(Of User))
    59. FStream.Close()
    60. Return ReturnValue
    61. Catch ex As Exception
    62. MessageBox.Show("Benutzer-Datenbank ist womöglich beschädigt!" & vbNewLine &
    63. "Es konnten keine Benutzer geladen werden!" & vbNewLine &
    64. "Es wird eine neue Benutzer-Datenbank erstellt.",
    65. "Fehler in der Benutzer-Datenbank!",
    66. MessageBoxButtons.OK,
    67. MessageBoxIcon.Error)
    68. FStream.Close()
    69. File.Delete(Filename)
    70. End Try
    71. End Using
    72. Catch ex As Exception
    73. MessageBox.Show(ex.Message,
    74. "Fehler beim Öffnen der Datei!",
    75. MessageBoxButtons.OK,
    76. MessageBoxIcon.Error)
    77. End Try
    78. Return Nothing
    79. End Function
    80. End Class
    82. Const Filename As String = "Benutzer.data"
    83. Private Benutzerliste As New List(Of User)
    84. Private Benutzer As New User
    85. Private Bankkonto As New Konto
    87. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    88. If File.Exists(Filename) Then
    89. Benutzerliste = SaveAndLoadManagement.LoadXML(Filename)
    90. End If
    91. 'Benutzer erstellen
    92. With Benutzer
    93. .Username = "Rebecca"
    94. .Password = "7nB%fG7z$X"
    95. .UserID = 1
    96. End With
    97. 'Benutzer in Liste speichern
    98. Benutzerliste.Add(Benutzer)
    99. 'Speichern
    100. SaveAndLoadManagement.SaveXML(Benutzerliste, Filename)
    101. End Sub
    103. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    104. If File.Exists(Filename) Then
    105. Benutzerliste = SaveAndLoadManagement.LoadXML(Filename)
    106. With Bankkonto
    107. .Kontonummer = 1234567
    108. .Bankleitzahl = 12345678
    109. .Bank = "Musterbank"
    110. End With
    111. 'Konto hinzufügen
    112. For Each Benutzer As User In Benutzerliste
    113. If Benutzer.Username = "Rebecca" Then
    114. Benutzer.AddKonto(Bankkonto)
    115. End If
    116. Next
    117. 'Speichern
    118. SaveAndLoadManagement.SaveXML(Benutzerliste, Filename)
    119. Else
    120. MessageBox.Show("Es wurden noch keine Benutzer angelegt!")
    121. End If
    122. End Sub
    123. End Class


    Das funktioniert auch und die XML-Datei sieht genau so aus wie ich will. :)

    XML-Quellcode

    1. <?xml version="1.0"?>
    2. <ArrayOfUser xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    3. <User>
    4. <Username>Rebecca</Username>
    5. <Password>7nB%fG7z$X</Password>
    6. <UserID>1</UserID>
    7. <Bankkonten>
    8. <Konto>
    9. <Kontonummer>1234567</Kontonummer>
    10. <Bankleitzahl>12345678</Bankleitzahl>
    11. <Bank>Musterbank</Bank>
    12. </Konto>
    13. </Bankkonten>
    14. </User>
    15. </ArrayOfUser>


    @ErfinderDesRades: Ich habe es dementsprechend geändert. Also so wie du es vorgeschlagen hast. :)

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

    schlecht benamt und überkompliziert.

    Data ist in Wirklichkeit ein Konto - das soll auch so heissen.
    Und die Property User.Banken muss User.Konten heißen.
    Und die Methoden AddBank(), RemoveBank() sind folglich auch falsch benamt (es sind Konten!) und v.a. überflüssig, denn eine einfache List(Of T) hat bereits Add/Remove. So kannst du zB so korrigieren und reduzieren:

    VB.NET-Quellcode

    1. Public Class User
    2. Public Username As String
    3. Public Password As String
    4. Public UserID As Integer
    5. Public Konten As New List(Of Konto)
    6. End Class
    7. Public Class Konto
    8. Public Kontonummer As Integer
    9. Public Bankleitzahl As Integer
    10. Public Bank As String
    11. End Class
    Und lass unnütze Kommentare weg, wie etwa dass User die Benutzer-Klasse sei. So bischen englisch darf man dem Leser zumuten.

    UserManagement ist komplett unnütz - eine List(Of User) tuts ebenso.

Facebook
Telefonspende