vb对XML的读取

原创 2007年09月20日 18:15:00

自己的代码:
读出所有数据
Public Function XmlRead(SKType As String, LeftOrRight As String)
   
    Dim XMLDoc As DOMDocument                       ' main object for creating new views
    Set XMLDoc = CreateObject("Microsoft.XMLDOM")   'New MSXML2.x ' XMLDocument
   
    Dim oXML, oXMLRoot, oXMLItems

    If Not XMLDoc.Load("New.xml") Then
   
        MsgBox "度取XML失败"
        'ValidateWorkFiles = ERR_GEN
        Exit Function
    End If
    Dim iNodeLength As Integer
    
    a = XMLDoc.selectSingleNode("Data/Ritht_Left_Data/Punting/Right") 
    procDispDatas a.childNodes

    procDispDatas XMLDoc.childNodes
    Set XMLDoc = Nothing
End Function


Sub procDispDatas(objNode)
    Dim obj
    For Each obj In objNode
        If obj.NodeType = 3 Then  'And obj.parentNode.nodeName = "title" Then
            'MsgBox obj.parentNode.nodeName & " : " & obj.nodeValue
            Debug.Print obj.parentNode.nodeName & " : " & obj.nodeValue
        End If
        Dim temp As String
        temp = obj.selectSingleNode("Data/Ritht_Left_Data/Punting/Right/Attribute_Name/text()").Value
        If obj.hasChildNodes Then
            procDispDatas obj.childNodes
        End If
    Next
End Sub
 

---------读取某个节 

    Dim iNodeLength As Integer
    
    iNodeLength = XMLDoc.selectSingleNode("Data/Ritht_Left_Data/Punting/Right").childNodes.length
    For i = 0 To iNodeLength - 1
        Debug.Print XMLDoc.selectSingleNode("Data/Ritht_Left_Data/Punting/Right").childNodes.Item(i).nodeName
        Debug.Print XMLDoc.selectSingleNode("Data/Ritht_Left_Data/Punting/Right").childNodes.Item(i).Text
    Next

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

VB读取XML文件

VB读写XML文件还是比较简单的,因为有自带的类库

VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String ...

VB.net读取XML标签值

vb.net中xml操作实例

记录一下开发过程中进行的一次XML操作实例,实现如下效果: 把winform中的一个DataGridView控件绑定的dataset对象转换成xml格式的字符串该winform中还包含了多个tex...
  • lpwmm
  • lpwmm
  • 2016-03-06 00:13
  • 370

VB.NET反序列化XML

序列化,是将对象状态转换为可保持或传输的格式的过程。 与序列化相反的是反序列化,它将流转换为对象。这两个过程结合起来,就可以存储和传输数据。这就是序列化的意义所在。 在VB.NET中转换、处理和生...

如何用vb6.0采用xml-rpc联接访问后台web

有两年都没有搞vb6了,转做 php 和 python ,但一直很怀念那段时光,无法割舍他的简单与实用,由于项目关系,时常也会用上vb6, 为此我也分享我应用的一些喜悦。  xml-rpc(什么叫...
  • chrl
  • chrl
  • 2012-05-26 10:53
  • 1542

VB scrpit 修改配置文件(读写XML)

‘VB scrpit 修改配置文件(XML):  Dim WshShell Set WshShell = CreateObject("Wscript.Shell") Set fso = Creat...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)