ReplaceChild (MSXML)

Aus API-Wiki
Version vom 26. Februar 2007, 20:16 Uhr von Helge Rex (Diskussion | Beiträge) (Die Seite wurde neu angelegt: Mit replaceChild kann ein XML-Knoten ersetzt werden. Set ResultChild = ''object''.replaceChild(newChild, oldChild) {| |ResultChild |optional |Verweis auf den Knoten, ...)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springenZur Suche springen

Mit replaceChild kann ein XML-Knoten ersetzt werden.

Set ResultChild = object.replaceChild(newChild, oldChild)
ResultChild optional Verweis auf den Knoten, der entfernt wurde
object erforderlich Verweis auf den Knoten, dessen Kindknoten ersetzt werden soll
newChild erforderlich Verweis auf den neuen Knoten
oldChild erforderlich Verweis auf den alten Knoten

replaceChild kann nur Kindknoten ersetzen, die sich eine Ebene tiefer befinden. Das Ersetzen eines Kindknotens auf gleicher oder höherer Ebene oder eines Kindknotens mindestens zwei Ebenen tiefer wird nur teilweise ausgeführt: Der neue Kindknoten wird dem Knoten hinzugefügt, der alte jedoch nicht gelöscht. Zusätzlich wird der Fehler XMLOM_INVALID_INSERT_POS ausgelöst.

Beispiel

Dim objXml As MSXML2.FreeThreadedDOMDocument
Dim strXml As String
Dim objNode As MSXML2.IXMLDOMNode
Dim objOldNode As MSXML2.IXMLDOMNode
Dim objNewNode As MSXML2.IXMLDOMNode

strXml = VBA.Constants.vbNullString
strXml = strXml & "<?xml version=""1.0""?>" & VBA.Constants.vbNewLine
strXml = strXml & "<bibliothek>" & VBA.Constants.vbNewLine
    strXml = strXml & vbTab & "<buecher>" & VBA.Constants.vbNewLine
        strXml = strXml & vbTab & vbTab & "<buch name=""VB für Dummies"" />" & VBA.Constants.vbNewLine
        strXml = strXml & vbTab & vbTab & "<buch name=""Turbo Pascal für Dummies"" />" & VBA.Constants.vbNewLine
    strXml = strXml & vbTab & "</buecher>" & VBA.Constants.vbNewLine
strXml = strXml & "</bibliothek>" & VBA.Constants.vbNewLine


Set objXml = New MSXML2.FreeThreadedDOMDocument
With objXml
    .async = False
    .validateOnParse = True

    If .loadXML(strXml) Then
        '   Neuen Knoten erzeugen
        Set objNewNode = .createNode(NODE_ELEMENT, "ebook", VBA.Constants.vbNullString)
        Call objNewNode.Attributes.setNamedItem(.createAttribute("name"))
        objNewNode.Attributes.getNamedItem("name").nodeValue = "Delphi für Dummies"
        
        '   Knoten auswählen, dessen Kindknoten geändert werden soll
        Set objNode = .selectSingleNode("/bibliothek/buecher")
        
        '   Kindknoten ändern
        Call objNode.replaceChild(objNewNode, objNode.selectSingleNode("buch[@name='Turbo Pascal für Dummies']"))
        
        '   Geändertes XML-Dokument anzeigen
        Debug.Print .xml
    Else
        Debug.Print "[Fehler] " & .parseError.reason
    End If
End With

Set objNewNode = Nothing
Set objOldNode = Nothing
Set objNode = Nothing
Set objXml = Nothing

Weblinks

MSDN Library: replaceChild