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 = "12345Zhang Bin"
'-- Load xml data
objDoc.Load(strXML)
1.3 保存文档
'—Save xml document
objDoc.Save("Sample.xml")
2 XML 数据的查询
最常见的XML数据类型有：Element, Attribute，Comment, Text.
Element, 指形如Tom的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference.
Attribute, 指在中的粗体部分。
Comment，指形如： 的节点。
Text，指在Tom的粗体部分。
在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 参考数据
Cai WuBu
Zhang Bin
12345
Zhang Bin
male
10101
Zhang QI
female
10102
Zhang Xia
male
10201
ZhangChuang
male
10202
Zhang Jun
male
KaiFa Bu
Wang Bin
22345
Wang Bin
male
20101
Wang QI
female
20102
Wang Xia
male
20201
Wang Chuang
male
20201
Wang Jun
male