LoadXML (MSXML)

Aus API-Wiki
Version vom 25. November 2011, 07:27 Uhr von Jochen Wierum (Diskussion | Beiträge) (Änderungen von 109.73.68.18 (Diskussion) rückgängig gemacht und letzte Version von Helge Rex wiederhergestellt)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springenZur Suche springen

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