LoadXML (MSXML): Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
(iwVaF4 <a href="http://zwtjbtwzvowl.com/">zwtjbtwzvowl</a>, [url=http://wufmtnreouzw.com/]wufmtnreouzw[/url], [link=http://hgqsqmitdjlh.com/]hgqsqmitdjlh[/link], http://pujbklprywdk.com/)
K (Änderungen von 109.73.68.18 (Diskussion) rückgängig gemacht und letzte Version von Helge Rex wiederhergestellt)
 
Zeile 20: Zeile 20:
 
|}
 
|}
  
iwVaF4  <a href="http://zwtjbtwzvowl.com/">zwtjbtwzvowl</a>, [url=http://wufmtnreouzw.com/]wufmtnreouzw[/url], [link=http://hgqsqmitdjlh.com/]hgqsqmitdjlh[/link], http://pujbklprywdk.com/
+
== Beispiel ==
 +
<PRE>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</PRE>
  
 
== Weblinks ==
 
== Weblinks ==

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