vb 如何操作xml文件
发布时间:2020-12-17 08:17:34 所属栏目:百科 来源:网络整理
导读:XML文件如下: ?xml version="1.0" encoding="gb2312"? testlist test id1/id name自由飞翔/name time2007-12-7/time /test id2/id name自由/name /testlist Dim XMLDoc As DOMDocument Dim root As IXMLDOMNode Dim xlst As IXMLDOMNodeList,xlst1 As IXMLDO
XML文件如下:
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:exampletest.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:exampletest.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:exampletest.xml" (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |