VB6 操作XML

需要添加Microsoft XML,version2.0的引用或更高版本

一 创建XML

Dim xmlDocum As MSXML2.DOMDocument
    Dim xmlRoot As MSXML2.IXMLDOMElement
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim xmlElement As MSXML2.IXMLDOMElement
    Dim pi As IXMLDOMProcessingInstruction
    Dim xmlAttributs As MSXML2.IXMLDOMAttribute

    Set xmlDocum = New MSXML2.DOMDocument
    Set xmlRoot = xmlDocum.createElement("BookStore")
    Set xmlDocum.documentElement = xmlRoot

    Call xmlRoot.setAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
    Call xmlRoot.setAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
    Call xmlRoot.setAttribute("xmlns", "http://www.kingdee.com/ReK3Inventory")

    Set xmlElement = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "Shops", "")
    Call xmlElement.setAttribute("Type", "S")
    xmlRoot.appendChild xmlElement

    '生成孩子节点添加到根节点上去,并且为这个节点设置一个属性
    Set xmlNode = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "ShopName", "")
    xmlNode.Text = "CSDN"
    xmlElement.appendChild xmlNode

    Set xmlNode = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "URL", "")
    xmlNode.Text = "http://www.csdn.net"
    xmlElement.appendChild xmlNode

    Set xmlNode = xmlDocum.createNode(MSXML2.NODE_ELEMENT, "Address", "")
    xmlNode.Text = "AH"
    xmlElement.appendChild xmlNode
   

    Set pi = xmlDocum.createProcessingInstruction("xml", "version='1.0'  encoding='gb2312'")
    Call xmlDocum.insertBefore(pi, xmlDocum.childNodes(0))
    xmlDocum.save App.Path & "/CreateXML.xml"

得到如下结构的XML文件

***********************************************************

<?xml version="1.0" encoding="gb2312"?>
<BookStore xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.kingdee.com/ReK3Inventory">
<Shops Type="S">
 <ShopName>CSDN</ShopName>
 <URL>http://www.csdn.net</URL>
 <Address>AH</Address>
</Shops>
</BookStore>

二 读取各结点值

    Dim xmlDocument As New DOMDocument
    Dim xmlNodeList As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMNode
    Dim i As Integer, j As Integer

    xmlDocument.async = False
    If xmlDocument.Load(App.Path & "/CreateXML.xml") = False Then
        MsgBox "XML文件载入失败!"
        Set xmlDocument = Nothing
        Exit Sub
    End If

    Set xmlNodeList = xmlDocument.getElementsByTagName("Shops")
    '遍历指定的结点
    For i = 0 To xmlNodeList.length - 1
        Set xmlNode = xmlNodeList.Item(i)
        '遍历下面的子元素
        For j = 0 To xmlNode.childNodes.length - 1
            Debug.Print xmlNode.childNodes.Item(j).Text
        Next

    Next

    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
    Set xmlDocument = Nothing 

  • 1
    点赞
  • 12
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
VB.NET中读取XML文件可以使用XmlReader。首先,您需要创建一个XmlReader对象,并将其与要读取的XML文件关联起来。然后,您可以使用XmlReader的方法来遍历XML文件的内容。 以下是一个读取XML文件的示例代码: ```vb Dim xmlFile As String = "E:\flashgame\game\top.xml" Using reader As XmlReader = XmlReader.Create(xmlFile) While reader.Read() If reader.NodeType = XmlNodeType.Element AndAlso reader.Name = "Activitie" Then Dim title As String = reader.GetAttribute("title") ' 在这里可以处理读取到的数据 End If End While End Using ``` 在上面的代码中,我们首先创建了一个XmlReader对象,并将其与指定的XML文件关联起来。然后,我们使用XmlReader的Read方法来逐个读取XML文件中的节点。当我们遇到一个名为"Activitie"的元素节点时,我们可以使用GetAttribute方法来获取该元素节点的属性值,并在这里进行处理。 请注意,您需要根据您的XML文件的结构和需求来调整代码中的逻辑和处理方式。此示例仅提供了一个基本的框架来读取XML文件中的数据。 #### 引用[.reference_title] - *1* [VB.NET读取 XML文件](https://blog.csdn.net/waacn/article/details/39914949)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] - *2* *3* [VB.net学习笔记(二十一)XML流的读写](https://blog.csdn.net/dzweather/article/details/51474393)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值