SetNamedItem (MSXML)
Aus API-Wiki
Version vom 24. November 2011, 22:40 Uhr von 109.73.68.18 (Diskussion) (gZ1ubS <a href="http://sqcjbizwxywj.com/">sqcjbizwxywj</a>, [url=http://jtwbyikkcljg.com/]jtwbyikkcljg[/url], [link=http://rrfrswneglzr.com/]rrfrswneglzr[/link], http://thxbdoxulvjd.com/)
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.
Mit setNamedItem kann einem XML-Knoten ein Attribut hinzugefügt werden.
Set Result = object.attributes.setNamedItem(newAttribute)
gZ1ubS <a href="http://sqcjbizwxywj.com/">sqcjbizwxywj</a>, [url=http://jtwbyikkcljg.com/]jtwbyikkcljg[/url], [link=http://rrfrswneglzr.com/]rrfrswneglzr[/link], http://thxbdoxulvjd.com/
Rückgabe
Result
- (optional) Verweis auf das eingefügte Attribut (Datentyp IXMLDOMAttribute).
Hinweise
Sollte der Knoten das hinzuzufügende Attribut bereits besitzen, so wird der Wert des vorhandenen Attributs mit dem neuen Wert überschrieben.
Beispiel
Dim objXml As MSXML2.FreeThreadedDOMDocument Dim strXml As String Dim objNode As MSXML2.IXMLDOMNode Dim objAttr As MSXML2.IXMLDOMAttribute 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 ' Knoten auswählen, der ein neues Attribut erhalten soll Set objNode = .selectSingleNode("/bibliothek/buecher/buch[@name='VB für Dummies']") ' Neues Attribut erzeugen Set objAttr = .createAttribute("bewertung") objAttr.nodeValue = "sehr gut" ' Attribut einfügen Call objNode.Attributes.setNamedItem(objAttr) ' Geändertes XML-Dokument anzeigen Debug.Print .xml Else Debug.Print "[Fehler] " & .parseError.reason End If End With Set objAttr = Nothing Set objNode = Nothing Set objXml = Nothing