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"
分享到:
相关推荐
用VB操作XML '生成一个XML DOMDocument对象 Set xmlDOMDocument = New MSXML2.DOMDocument '生成根节点,在此我们称它为“爷爷辈”节点 Set Root_Node = xmlDOMDocument.createElement("Root") Set ...
用vb6.0封装xml,生成动态dll文件,用于office2007加载,改变其界面
第二步:步骤2 打开记事本,在其中复制下面的XML代码:文件名为CustomUI.xml,编码为UTF-8 保存到桌面customUI文件夹中 label="佛山小老鼠工具" insertBeforeMso="TabHome"> 加解密"> imageMso=...
包含了常用的xml操作.并有详细说明.不需要在写任何代码.包含了xml的常用操作.代码中使用了xml4.0的库.需要自己手动添加.
vb2010 详细VB2010 XML读写例子
其他文档(例如新加入的XML&SOAP开发包,Passport开发包,Project2000等等) 8。Windows系列资源包的开发文档(每个平台特性说明和独有特性API说明) 9。知识库 10。技术文章 11。背景知识 12。规格书(或者叫...
VB6实现图片和BASE64之间的转换,巧用XML,通用性好,可以用于将图片远程上传服务器,保存数据库,或才接收服务器图片数据后,转换成图片本地显示。
直接调用系统的WinHttp对象实现网页访问和提交数据。 不使用inet1控件和winsock控件,也不使用API函数,更不用xmlhttp这种卡顿的方式。 对网页编码支持UTF-8和Unicode以及GBK/gb2312的正常处理。
VB6调用WINAPI读写其他应用程序文本框内容,包含了一些访问数据库,调用webservice,读写XML文档,读写EXCEL文档的代码。
datagridview控件的例子,简单的使用该控件的好例子
我将向您展示如何从通过.NET开发的Web服务获得响应(版本无关紧要)
VB6.0语言,英文字符串转ASCLL编码十六进制字符串源码,做成函数,可以直接调用!!两种方式
提供API函数、常量、结构及错误代码的查询,并以代码(C#、VB.NET、VB 6.0)的形式提供查询结果。 2。支持语法高亮着色显示,并可以自定义各个部分内容的颜色。 3。几乎所有的API函数、错误代码以及部分常量有注释...
HelloWorld-service.wsdl 文件描述了 Web Services 的服务访问点,而 HelloWorld-binding.wsdl 文件描述了 Web Services 的通信消息的数据结构、每个访问点支持的操作、特定的断口类型的具体协议和数据格式规范的...
VB6.0经过长期开发本身有很多公共方法,短期内废弃vb6还存在困难,因为本身就可以做一定封装,减少代码在版本拷贝之间造成错误。后续需要增加的公共方法支持大家陆续可以提出来,研发部进行维护和版本发布,直接维护...
设计报表时数据源可连接的类型有:各种数据库、XML或JSON文件、产生XML或JSON的网络URL、EXCEL文件、TEXT文件。 8、设计器增加数据提供事件接口,在设计报表时可以用给报表加载自定义数据源。 ★打印与打印预览: 1...
◆ 171.htm 开发网络应用的5个技巧 ◆ 172.htm 利用RAS调用在VB6.0中实现拨号上网 ◆ 173.htm 利用VB提取HTML文件中的EMAIL地址 ◆ 174.htm 枚举出局域网上所有网络资源 ◆ 175.htm 面向...
是微软的xml解析器,有些使用比如vb6.0等不支持xml的语言写的程序会用到。如果不装这个东西,这些程序的有关xml文件处理的部分就会出问题。
Tomcat6.0数据源可以在context.xml文件下配置,也可以在web.xml下配置,本人建议在context.xml文件下配置,因为每当有改动,即时可以监测到,如果在web.xml下配置要重启才能监测到....
PHP CSS makefile ASCII艺术(.nfo) doxygen ini文件 批处理文件 Javascript ASP VB/VBS SQL Objective-C RC资源文件 Pascal Perl Python Lua TeX TCL 汇编语言 Ruby Lisp Scheme Properties Diff Smalltalk Post...