XML-Node hinzufügen

  • VB.NET
  • .NET (FX) 4.0

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

    XML-Node hinzufügen

    Hallo Leute,

    ich stehe mit den XML-Dateien einfach auf Kriegsfuß.
    Um nicht immer manuell die XML-Datei zu bearbeiten, möchte ich die Node-Elemente über mein Programm bearbeiten.
    Das ändern der Nodes klappt schon, aber mit dem hinzufügen komme ich einfach nicht weiter.

    Und so sieht mein XML-Datei aus.

    XML-Quellcode

    1. <?xml version="1.0" encoding="UTF-8"?>
    3. <Standardtexte>
    5. <!-- Formulare Steuerbescheidprüfung -->
    6. <!-- Steuerauswahl Steuerbescheide -->
    7. <Bescheide>
    8. <ID0>ESt. incl. SolZ</ID0>
    9. <ID1>ESt. incl. SolZ u. KiSt.</ID1>
    10. <ID2>ESt. Verlustfeststellung</ID2>
    11. [...]
    13. <!-- Verlustbescheide sind Info (Sonderbereich) => 0 = Standart / 1 = Info -->
    14. <Info>
    15. <ID0>0</ID0>
    16. <ID1>0</ID1>
    17. <ID2>1</ID2>
    18. [...]
    19. </Info>
    20. </Bescheide>
    21. </Standardtexte>



    Um die zu ändern habe ich folgende Sub-Routine:

    VB.NET-Quellcode

    1. ​
    2. Private Sub Save_Profile()
    3. Dim XMLFile As String = GetXMLPath()
    4. Dim xmlDoc As New Xml.XmlDocument, KeynodesStB As Xml.XmlNodeList, KeynodesInfo As Xml.XmlNodeList
    5. Dim i As Integer = 0
    6. Dim t1 As String = "", t2 As String = ""
    7. Dim singleKeyNode As Xml.XmlNode = Nothing
    9. xmlDoc.Load(XMLFile) 'opens XML file
    11. For i = 0 To dgvProfile.Rows.Count - 1
    13. KeynodesStB = xmlDoc.SelectNodes("Standardtexte/Bescheide/ID" & i)
    14. KeynodesInfo = xmlDoc.SelectNodes("Standardtexte/Bescheide/Info/ID" & i)
    16. singleKeyNode = KeynodesStB.Item(0)
    17. If singleKeyNode Is Nothing Then
    18. Dim newElem As Xml.XmlNode = xmlDoc.CreateNode("Standardtexte", "Bescheide\ID" & i, "")
    19. newElem.InnerText = dgvProfile.Item(0, i).Value.ToString
    20. Dim root As Xml.XmlElement = xmlDoc.DocumentElement
    21. root.AppendChild(newElem)
    23. Else
    24. singleKeyNode.InnerText = dgvProfile.Item(0, i).Value.ToString
    25. End If
    27. singleKeyNode = KeynodesInfo.Item(0)
    28. If singleKeyNode Is Nothing Then
    29. Dim newElem As Xml.XmlNode = xmlDoc.CreateNode("Standardtexte", "Bescheide\Info", "ID" & i)
    30. newElem.InnerText = dgvProfile.Item(1, i).Value.ToString
    31. Dim root As Xml.XmlElement = xmlDoc.DocumentElement
    32. root.AppendChild(newElem)
    34. Else
    35. singleKeyNode.InnerText = Convert.ToInt16(dgvProfile.Item(1, i).Value)
    36. End If
    38. Next
    39. xmlDoc.Save(GetXMLPath())
    40. Me.Close()
    41. End Sub


    Mein Problem ist jetzt, dass ich nicht weiß, wie ich Einträge hinzufügen kann. Ich komme da einfach nicht weiter. ;(
    Kann mir einer hierbei helfen? <3

    Vielen Dank im Voraus.

    Gruß Achilleus

    Du musst natürlich wissen wo du den Node unterbringen willst und bis dahin durch-loopen
    Sorry ist C# aber das sollte eigentlich kein Problem sein.

    C#-Quellcode

    1. //Create a new node.
    2. XmlNode item = doc.DocumentElement;
    3. XmlElement elem1 = doc.CreateElement("InfoData");
    4. elem1.SetAttribute(author, "Name");
    5. //Add the node to the document.
    6. item.AppendChild(elem1);

    Hallo @ErfinderDesRades

    ich bin schon einmal soweit, dass ich in die XML-Datei einen Eintrag hinzufügen kann.

    VB.NET-Quellcode

    1. Public Sub xmlAppend(ByVal Id As String, ByVal Value As String)
    2. Dim xmlPath As String = GetXMLPath()
    3. Dim myDoc As Xml.XmlDocument = New Xml.XmlDocument
    4. myDoc.Load(xmlPath)
    6. Dim root As XmlNode = myDoc.DocumentElement
    7. Dim myElement As XmlElement = root.SelectSingleNode("Bescheide")
    8. Dim myName As XmlElement = myDoc.CreateElement("ID" & Id)
    10. myName.InnerText = Value
    11. root.InsertAfter(myName, myElement)
    12. myDoc.Save(xmlPath)
    14. End Sub


    Allerdings ist das nun auch nicht die richtige Lösung, da der Eintrag nicht innerhalb des Tags erstellt wird, sondern einfach darunter hinzugefügt.

    XML-Quellcode

    1. <!-- Steuerauswahl Steuerbescheide -->
    2. <Bescheide>
    3. <ID0>ESt. incl. SolZ</ID0>
    4. <ID1>ESt. incl. SolZ u. KiSt.</ID1>
    5. <ID2>ESt. Verlustfeststellung</ID2>
    7. <!-- Verlustbescheide sind Info (Sonderbereich) => 0 = Standart / 1 = Info -->
    8. <Info>
    9. <ID0>0</ID0>
    10. <ID1>0</ID1>
    11. <ID2>1</ID2>
    12. </Info>
    13. </Bescheide>
    14. <ID3>Grundsteuer</ID3>


    Ich habe es auch schon mit der Anweisung myElement.InsertAfter(myName, myElement) versucht, erhalte da aber immer eine Fehlermeldung.
    Irgendwie muss ich doch den Eintrag in dem Tag Bescheide hinzufügen können.

    Gruß Achilleus

    [Nachtrag]

    Ich habe jetzt die Lösung:

    VB.NET-Quellcode

    1. Public Sub xmlAppend(ByVal Id As String, ByVal Value As String)
    2. Dim xmlPath As String = GetXMLPath()
    3. Dim myDoc As New Xml.XmlDocument
    4. myDoc.Load(xmlPath)
    6. Dim root As XmlNode = myDoc.DocumentElement
    7. Dim myElement As XmlElement = root.SelectSingleNode("Bescheide")
    8. Dim xNode As XmlNode = myElement
    9. Dim myName As XmlElement = myDoc.CreateElement("ID" & Id)
    11. myName.InnerText = Value
    12. xNode.AppendChild(myName)
    14. myDoc.Save(xmlPath)


    Damit wird der Eintrag richtig gesetzt.
    ich muss nur noch meine XML-Datei etwas ändern und dann klappt das auch.

    XML-Quellcode

    1. <Bescheide>
    2. <ID0>
    3. <Name>ESt. incl. SolZ</Name>
    4. <Info>0</Info>
    5. </ID0>
    6. </Bescheide>

    Dann werden die Einträge auch richtig dargestellt.

    Gruß Achilleus

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

Facebook
Telefonspende