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文件,selectNodes获取节点属性

VB读取XML文件,通过selectNodes,selectSingleNode获取 XML文件节点内容,将获取的内容赋值给类的属性。 被读取的xml文件: ...
  • psp0001060
  • psp0001060
  • 2015年10月17日 18:07
  • 5557

vb 操作xml方法总结

Private Sub xxx(ByVal xmlStr As String) ''初始化xml文档 Dim xmlDoc As New XmlDocument ...
  • yuewei19
  • yuewei19
  • 2014年12月11日 15:21
  • 2757

VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String ...
  • wang19850219
  • wang19850219
  • 2014年11月27日 11:14
  • 3323

VB.NET 从XML文件中读取内容到JSON

摘要: 注:本文中记录的只是一些早年练手用的代码,用于JSON和XML简单转换,使用的是自己定义的一个“规则”,不保证转换的正确性 一、关于本文 本文承接了上一篇博客的内容。在上篇博客中,...
  • proppig
  • proppig
  • 2016年12月30日 21:24
  • 235

VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String ...
  • wang19850219
  • wang19850219
  • 2014年11月27日 11:14
  • 3323

VB读取XML文件

VB读写XML文件还是比较简单的,因为有自带的类库
  • wang1902568721
  • wang1902568721
  • 2014年11月20日 18:57
  • 1301

VB.net读取XML标签值

  • 2017年09月08日 10:51
  • 2KB
  • 下载

vb.net:读取复杂格式的XML文件

  • 2009年08月19日 17:41
  • 61KB
  • 下载

VB.Net程序设计:读取ini文件和读取xml文件的例子

  • 2011年09月17日 10:57
  • 58KB
  • 下载

VB调用WebService(直接Post方式)并解析返回的XML

Function TodoTaskBySOAP(postURL As String,host As String, n As Integer,FilterItem() As String,OwnerS...
  • cncco
  • cncco
  • 2016年01月04日 01:33
  • 2159
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb对XML的读取
举报原因:
原因补充:

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