verschachtelte XML in dictionary einlesen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von freelancer.

    verschachtelte XML in dictionary einlesen

    Ich schreibe erfolgreich eine XML Datei mit diesem Code weg:

    VB.NET-Quellcode

    1. Public Sub SaveNestedXmlFile(ByVal file As String, ByVal key1Name As String, ByVal key2Name As String, ByVal attributeName As String, ByVal dictionaryName As Dictionary(Of String, Dictionary(Of String, String)))
    3. Dim xw As XmlTextWriter = New XmlTextWriter(file, New UnicodeEncoding)
    5. xw.WriteStartDocument()
    7. xw.WriteStartElement(key1Name)
    10. Dim x As Integer = 0
    12. For Each pair In dictionaryName
    14. xw.WriteStartElement("id" & pair.Key)
    16. For Each subpair In pair.Value
    18. Dim k2 As String = subpair.Key
    20. Dim v2 As String = subpair.Value
    22. xw.WriteStartElement(attributeName)
    24. xw.WriteAttributeString(k2, v2)
    26. xw.WriteEndElement()
    28. Next
    30. xw.WriteEndElement()
    32. x = x + 1
    34. Next
    36. xw.WriteEndElement()
    38. xw.Close()
    40. LogInfo("saved nested XML file: " & file)
    42. End Sub


    und möchte die XML nun wieder in ein dictionary im dictionary einlesen:

    VB.NET-Quellcode

    1. Public Sub ReadNestedXmlFile(ByVal file As String, ByVal dictionaryName As Dictionary(Of String, Dictionary(Of String, String)))
    3. ' Lesen einer "verschachtelten" XML Datei
    6. If Not My.Computer.FileSystem.FileExists(file) Then
    8. MsgBox("Die angebenen Datei '" & file & "' konnte nicht gefunden werden")
    10. Exit Sub
    12. End If
    15. Dim xr As XmlReader = New XmlTextReader(file)
    18. Do While xr.Read()
    20. If xr.NodeType = XmlNodeType.Element Then
    22. If xr.AttributeCount > 0 Then
    24. Do While xr.MoveToNextAttribute()
    26. dictionaryName(xr.Name) = xr.Value
    28. Loop
    30. End If
    32. End If
    34. Loop
    37. xr.Close()
    39. LogInfo("imported XML file: " & ExtractFilename(file))
    41. End Sub



    In der Loop, zwischen Zeile 18 und 34 bekommen ich die Zuweisung zum dictionary im dictionary nicht hin. Die hier aufgeführte Loop funktioniert einwandfrei für ein "einfaches" dictionary. Kann mir jemand auf die Sprünge helfen?

    Ja, ein

    Quellcode

    1. Dictionary.Add
    muss auf jeden Fall gemacht werden. Sicherlich in Zeile 21. Die XML Datei sieht so aus:

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-16"?><Participants><id1111><Attribute Lastname="1" /><Attribute Firstname="11" /><Attribute Club="111" /><Attribute Id="1111" /><Attribute Ranking="" /><Attribute PerformanceClass="11111" /><Attribute Birthday="111111" /><Attribute Email="1111111" /><Attribute State="NTV - Niedersächsischer Tennisverband e.V." /><Attribute Mobil="" /><Attribute Phone="" /><Attribute Street="" /><Attribute ZipCode="" /><Attribute Place="" /><Attribute Remarks="" /></id1111><id2222><Attribute Lastname="2" /><Attribute Firstname="22" /><Attribute Club="222" /><Attribute Id="2222" /><Attribute Ranking="" /><Attribute PerformanceClass="22222" /><Attribute Birthday="222222" /><Attribute Email="2222222" /><Attribute State="NTV - Niedersächsischer Tennisverband e.V." /><Attribute Mobil="" /><Attribute Phone="" /><Attribute Street="" /><Attribute ZipCode="" /><Attribute Place="" /><Attribute Remarks="" /></id2222>


    Ich habe beim XML Reader nicht verstanden wofür

    Quellcode

    1. xr.NodeType = XmlNodeType.Element
    stehen bzw. wie ich mir ausgeben lassen kann, welches XML Element gerade abgearbeitet wird. Dann brauche ich ja sicherlich noch eine zweite Schleife für die darunter liegenden Elemente ......

    @freelancer zur XML-Serialisierung und -Deserialisierung eines Dictionaries gugst Du hier (class SerializableDictionary).
    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!

    Ach Leute, so viel neue Sachen .......

    Ich komme mit dem lesen gar nicht nach und fühle mich auch noch ziemlich unsicher. Aber das wird schon noch ;)

    Ich habe mir nun mit diesem Code geholfen:

    VB.NET-Quellcode

    1. Public Sub ReadNestedXmlFile(ByVal file As String, ByVal dictionaryName As Dictionary(Of String, Dictionary(Of String, String)))
    3. ' Lesen einer "verschachtelten" XML Datei
    6. Dim key1 As String ' key für dictionary
    9. If Not My.Computer.FileSystem.FileExists(file) Then
    11. MsgBox("Die angebenen Datei '" & file & "' konnte nicht gefunden werden")
    13. Exit Sub
    15. End If
    18. Dim xr As XmlReader = New XmlTextReader(file)
    21. Do While xr.Read()
    23. If xr.NodeType = XmlNodeType.Element Then
    25. If Not (xr.Name = "Participants" Or xr.Name = "Attribute") And xr.NodeType = 1 Then
    27. key1 = xr.Name
    29. dictionaryName.Add(key1, New Dictionary(Of String, String)) ' alle Teilnehmerdaten mit fortlaufender Nummer abspeichern
    31. End If
    33. If xr.AttributeCount > 0 Then
    35. Do While xr.MoveToNextAttribute()
    37. dictionaryName(key1).Add(xr.Name, xr.Value)
    39. Loop
    41. End If
    43. End If
    45. Loop
    47. xr.Close()
    50. LogInfo("imported XML file: " & ExtractFilename(file))
    52. End Sub


    Wirklich uncool finde ich die Abfrage in Zeile If Not (xr.Name = "Participants" Or xr.Name = "Attribute") And xr.NodeType = 1 Then. Da muss ich natürlich noch stark drüber nachdenken.

    Aber ..... ich habe das dictionary gefüllt! Nur, schön und sauber programmieren ist etwas anderes!!!!!!

Facebook
Telefonspende