XML一些常用的操作代码

1. XML 文档操作
    1.1 加载一个XML文档
    Dim objDoc As New XmlDocument()
    '-- Load xml document Sample.xml
    objDoc.Load("Sample.xml")
   
    1.2 加载一个XML数据
     Dim objDoc As New XmlDocument()
     Dim strXML As String
     strXML = "<Employees><Employee id=”12345”><Employee_ID>12345</Employee_ID><Name>Zhang Bin</Name></Employee></Employees>"
   
     '-- Load xml data
     objDoc.Load(strXML)
   
    1.3 保存文档
    '—Save xml document
    objDoc.Save("Sample.xml")
   
    2 XML 数据的查询
    最常见的XML数据类型有：Element, Attribute，Comment, Text.
    Element, 指形如<Name>Tom<Name>的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference.
    Attribute, 指在<Employee id=”12345”>中的粗体部分。
    Comment，指形如：<!-- my comment --> 的节点。
    Text，指在<Name>Tom<Name>的粗体部分。
    在XML中，可以用XmlNode对象来参照各种XML数据类型。
    2.1 查询已知绝对路径的节点（集）
    objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee”)
    或者
    objNodeList = objNode.SelectNodes(“/Company/Department/Employees/Employee”)
    以上两种方法可返回一个NodeList对象，如果要返回单个节点可使用SelectSingleNode方法，该方法如果查询到一个或多个节点，返回第一个节点；如果没有查询的任何节点返回 Nothing。例如：
    objNode = objNode.SelectSingleNode(“/Company/Department/Employees/Employee”)
    If Not (objNode is Nothing) then
     ‘- Do process
    End If
    2.2 查询已知相对路径的节点（集）
    可使用类似于文件路径的相对路径的方式来查询XML的数据
    objNode = objDoc.SelectSingleNode(“Company/Department”)
    objNodeList = objNode.SelectNodes(“../Department)
    objNode = objNode.SelectNode(“Employees/Employee”)
    2.3 查询已知元素名的节点（集）
    在使用不规则的层次文档时，由于不知道中间层次的元素名，可使用//符号来越过中间的节点，查询其子，孙或多层次下的其他所有元素。例如：
    objNodeList = objDoc.SelectNodes(“Company//Employee”)
    2.4 查询属性（attribute）节点
    以上的各种方法都返回元素（element)节点（集），返回属性（attribute），只需要采用相应的方法，在属性名前加一个@符号即可，例如：
    objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee/@id”)
    objNodeList = objDoc.SelectNodes(“Company//@id”)
    2.5 查询Text节点
    使用text()来获取Text节点。
    objNode = objDoc.SelectSingleNode(“Company/Department/Deparmt_Name/text()”)
    2.6 查询特定条件的节点
    使用[]符号来查询特定条件的节点。例如：
    a. 返回id号为 10102的Employee节点
     objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee[@id=’10102’]”)
    b. 返回Name为Zhang Qi的Name 节点
     objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee/Name[text()=’Zhang Qi’]”)
    c. 返回部门含有职员22345的部门名称节点
    objNode = objDoc.SelectSingleNode("Company/Department[Employees/Employee/@id='22345']/Department_Name")
    2.7 查询多重模式的节点
    使用 | 符号可以获得多重模式的节点。例如：
    objNodeList = objDoc.SelectNodes(“Company/Department/Department_Name | Company/Department/Manager”)
    2.8 查询任意子节点
    使用*符号可以返回当前节点的所有子节点。
    objNodeList = objDoc.SelectNodes(“Company/*/Manager)
    或者
    objNodeList = objNode.ChildNodes
   
    3 XML数据的编辑
    3.1 增加一个元素的属性（attribute）节点
    Dim objNodeAttr As XmlNode
     objNodeAttr = objDoc.CreateAttribute("id", Nothing)
     objNodeAttr.InnerXml = "101"
    objNode.Attributes.Append(objNodeAttr)
    3.2 删除一个元素的属性
    objNode.Attributes.Remove(objNodeAttr)
    3.3 增加一个子元素（Element）
    Dim objNodeChild As XmlNode
    objNodeChild = objDoc.CreateElement(Nothing, "ID", Nothing)
    objNodeChild.InnerXml = "101"
    objNode.AppendChild(objNodeChild)
    3.4 删除一个子元素
    objNode.RemoveChild(objNodeChild)
    3.5 替换一个子元素
    objNOde.ReplaceChild(newChild,oldChild)
   
    4 参考数据
    <?xml version="1.0" encoding="UTF-8"?>
    <Company>
     <Department id="101">
     <Department_Name>Cai WuBu</Department_Name>
     <Manager>Zhang Bin</Manager>
     <Employees>
     <Employee id="12345">
     <Employee_ID>12345</Employee_ID>
     <Name>Zhang Bin</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="10101">
     <Employee_ID>10101</Employee_ID>
     <Name>Zhang QI</Name>
     <Gender>female</Gender>
     </Employee>
     <Employee id="10102">
     <Employee_ID>10102</Employee_ID>
     <Name>Zhang Xia</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="10201">
     <Employee_ID>10201</Employee_ID>
     <Name>ZhangChuang</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="10202">
     <Employee_ID>10202</Employee_ID>
     <Name>Zhang Jun</Name>
     <Gender>male</Gender>
     </Employee>
     </Employees>
     </Department>
     <Department id="102">
     <Department_Name>KaiFa Bu</Department_Name>
     <Manager>Wang Bin</Manager>
     <Employees>
     <Employee id="22345">
     <Employee_ID>22345</Employee_ID>
     <Name>Wang Bin</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="20101">
     <Employee_ID>20101</Employee_ID>
     <Name>Wang QI</Name>
     <Gender>female</Gender>
     </Employee>
     <Employee id="20102">
     <Employee_ID>20102</Employee_ID>
     <Name>Wang Xia</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="20201">
     <Employee_ID>20201</Employee_ID>
     <Name>Wang Chuang</Name>
     <Gender>male</Gender>
     </Employee>
     <Employee id="20202">
     <Employee_ID>20201</Employee_ID>
     <Name>Wang Jun</Name>
     <Gender>male</Gender>
     </Employee>
     </Employees>
     </Department>
    </Company>

4:向目标XML文件添加新节点

<%@import namespace='system.xml'%>
<%
System.Xml.XmlDocument userdom1=new System.Xml.XmlDocument,userdom2,userdom3;
userdom1.load (Server.MapPath("user.xml"));            //装载需要操作的XML文件
userdom2=userdom1.selectSingleNode("alluser");         //操作游标指向alluser节点,句柄给userdom2变量
userdom3=userdom1.createElement("fyw");                //新创建一名为fyw的节点,并将句柄给userdom3变量
userdom3.setAttribute("name","风云舞");                //为userdom3添加节点属性,新属性名为name,值为风云舞
userdom3.setAttribute("pass","123");
userdom3.innerText="测试";                             //设置userdom3节点所包含的数据
userdom2.AppendChild(userdom3);                        //userdom2即alluser节点下添加userdom3所描述的fyw节点
userdom1.save (Server.MapPath("user.xml"));            //将变动后的新XML数据保存到user.xml
%>

5:修改XML节点

<%@import namespace='system.xml'%>
<%
XmlDocument userdom1=new XmlDocument(),userdom2;
userdom1.load (Server.MapPath("user.xml"));
userdom2=userdom1.selectSingleNode("alluser").getElementsByTagName("fyw");    //操作游标指向alluser节点下的fyw节点
userdom2(0).setAttribute("name","风云舞");             //设定fyw节点数组的第一个,将其name属性值修改为风云舞
userdom2(0).innerText="测试";                          //设定fyw节点数组的第一个,将其所包含的数据改为测试
userdom1.save (Server.MapPath("user.xml"));            //将变动后的新XML数据保存到user.xml
%>

6:查找判断XML节点是否存在

<%@import namespace='system.xml'%>
<%
XmlDocument userdom1=new XmlDocument()
userdom1.load (Server.MapPath("user.xml"));            //装载需要操作的XML文件
//以下正是本人为什么要用“用户帐号”标识用户唯一身份的目的，查找方便呀：）
if(userdom1.selectSingleNode("alluser").getElementsBytagname("fyw").count!=0)
    t2("fyw节点以存在");
%>

7:批量添加XML节点（在编写回复帖子时，用第4例提到的方法一个一个填加节点很麻烦，这时可以考虑用此方法批量填加）

<%@import namespace='system.xml'%>
<%
XmlDocument filedom=new XmlDocument(),filedom2;
filedom.load(Server.MapPath("data/" & Request.QueryString["dex"]));    //request.querystring("dex")=6.xml
filedom2=filedom.createElement("reply");
//以下这种方法很方便，而且对XML文件的结构排版也很好，合理的空格和回车可以表现良好的XML文档结构
filedom2.innerXml=vbcrlf + "        <anthor>" + session("who") + "</anthor>/n"    + "        <date>" + System.DataTime.Now.ToString()+ "</date>/n" + "        <gengxindate>" + System.DataTime.Now.ToString()+    "</gengxindate>/n        <body>" + neirong.value + "</body>/n        ";
filedom.selectSingleNode("document/record").appendChild(filedom2);
filedom.save(Server.MapPath("data/" + Request.QueryString["dex"]));    //request.querystring("dex")=6.xml
%>

8:删除XML节点

<%@import namespace='system.xml'%>
<%
XmlDocument userdom1=new XmlDocument(),userdom2;
userdom1.load (Server.MapPath("user.xml"));
userdom1.documentElement.removeChild (userdom1.selectSingleNode("alluser/fyw"));    //删除alluser节点下的所有fyw节点
userdom1.save (Server.MapPath("user.xml"));
%>

9:创建新的XML文件（可以创建任何类型后缀的文件，不局于XML文件）

<%@import namespace='system.io'%>
<%
dim newfile=new StreamWriter(server.mappath("data/" & new DirectoryInfo(server.mappath("data")).getfiles().length+1 & ".xml"),false,System.Text.Encoding.Default)
'以上我们指定默认编码方式为System.Text.encoding.default,或者可改为System.Text.encoding.GetEncoding("gb2312"),不然将以UTF8编码那样XML含有中文就无法正常工作了
newfile.write ("<?xml version=" & chr(34) & "1.0" & chr(34) & " encoding=" & chr(34) & "gb2312" & chr(34) & "?>" & _
vbcrlf & "<?xml-stylesheet type='text/xsl' href='../file.aspx?dex=" & filelength+1 & ".xml'?>" & vbcrlf & _
"<document>" & vbcrlf & "     <record>" & vbcrlf & "     <anthor>" & session("who") & "</anthor>" & vbcrlf & _
"     <title>" & server.HTMLEncode(biaoti.value) & "</title>" & vbcrlf & "     <date>" & now & "</date>" & vbcrlf & _
"     <gengxindate>" & now & "</gengxindate>" & vbcrlf & "     <body>" & server.HTMLEncode(neirong.text) & "</body>" & vbcrlf & _
"     </record>" & vbcrlf & "</document>")
newfile.close:newfile=nothing
%>

10:删除指定文件

<%@import namespace='system.io'%>
<%file.delete(server.mappath("data/2.xml"))%>