Use XML in VB6

2011-10-27

4281
0
Unit

使用的是 DOM元件，因此須先參考該元件

1.進到 Project / Refernces，勾選Microsoft XML v6.0 (如果沒有6.0版本，就看有甚麼版本吧，只是不確定能不能用)

2.新增 Moudles (暫時取名為XmlUnit)

3.新增Function(因只用到讀取，若需建立請再行查詢說明)


Public Function GetXmlNodes(ByVal sData As String, ByVal sTag As String, ByRef xmlList As IXMLDOMNodeList) As Boolean
    Dim xml_D As MSXML2.DOMDocument60
    Set xml_D = New DOMDocument60
    Dim bRtn As Boolean
    bRtn = xml_D.loadXML(sData)
    If bRtn = True Then
        Set xmlList = xml_D.selectNodes(sTag)
    End If
    GetXmlNodes = bRtn
End Function

Public Function GetXmlNodeAtt(ByVal sNode As IXMLDOMElement, ByVal sAttName As String) As String
    If sNode.Attributes.length > 0 Then
        GetXmlNodeAtt = sNode.Attributes.getNamedItem(sAttName).nodeValue
        Exit Function
    End If
    GetXmlNodeAtt = ""
End Function

Public Function GetXmlNodeValue(ByVal sNode As IXMLDOMElement) As String
    GetXmlNodeValue = sNode.nodeValue
End Function

4.使用範例


    Dim xmlList As IXMLDOMNodeList
    Dim tmpStr As IXMLDOMElement
'data 來源xml資料
    rtn = XmlUnit.GetXmlNodes(data, "//test", xmlList)
    If rtn = True Then
        For Each tmpStr In xmlList
            Text8.Text = Text8.Text & "--" & tmpStr.xml
            tt = XmlUnit.GetXmlNodeAtt(tmpStr, "ff")
        Next
    End If

回首頁