XML一些常用的操作代码

wapysun

浏览: 21536421 次
性别:
来自: 杭州

最近访客更多访客>>

devcang

hunankeda110

辽东小小

apex53

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

2012-06 ( 77)
2012-05 ( 587)
2012-04 ( 177)
更多存档...

XML 数据结构 XSL

1.XML文档操作
1.1加载一个XML文档
DimobjDocAsNewXmlDocument()
'--LoadxmldocumentSample.xml
objDoc.Load("Sample.xml")

1.2加载一个XML数据
DimobjDocAsNewXmlDocument()
DimstrXMLAsString
strXML="<Employees><Employeeid=”12345”><Employee_ID>12345</Employee_ID><Name>ZhangBin</Name></Employee></Employees>"

'--Loadxmldata
objDoc.Load(strXML)

1.3保存文档
'—Savexmldocument
objDoc.Save("Sample.xml")

2XML数据的查询
最常见的XML数据类型有：Element,Attribute，Comment,Text.
Element,指形如<Name>Tom<Name>的节点。它可以包括：Element,Text,Comment,ProcessingInstruction,CDATA,andEntityReference.
Attribute,指在<Employeeid=”12345”>中的粗体部分。
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”)
IfNot(objNodeisNothing)then
‘-Doprocess
EndIf
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为ZhangQi的Name节点
objNode=objDoc.SelectSingleNode(“Company/Department/Employees/Employee/Name[text()=’ZhangQi’]”)
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

3XML数据的编辑
3.1增加一个元素的属性（attribute）节点
DimobjNodeAttrAsXmlNode
objNodeAttr=objDoc.CreateAttribute("id",Nothing)
objNodeAttr.InnerXml="101"
objNode.Attributes.Append(objNodeAttr)
3.2删除一个元素的属性
objNode.Attributes.Remove(objNodeAttr)
3.3增加一个子元素（Element）
DimobjNodeChildAsXmlNode
objNodeChild=objDoc.CreateElement(Nothing,"ID",Nothing)
objNodeChild.InnerXml="101"
objNode.AppendChild(objNodeChild)
3.4删除一个子元素
objNode.RemoveChild(objNodeChild)
3.5替换一个子元素
objNOde.ReplaceChild(newChild,oldChild)

4参考数据
<?xmlversion="1.0"encoding="UTF-8"?>
<Company>
<Departmentid="101">
<Department_Name>CaiWuBu</Department_Name>
<Manager>ZhangBin</Manager>
<Employees>
<Employeeid="12345">
<Employee_ID>12345</Employee_ID>
<Name>ZhangBin</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="10101">
<Employee_ID>10101</Employee_ID>
<Name>ZhangQI</Name>
<Gender>female</Gender>
</Employee>
<Employeeid="10102">
<Employee_ID>10102</Employee_ID>
<Name>ZhangXia</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="10201">
<Employee_ID>10201</Employee_ID>
<Name>ZhangChuang</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="10202">
<Employee_ID>10202</Employee_ID>
<Name>ZhangJun</Name>
<Gender>male</Gender>
</Employee>
</Employees>
</Department>
<Departmentid="102">
<Department_Name>KaiFaBu</Department_Name>
<Manager>WangBin</Manager>
<Employees>
<Employeeid="22345">
<Employee_ID>22345</Employee_ID>
<Name>WangBin</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="20101">
<Employee_ID>20101</Employee_ID>
<Name>WangQI</Name>
<Gender>female</Gender>
</Employee>
<Employeeid="20102">
<Employee_ID>20102</Employee_ID>
<Name>WangXia</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="20201">
<Employee_ID>20201</Employee_ID>
<Name>WangChuang</Name>
<Gender>male</Gender>
</Employee>
<Employeeid="20202">
<Employee_ID>20201</Employee_ID>
<Name>WangJun</Name>
<Gender>male</Gender>
</Employee>
</Employees>
</Department>
</Company>

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

<%@importnamespace='system.xml'%>
<%
System.Xml.XmlDocumentuserdom1=newSystem.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节点

<%@importnamespace='system.xml'%>
<%
XmlDocumentuserdom1=newXmlDocument(),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节点是否存在

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

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

<%@importnamespace='system.xml'%>
<%
XmlDocumentfiledom=newXmlDocument(),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节点

<%@importnamespace='system.xml'%>
<%
XmlDocumentuserdom1=newXmlDocument(),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文件）

<%@importnamespace='system.io'%>
<%
dimnewfile=newStreamWriter(server.mappath("data\"&newDirectoryInfo(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("<?xmlversion="&chr(34)&"1.0"&chr(34)&"encoding="&chr(34)&"gb2312"&chr(34)&"?>"&_
vbcrlf&"<?xml-stylesheettype='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:删除指定文件

<%@importnamespace='system.io'%>
<%file.delete(server.mappath("data\2.xml"))%>