[Z]XML 编程简介

Posted by 蒋波涛 1 March,2007 Views (3)Comment

XML是一种用于存储数据和传递数据的metaLanguage，它的主要目的是保存数据，而不是象HTML一样，即携带数据又保存显示格式。XML的数据显示是由CSS来实现的。

XML数据是由一个或多个Element组成的：
Element, 指形如<Name>Tom<Name>的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference. <Name></Name>被称为标记，tag。即Element是由tags包括的文本单元。
Attribute, 指在<Employee id=”12345”>中的粗体部分。
Comment，指形如： 的节点。
Text，指在<Name>Tom<Name>的粗体部分。
CDATA是包含在XML中的程序段，这些程序段不被xml的解析器解析，它们被放在<!CDATA[***]]之中。

我们使用XML文件，是需要一个XML解析器的，这些解析器很多，如微软的MSXML、Xerces2等。这些解析器分两种类型，一是树型解析器DOM，它是W3C推荐的；一种是事件驱动解析器SAX。MSXML可以支持两种解析模型。DOM解析模型在解析XML文件的时候，会将XML全部载入内存中进行验证；SAX解析模型则不会，它只获取需要解析的节点部分。

与程序一样，XML文件也可能遇到两个元素的tag名一致，却有完全不一样意思的情况，如何避免这种冲突呢？Java使用呢包，.NET使用了命名空间的概念。同样，在XML中，我们也可以使用NameSpace这个概念来区分两个同名的tag。
命名空间是使用统一资源标识符URI来设置的：xmlns:namespace-prefix="namespace"，如xmlns:f=http://www.w3schools.com/furniture。

<f:table xmlns:f="http://www.w3schools.com/furniture">
<f:name>African Coffee Table</f:name>
<f:width>80</f:width>
<f:length>120</f:length>
</f:table>

在VB中使用XML，必须加载一个开发包MSXML2（当然也有别的许多版本的XML处理库）。下面是在做log的时候用到的一些代码开发。

1. XML 文档操作
1.1 加载一个XML文档 [objDoc现在载有一个xml文件，我们对xml的处理就是对objDoc的处理]
Dim objDoc As New XmlDocument()
objDoc.Load("Sample.xml")

1.2 加载一个XML数据 [这种方式是加载一个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 保存文档 [将objDoc中的数据保存到一个xml文件中]
'—Save xml document
objDoc.Save("Sample.xml")

2 XML 数据的查询
最常见的XML数据类型有：Element, Attribute，Comment, Text.
在XML中，可以用XmlNode对象来参照各种XML数据类型。我们对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 节点 [这种方式是用来查询Text的]
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)
3.6 给XML文件添加Prolog
   Dim pi As IXMLDOMProcessingInstruction    //这段代码是给XML文件添加Prolog的
   Set pi = xmldoc.createProcessingInstruction("xml", "version='1.0' encoding='gb2312'")
   xmldoc.insertBefore pi, xmldoc.childNodes(0)//xmldoc在文档第一行处添加这个文档元信息

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>

[Z]XML 编程简介

Related Items

Comments

Leave a comment

目录

存档

关于我

Posts

评论

留言

收藏

链接