卡卡网

本文介绍VB6.0是如何读取XML文件的。

示例

本示例VB用“Microsoft.XMLHTTP”创建对象来读取XML文件。

因此须首先在菜单“工程”里引用“Microsoft XML 3.0”

实现代码

 XML文件中的简短代码如下：

<Report>
    <Categories>
        <Category name="CASHMAN" value="Cash Management" />
        <Category name="IM" value="Inventory Management" />
        <Category name="POS" value="Point of Sale" />
        <Category name="PRODUCT" value="Product" />
    </Categories>
</Report>

我们可以用下面的方法来读取XML内容。

Sub ParseXmlDocument()
   Dim doc As New MSXML2.DOMDocument
   Dim success As Boolean

   success = doc.Load(App.Path & "\test.xml")
   If success = False Then
      MsgBox doc.parseError.reason
   Else
      Dim nodeList As MSXML2.IXMLDOMNodeList

      Set nodeList = doc.selectNodes("/Report/Categories/Category")

      If Not nodeList Is Nothing Then
         Dim node As MSXML2.IXMLDOMNode
         Dim name As String
         Dim value As String

         For Each node In nodeList
            name = node.Attributes.getNamedItem("name ").Text
            value = node.Attributes.getNamedItem("value").Text

         Next node
      End If
   End If
End Sub

总结

通过本文介绍的方法，可以轻松获取本文示例格式的XML内容。

标签: VB