XML Elemente anfügen

  • VB.NET

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

    XML Elemente anfügen

    Hallo Zusammen
    XML ist ja unter .NET bekanntlich eine ganz tolle Sache, deshalb speichere ich den grössten Teil auch in XML Dateien, nun habe ich ein Problem. Diesen Code habe ich:

    VB.NET-Quellcode

    1. Dim XmlDoc As New Xml.XmlDocument
    3. 'Write down the XML declaration
    4. Dim XmlDeclaration As Xml.XmlDeclaration = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
    6. 'Create the root element
    7. Dim RootNode As Xml.XmlElement = XmlDoc.CreateElement("RootNode")
    8. XmlDoc.InsertBefore(XmlDeclaration, XmlDoc.DocumentElement)
    9. XmlDoc.AppendChild(RootNode)
    11. 'Create a new <Category> element and add it to the root node
    12. Dim ParentNode As Xml.XmlElement = XmlDoc.CreateElement("Parent")
    14. 'Set attribute name and value!
    15. ParentNode.SetAttribute("AttributName", "AttributWert")
    17. XmlDoc.DocumentElement.PrependChild(ParentNode)
    19. 'Create the required nodes
    20. Dim FirstElement As Xml.XmlElement = XmlDoc.CreateElement("FirstElement")
    21. Dim SecondElement As Xml.XmlElement = XmlDoc.CreateElement("SecondElement")
    22. 'Dim ThirdElement As Xml.XmlElement = XmlDoc.CreateElement("ThirdElement")
    25. 'retrieve the text
    26. Dim FirstTextElement As Xml.XmlText = XmlDoc.CreateTextNode(TextBox1.Text)
    27. Dim SecondTextElement As Xml.XmlText = XmlDoc.CreateTextNode(TextBox2.Text)
    28. 'Dim ThirdTextElement As Xml.XmlText = XmlDoc.CreateTextNode("This is the text from the third element")
    30. 'append the nodes to the parentNode without the value
    31. ParentNode.AppendChild(FirstElement)
    32. ParentNode.AppendChild(SecondElement)
    33. 'ParentNode.AppendChild(ThirdElement)
    35. 'save the value of the fields into the nodes
    36. FirstElement.AppendChild(FirstTextElement)
    37. SecondElement.AppendChild(SecondTextElement)
    38. 'ThirdElement.AppendChild(ThirdTextElement)
    40. 'Save to the XML file
    41. XmlDoc.Save("C:\demo.xml")


    Ich möchte, dass er den Text der beiden Textboxen anfügt, wenn bereits Einträge in der XML Datei vorhanden sind. Jetzt werden sie immer ersetzt.

    Hallo ChaosBernd
    Danke für deine Antwort, jedoch klappt das nicht ganz, er fügt nicht hinzu, sondern ersetzt.

    Habe diesen Code:

    VB.NET-Quellcode

    1. XmlDoc.DocumentElement.PrependChild(ParentNode)


    Mit diesem ersetzt:

    VB.NET-Quellcode

    1. XmlDoc.DocumentElement.AppendChild(ParentNode)

    Du must das XMLDoc laden und dann Append mit eriner kleinen Sup erledigen.
    Wenn du mit XMLCreate arbeitest, wird ja auch jedesmal neu (Create) erstellt.
    Also Dokument Laden, Append, dann wieder Speichern.

    So ungefähr, habe ich allerdings nicht getestet nur zusammenkopiert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Pfad As String = Environment.CurrentDirectory & "\Test1.xml" 'Test.xml"
    2. Dim xml As New Xml.XmlDocument
    3. xml.Load(Pfad) ' wenn Datei nicht leer
    4. ....
    5. nun über eine SubRutine Append.