VB6.0操作XML文件

发布：2013/5/4 15:55:17作者：管理员来源：本站浏览次数：1440

XML文件如下:

<?xml version="1.0" encoding="gb2312"?>
<testlist>
<test>
<id>1</id>
<name>自由飞翔</name>
<time>2007-12-7</time>
</test>

<test>
<id>2</id>
<name>自由</name>
<time>2007-12-7</time>
</test>
</testlist>

以下是VB6.0的代码:

'工程->引用->Mircosoft XML6.0

Dim XMLDoc As DOMDocument
Dim root As IXMLDOMNode

Dim xlst As IXMLDOMNodeList, xlst1 As IXMLDOMNodeList
Dim xn As IXMLDOMNode
Dim xnf As IXMLDOMNode
Dim xe As IXMLDOMElement

Set XMLDoc = New DOMDocument

XMLDoc.Load "F:\example\test.xml" 'xml文件路径根据存放路径不同而不同!

Set xn = XMLDoc.selectSingleNode("testlist")

'以下为读取xml文件内容,这里用ListView控件显示
Set xlst = xn.childNodes
ListView1.ListItems.Clear
For Each xnf In xlst
Set xe = xnf
Set xlst1 = xe.childNodes
With ListView1.ListItems.Add(, , xlst1.Item(0).Text)
.SubItems(1) = xlst1.Item(1).Text
.SubItems(2) = xlst1.Item(2).Text
End With
Next

'以下是插入一个节点(这里插入一个id=3,name=飞翔,time=date 的节点)

Dim XMLId As IXMLDOMElement
Dim XMLName As IXMLDOMElement
Dim XMLTime As IXMLDOMElement

Dim returnValue As IXMLDOMNode

Set xe = XMLDoc.createElement("test") '创建一个<test>节点
Set XMLId = XMLDoc.createElement("id")

XMLId.Text = 3

Set returnValue = xe.appendChild(XMLId)

Set XMLName = XMLDoc.createElement("name")

XMLName.Text = "飞翔"

Set returnValue = xe.appendChild(XMLName)

Set XMLTime = XMLDoc.createElement("time")

XMLTime.Text = Date

Set returnValue = xe.appendChild(XMLTime)

Set returnValue = xn.appendChild(xe) '添加到<testlist>节点中

XMLDoc.Save "F:\example\test.xml"

'删除XML中id=2的节点

Set xlst = XMLDoc.SelectSingleNode("testlist").ChildNodes

For Each xnf In xlst
Set xe = xnf
If xe.childNodes(0).Text = "2" Then
xn.removeChild xe
End If

Next xnf

XMLDoc.Save "F:\example\test.xml"

　SQL截取字符串函数分享

一个解析XML的VB类　

C# 文件操作(复制、移动、重命名、创建、打开、删除) sql service出现文件激活错误。物理文件名 'E:/正式数据库备份/2018/***2018.mdf' 可能不正确。请诊断并更正其他错误，然后重试此操作如何修改IIS_schema.xml文件? log4j2配置文件log4j2.xml详解 MyBatis XML映射文件 C#使用iTextSharp操作PDF文件记录访客的（ip，浏览器，ip归属地，操作系统代码）并记录在文件中 ASP文件操作(FSO)详解 VB6.0操作XML文件

柏港建站平台

柏港 VB编程

柏港为您推荐了一些相关资讯