LoadXML (MSXML): Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
K ("verwaltet von" auskommentiert)
K (Änderungen von 109.73.68.18 (Diskussion) rückgängig gemacht und letzte Version von Helge Rex wiederhergestellt)
 
(Eine dazwischenliegende Version von einem anderen Benutzer wird nicht angezeigt)
(kein Unterschied)

Aktuelle Version vom 25. November 2011, 08:27 Uhr

Mit LoadXML kann ein XML-Knotenset aus einer Zeichenkette erstellt werden.

Result = Object.LoadXML(Zeichenkette)
Result optional Boolean Gibt an, ob die Zeichenkette XML-konform war und daraus ein XML-Knotenset erstellt werden konnte
Object erforderlich DOMDocument oder

FreeThreadedDOMDocument

Verweis auf das Objekt, welches das Knotenset vorhalten wird
Zeichenkette erforderlich String Zeichenkette mit einer XML-Struktur

Beispiel

Dim objXml As MSXML2.FreeThreadedDOMDocument
Dim strXml As String

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
        Debug.Print .xml
    Else
        Debug.Print "[Fehler] " & .parseError.reason
    End If
End With

Set objXml = Nothing

Weblinks

MSDN Library: LoadXML