zoukankan      html  css  js  c++  java
  • xml读

    引用:http://sanbook.iteye.com/blog/304889

    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"

  • 相关阅读:
    PostgreSQL数据库管理:定期vacuum
    关于压力测试的思路
    作业自动提示功能设计思路
    This system is not registered with RHN
    读《高性能建站指南》(上)
    Ubuntu下PostgreSQL数据库集群(PL/Proxy)配置方法
    PG SQL数据库读写分离的思路
    ASP.NET知识点的明晰(非原创,东拼西凑的,向这些内容的原创者致敬)
    [转]Effective C#原则4:用条件属性而不是#if
    如何在Word文档中插入一条分隔线?
  • 原文地址:https://www.cnblogs.com/sode/p/2242099.html
Copyright © 2011-2022 走看看