如何用VB从XML中提取数据

Question

我用VB6.0做了一个视频播放程序，现在要从一个平台中提取节目源的相关数据。接口是用VC做。接口函数生成的结果是XML形式，请问如何用VB从XML中提取数据

Answer 1

在msdn.microsoft.com/xml/default.asp中下载最新版本的MSXML，并安装在计算机上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他对象一样，首先在工程菜单中选择引用菜单项，选择Microsoft V4.0,单击OK,一切完成后就现在就可以在VB应用程序中添加XML对象了。http://www.yesky.com/20021016/1635180.shtml

Answer 2

Private oXMLPrm As MSXML2.DOMDocument
 Set oXMLPrm = New MSXML2.DOMDocument
 oXMLPrm.async = False
 oXMLPrm.loadXML sParamXML

Answer 3

Dim CatalogDoc As MSXML2.DOMDocument40
Set CatalogDoc = New MSXML2.DOMDocument40CatalogDoc.async = False
CatalogDoc.Load App.Path & "\rss.xml"
注意引用：microsoft xml4.0

Answer 4

在msdn.microsoft.com/xml/default.asp中下载最新版本的MSXML，并安装在计算机上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他对象一样，首先在工程菜单中选择引用菜单项，选择Microsoft V4.0,单击OK,一切完成后就现在就可以在VB应用程序中添加XML对象了。http://www.yesky.com/20021016/1635180.shtml

Answer 5

建議自己写一個分析xml数据結構的類

Answer 6

'----------------------------------------
'      从XML中取得指定节点的值
'----------------------------------------
Public Function funGetXmlText( _
    ByVal strText As String, _
    ByVal strSingName As String, _
    ByVal strTagName As String, _
    ByVal intIndex As Integer, _
    ByRef strErrText As String) As String
    
    If Run_Mode = -1 Then
        On Error GoTo hidden
    End If
    Dim i As Integer
    Dim strTmp As String
    strTmp = ""
    Dim objNode As IXMLDOMElement
    Dim NodeList As IXMLDOMNodeList
    '加载XML数据到XML文挡对象
    xmlDoc.async = False
    xmlDoc.loadXML (strText)
    '取得发送信息
    If strSingName = "" Then
        Set NodeList = xmlDoc.getElementsByTagName(strTagName)
        If Not NodeList Is Nothing Then
            strTmp = NodeList.Item(0).childNodes(0).Text
        End If
    Else
        Set objNode = xmlDoc.selectSingleNode("//" & strSingName)
        If Not objNode Is Nothing Then
            Set NodeList = objNode.getElementsByTagName(strTagName)
            strTmp = NodeList.Item(0).childNodes(intIndex).Text
        End If
    End If
    Set objNode = Nothing
    Set NodeList = Nothing
    funGetXmlText = strTmp
    Exit Function
hidden:
    strErrText = Err.Description
    On Error Resume Next
    Set objNode = Nothing
    Set NodeList = Nothing
    Err.Clear
End Function
'----------------------------------------
'      从XML中取得指定节点的属性
'----------------------------------------
Public Function funGetAttributes( _
    ByVal strText As String, _
    ByVal strSingName As String, _
    ByVal strTagName As String, _
    ByVal intIndex As Integer, _
    ByRef strErrText As String) As String
    If Run_Mode = -1 Then
        On Error GoTo hidden
    End If
    Dim i As Integer
    Dim strTmp As String
    Dim objNode As IXMLDOMElement
    '加载XML数据到XML文挡对象
    xmlDoc.async = False
    xmlDoc.loadXML (strText)
    '取得文件中匹配的第一个节点
    Set objNode = xmlDoc.selectSingleNode("//" & strSingName)
    If Not objNode Is Nothing Then
        strTmp = objNode.getAttribute(strTagName)
    End If
    Set objNode = Nothing
    funGetAttributes = strTmp
    Exit Function
hidden:
    strErrText = Err.Description
    On Error Resume Next
    Set objNode = Nothing
    Err.Clear
End Function'

Answer 7

download msxml4.msi
the sdk document is very good

Answer 8

给他们说得差不多了.
建议先看看XML方面的书.

Answer 9

好象说的不太细，把XML贴出来或看以下
http://expert.csdn.net/Expert/topic/2193/2193564.xml?temp=.2066156
的另一个例子