XML einen 2. Knoten erstellen

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

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

    XML einen 2. Knoten erstellen

    Hallo,

    ich habe ein Problem mit dem erstellen eines 2. Knoten in einer XML Struktur.
    Kann mir jemand einen Tipp geben?

    Bis zum ersten Knoten klappt es

    So soll das XML Ergebniss aussehen:


    XML-Quellcode

    1. <?xml version="1.0" encoding="iso-8859-1"?>
    2. <Root>
    3. <knoten1>
    4. <Element1>Wert1</Element1>
    5. <Element2>Wert2</Element2>
    6. <Element3>Wert3</Element3>
    7. </knoten1>
    8. <knoten2>
    9. <Element4>Wert4</Element4>
    10. <Element5>Wert5</Element5>
    11. <Element6>Wert6</Element6>
    12. </knoten2>
    13. </Root>



    VB.NET-Quellcode

    1. Imports System.Xml

    VB.NET-Quellcode

    1. Dim XmlDoc As New XmlDocument
    3. 'Zeile 1
    4. Dim XmlDeclaration As XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "iso-8859-1", Nothing)
    6. 'Root erstellen
    7. Dim RootNode As XmlElement = XmlDoc.CreateElement("Root")
    8. XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
    9. XmlDoc.AppendChild(RootNode)
    11. '1.knoten erstellen
    12. Dim ParentNode As XmlElement = XmlDoc.CreateElement("knoten1")
    16. XmlDoc.DocumentElement.PrependChild(ParentNode)
    18. 'Element erstellen
    19. Dim Element1 As XmlElement = XmlDoc.CreateElement("Element1")
    20. Dim Element2 As XmlElement = XmlDoc.CreateElement("Element2")
    21. Dim Element3 As XmlElement = XmlDoc.CreateElement("Element3")
    23. 'erstellen element text
    24. Dim Element1_Wert As XmlText = XmlDoc.CreateTextNode("Wert1")
    25. Dim Element2_Wert As XmlText = XmlDoc.CreateTextNode("Wert2")
    26. Dim Element3_Wert As XmlText = XmlDoc.CreateTextNode("Wert3")
    28. 'zueisen
    29. ParentNode.AppendChild(Element1)
    30. ParentNode.AppendChild(Element2)
    31. ParentNode.AppendChild(Element3)
    33. 'Schreiben
    34. Element1.AppendChild(Element1_Wert)
    35. Element2.AppendChild(Element2_Wert)
    36. Element3.AppendChild(Element3_Wert)
    38. 'bisher läuft alles
    41. 'Ab Hier hab Ich das Problem
    42. XmlDoc.InsertAfter(ParentNode, RootNode)
    44. '2.knoten erstellen
    45. Dim ParentNode2 As XmlElement = XmlDoc.CreateElement("knoten2")
    47. XmlDoc.DocumentElement.PrependChild(ParentNode2)
    49. 'Element erstellen
    50. Dim Element4 As XmlElement = XmlDoc.CreateElement("Element4")
    51. Dim Element5 As XmlElement = XmlDoc.CreateElement("Element5")
    52. Dim Element6 As XmlElement = XmlDoc.CreateElement("Element6")
    54. 'erstellen element text
    55. Dim Element4_Wert As XmlText = XmlDoc.CreateTextNode("Wert4")
    56. Dim Element5_Wert As XmlText = XmlDoc.CreateTextNode("Wert5")
    57. Dim Element6_Wert As XmlText = XmlDoc.CreateTextNode("Wert6")
    59. ParentNode2.AppendChild(Element4)
    60. ParentNode2.AppendChild(Element5)
    61. ParentNode2.AppendChild(Element6)
    63. 'Schreiben
    64. Element4.AppendChild(Element4_Wert)
    65. Element2.AppendChild(Element5_Wert)
    66. Element6.AppendChild(Element6_Wert)
    68. 'Speichern
    69. XmlDoc.Save("c:\temp\demo.xml")

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „jnpanzer“ ()

    Wenn man davon absieht, dass da wohl am Ende ein InsertAfter oder InsertBefore oder AppendChild oder PrependChild oder was in der Art für ParentNode2 fehlt, ist mir die Reihenfolge etwas suspekt. Da wird ParentNode in Zeile#19 dem Document hinzugefügt und danach geändert.* Das hat doch gar keinen Einfluss auf das Document mehr. Außerdem ist der Code nicht lauffähig. Einmal weil Imports und viele der Anweisungen nicht in einem Scope stehen können, zum anderen, weil bei mir mit diesem Code dann schon eine Exception kommt, siehe Anhang.

    ##########

    * ok, das funktioniert doch
    Bilder

    • Error.png

      67,02 kB, 735×523, 166 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    Das Imports habe ich natürlich am Anfang geschrieben.
    Danke für den Tipp leider komme ich nicht richtig weiter.
    Ich mache das erste mal mit XML und VB.NET

    Ich hänge an dieser Zeile ich versteh den Fehler nicht so ganz.

    VB.NET-Quellcode

    1. XmlDoc.InsertAfter(ParentNode, RootNode)


    Ich muss doch sagen wohin er das anängen soill oder ?



    VB.NET-Quellcode

    1. Dim XmlDoc As New XmlDocument
    3. 'Zeile 1
    4. Dim XmlDeclaration As XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "iso-8859-1", Nothing)
    6. 'Root erstellen
    7. Dim RootNode As XmlElement = XmlDoc.CreateElement("Root")
    8. XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
    9. XmlDoc.AppendChild(RootNode)
    11. '1.knoten erstellen
    12. Dim ParentNode As XmlElement = XmlDoc.CreateElement("knoten1")
    14. 'Set attribute name and value!
    15. ' ParentNode.SetAttribute("AttributName", "AttributWert")
    17. XmlDoc.DocumentElement.PrependChild(ParentNode)
    19. 'Element erstellen
    20. Dim Element1 As XmlElement = XmlDoc.CreateElement("Element1")
    21. Dim Element2 As XmlElement = XmlDoc.CreateElement("Element2")
    22. Dim Element3 As XmlElement = XmlDoc.CreateElement("Element3")
    24. 'erstellen element text
    25. Dim Element1_Wert As XmlText = XmlDoc.CreateTextNode("Wert1")
    26. Dim Element2_Wert As XmlText = XmlDoc.CreateTextNode("Wert2")
    27. Dim Element3_Wert As XmlText = XmlDoc.CreateTextNode("Wert3")
    29. 'zueisen
    30. ParentNode.AppendChild(Element1)
    31. ParentNode.AppendChild(Element2)
    32. ParentNode.AppendChild(Element3)
    34. 'Schreiben
    35. Element1.AppendChild(Element1_Wert)
    36. Element2.AppendChild(Element2_Wert)
    37. Element3.AppendChild(Element3_Wert)
    39. 'bisher läuft alles
    41. '2.knoten erstellen
    42. Dim ParentNode2 As XmlElement = XmlDoc.CreateElement("knoten2")
    44. 'Element erstellen
    45. Dim Element4 As XmlElement = XmlDoc.CreateElement("Element4")
    46. Dim Element5 As XmlElement = XmlDoc.CreateElement("Element5")
    47. Dim Element6 As XmlElement = XmlDoc.CreateElement("Element6")
    49. 'erstellen element text
    50. Dim Element4_Wert As XmlText = XmlDoc.CreateTextNode("Wert4")
    51. Dim Element5_Wert As XmlText = XmlDoc.CreateTextNode("Wert5")
    52. Dim Element6_Wert As XmlText = XmlDoc.CreateTextNode("Wert6")
    54. ParentNode2.AppendChild(Element4)
    55. ParentNode2.AppendChild(Element5)
    56. ParentNode2.AppendChild(Element6)
    58. 'Schreiben
    59. Element4.AppendChild(Element4_Wert)
    60. Element2.AppendChild(Element5_Wert)
    61. Element6.AppendChild(Element6_Wert)
    63. XmlDoc.InsertAfter(ParentNode, RootNode)
    65. 'Speichern
    66. XmlDoc.Save("c:\temp\demo.xml")

    Welcher Fehler? Bitte immer konkret werden, Felhermeldung + Zeile + ggf. betroffenes Objekt.
    Warum fügst Du in Z#63 ParentNode hinzu und nicht ParentNode2? Warum arbeitest Du da mit InsertAfter, was zu einer Fehlermeldung führt und nicht mit AppendChild wie in Z#17, was funktioniert?

    Z#60 ist falsch. Nicht Element2, sondern Element5
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Danke für den Tipp habes jetzt verstanden :)
    Komme nun auch weiter..
    Ich dachte man muss "insert.After" verwenden man um den Knoten Punkt zu plazieren.
    Das läuft für den ersten Versuch. Leider Finde ich keine richtige Dokumentation darüber.

    VB.NET-Quellcode

    1. Dim XmlDoc As New XmlDocument
    3. 'Zeile 1
    4. Dim XmlDeclaration As XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "iso-8859-1", Nothing)
    6. 'Root erstellen
    7. Dim RootNode As XmlElement = XmlDoc.CreateElement("Root")
    8. XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
    9. XmlDoc.AppendChild(RootNode)
    11. '1.knoten erstellen
    12. Dim ParentNode As XmlElement = XmlDoc.CreateElement("knoten1")
    14. 'Set attribute name and value!
    15. ' ParentNode.SetAttribute("AttributName", "AttributWert")
    17. XmlDoc.DocumentElement.PrependChild(ParentNode)
    19. 'Element erstellen
    20. Dim Element1 As XmlElement = XmlDoc.CreateElement("Element1")
    21. Dim Element2 As XmlElement = XmlDoc.CreateElement("Element2")
    22. Dim Element3 As XmlElement = XmlDoc.CreateElement("Element3")
    24. 'erstellen element text
    25. Dim Element1_Wert As XmlText = XmlDoc.CreateTextNode("Wert1")
    26. Dim Element2_Wert As XmlText = XmlDoc.CreateTextNode("Wert2")
    27. Dim Element3_Wert As XmlText = XmlDoc.CreateTextNode("Wert3")
    29. 'zueisen
    30. ParentNode.AppendChild(Element1)
    31. ParentNode.AppendChild(Element2)
    32. ParentNode.AppendChild(Element3)
    34. 'Schreiben
    35. Element1.AppendChild(Element1_Wert)
    36. Element2.AppendChild(Element2_Wert)
    37. Element3.AppendChild(Element3_Wert)
    39. 'bisher läuft alles
    41. '2.knoten erstellen
    42. Dim ParentNode2 As XmlElement = XmlDoc.CreateElement("knoten2")
    44. 'Element erstellen
    45. Dim Element4 As XmlElement = XmlDoc.CreateElement("Element4")
    46. Dim Element5 As XmlElement = XmlDoc.CreateElement("Element5")
    47. Dim Element6 As XmlElement = XmlDoc.CreateElement("Element6")
    49. 'erstellen element text
    50. Dim Element4_Wert As XmlText = XmlDoc.CreateTextNode("Wert4")
    51. Dim Element5_Wert As XmlText = XmlDoc.CreateTextNode("Wert5")
    52. Dim Element6_Wert As XmlText = XmlDoc.CreateTextNode("Wert6")
    54. ParentNode2.AppendChild(Element4)
    55. ParentNode2.AppendChild(Element5)
    56. ParentNode2.AppendChild(Element6)
    58. 'Schreiben
    59. Element4.AppendChild(Element4_Wert)
    60. Element5.AppendChild(Element5_Wert)
    61. Element6.AppendChild(Element6_Wert)
    63. XmlDoc.DocumentElement.AppendChild(ParentNode2)
    65. 'Speichern
    66. XmlDoc.Save("c:\temp\demo.xml")

    Ich dachte man muss "insert.After" verwenden man um den Knoten Punkt zu plazieren.


    Nein, man verwendet serialisierbare Klassen um komplexere XMLs zu erstellen ;)

    Siehe beispielsweise hier: XML Serialisierung oder hier Tutorial über das Speichern und Laden von XML-Dateienvb-paradise.de/index.php/Threa…ostID=1114702#post1114702


    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Yanbel“ ()

    Ich schiebe dir nochmal ein Beispiel für dich nach, dass 1:1 deine XML-File ausspuckt.

    Du legst dir eine neue Klasse an, die 3 Nested Classes enthält:

    XMLModell und Serialisierung

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Text
    3. Imports System.Xml.Serialization
    4. Imports System.ComponentModel
    6. Public Class XMLExample
    8. <Serializable(),
    9. DebuggerStepThrough(),
    10. DesignerCategory("code"),
    11. XmlType(AnonymousType:=True),
    12. XmlRoot("Root", [Namespace]:="", IsNullable:=False)>
    13. Public Class XMLRoot
    15. <XmlElement(ElementName:="Knoten1", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
    16. Public Property Knoten1 As Knoten1
    18. <XmlElement(ElementName:="Knoten2", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
    19. Public Property Knoten2 As Knoten2
    21. End Class
    23. <Serializable(),
    24. DebuggerStepThrough(),
    25. DesignerCategory("code"),
    26. XmlType(AnonymousType:=True),
    27. XmlRoot("Knoten1", [Namespace]:="", IsNullable:=False)>
    28. Public Class Knoten1
    30. <XmlElement("Element1", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
    31. Public Property Element1 As String
    32. <XmlElement("Element2", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
    33. Public Property Element2 As String
    34. <XmlElement("Element3", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
    35. Public Property Element3 As String
    37. End Class
    39. <Serializable(),
    40. DebuggerStepThrough(),
    41. DesignerCategory("code"),
    42. XmlType(AnonymousType:=True),
    43. XmlRoot("Knoten2", [Namespace]:="", IsNullable:=False)>
    44. Public Class Knoten2
    46. <XmlElement("Element4", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=1)>
    47. Public Property Element4 As String
    48. <XmlElement("Element5", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=2)>
    49. Public Property Element5 As String
    50. <XmlElement("Element6", Form:=Xml.Schema.XmlSchemaForm.Unqualified, Order:=3)>
    51. Public Property Element6 As String
    53. End Class
    55. Public Shared Sub Serialize(ByVal Root As XMLRoot, ByVal FileName As String)
    56. Dim Serializer As XmlSerializer = New XmlSerializer(Root.GetType)
    57. Dim XStream As StreamWriter
    58. Dim EmptyNamespace As New XmlSerializerNamespaces()
    59. EmptyNamespace.Add("", "")
    61. Using FileStream As New FileStream(FileName, FileMode.Create)
    62. XStream = New StreamWriter(FileStream, Encoding.UTF8)
    63. Serializer.Serialize(XStream, Root, EmptyNamespace)
    64. FileStream.Close()
    65. End Using
    66. End Sub
    68. Public Shared Sub Deserialize(ByRef Root As XMLRoot, ByVal FileName As String)
    70. Dim Serializer As XmlSerializer = New XmlSerializer(Root.GetType)
    71. Dim EmptyNamespace As New XmlSerializerNamespaces()
    72. EmptyNamespace.Add("", "")
    74. Using FileStream As New FileStream(FileName, FileMode.Open)
    75. Root = TryCast(Serializer.Deserialize(FileStream), XMLExample.XMLRoot)
    76. FileStream.Close()
    77. End Using
    79. End Sub
    81. End Class



    Wenn du diese Klasse implementiert hast, kannst du in deiner Form folgendermaßen das XML zusammenbauen:

    Code in der Form

    VB.NET-Quellcode

    1. Dim Root As New XMLExample.XMLRoot
    2. Root.Knoten1 = New XMLExample.Knoten1 With {.Element1 = "Wert1", .Element2 = "Wert2", .Element3 = "Wert3"}
    3. Root.Knoten2 = New XMLExample.Knoten2 With {.Element4 = "Wert4", .Element5 = "Wert5", .Element6 = "Wert6"}
    4. XMLExample.Serialize(Root, "C:\Temp\demo.xml")



    Ergebnis

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <Root>
    3. <Knoten1>
    4. <Element1>Wert1</Element1>
    5. <Element2>Wert2</Element2>
    6. <Element3>Wert3</Element3>
    7. </Knoten1>
    8. <Knoten2>
    9. <Element4>Wert4</Element4>
    10. <Element5>Wert5</Element5>
    11. <Element6>Wert6</Element6>
    12. </Knoten2>
    13. </Root>




    Ein Computer wird das tun, was du programmierst - nicht das, was du willst.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Yanbel“ ()

Facebook
Telefonspende