VB6.0读取XML示例

Option Explicit


Private Sub Form_Load()
    '需引用 Microsoft XML, v6.0
    Dim xmlDoc As DOMDocument
    Dim nodeList As IXMLDOMNodeList
    Dim node As IXMLDOMNode
    
    On Error Resume Next
    
    Set xmlDoc = New DOMDocument
    xmlDoc.loadXML ("<xml><website><domain>mzwu.com</domain><webmaster>dnawo</webmaster></website><website><domain>abc.com</domain><webmaster>abc</webmaster></website><website><domain>def.com</domain><webmaster>def</webmaster></website></xml>")
    Set nodeList = xmlDoc.selectNodes("//website")
    For Each node In nodeList
        Text1.Text = Text1.Text & node.selectSingleNode("domain").Text & vbCrLf
    Next
        
    If Err.Number <> 0 Then
        MsgBox Err.Description
    End If
    
    On Error GoTo 0
End Sub