VB中怎样dom生成解析XML?（实例）

Question

请教

Answer 1

    Dim objXMLDOM As New MSXML2.DOMDocument
    Dim objXMLNodeList As MSXML2.IXMLDOMNodeList
    Dim objXMLNode As MSXML2.IXMLDOMNode
    
    objXMLDOM.async = False
    objXMLDOM.validateOnParse = False
        
    objXMLDOM.loadXML strGet
    
    'To See If Errors
    If objXMLDOM.selectNodes("/Sale/Error").length > 0 Then
        Err.Raise 10000, , Err10000 & " | " & objXMLDOM.selectSingleNode("/Sale/Error").Text
    End If
    
    If objXMLDOM.selectNodes("/Sale/Rec").length > 0 Then
        Dim lngNum As Long
        Set objXMLNodeList = objXMLDOM.selectNodes("/Sale/Rec")
        For Each objXMLNode In objXMLNodeList
        
            strID = ""
            If objXMLNode.selectNodes("ID").length > 0 Then
                strID = objXMLNode.selectSingleNode("ID").Text
            End If
            
            strDate = ""
            If objXMLNode.selectNodes("Date").length > 0 Then
                strDate = objXMLNode.selectSingleNode("Date").Text
            End If
                        
            strClientName = ""
            If objXMLNode.selectNodes("ClientName").length > 0 Then
                strClientName = objXMLNode.selectSingleNode("ClientName").Text
            End If
            
            strStoreHouseName = ""
            If objXMLNode.selectNodes("StoreHouseName").length > 0 Then
                strStoreHouseName = objXMLNode.selectSingleNode("StoreHouseName").Text
            End If
            
            strStaffName = ""
            If objXMLNode.selectNodes("StaffName").length > 0 Then
                strStaffName = objXMLNode.selectSingleNode("StaffName").Text
            End If
            
            strRealMoney = ""
            If objXMLNode.selectNodes("RealMoney").length > 0 Then
                strRealMoney = objXMLNode.selectSingleNode("RealMoney").Text
            End If
            
            strNote = ""
            If objXMLNode.selectNodes("Note").length > 0 Then
                strNote = objXMLNode.selectSingleNode("Note").Text
            End If
            
            With lstv.ListItems.Add(, , strID)
                .ListSubItems.Add , , strDate
                .ListSubItems.Add , , strClientName
                .ListSubItems.Add , , strStoreHouseName
                .ListSubItems.Add , , strStaffName
                .ListSubItems.Add , , strRealMoney
                .ListSubItems.Add , , strNote
            End With
            
        Next
        
    End If
    
ErrHandler:    Set objXMLDOM = Nothing
    Set objXMLNodeList = Nothing
    Set objXMLNode = Nothing    If Err.Number <> 0 Then
        MsgBox "Error:" & Err.Number & " | " & Err.Description, vbCritical, "Error"
    End If
    
End Sub