VB.NET中操作xml文件（插入节点、修改、删除）（转载）
2012-11-08 16:39:50| 分类： VB.NET | 标签： |字号大中小 订阅
已知有一个XML文件（bookstore.xml）如下： <?xml version="1.0" encoding="gb2312"?> <bookstore> <book genre="fantasy" ISBN="2-3631-4"> <title>Oberon's Legacy</title> <author>Corets, Eva</author>
<price>5.95</price> </book> </bookstore>
1、往<bookstore>节点中插入一个<book>节点： Dim xmlDoc As New XmlDocument() xmlDoc.Load("bookstore.xml") Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '查找<bookstore> Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '创建一个<book>节点
xe1.SetAttribute("genre", "李赞红") '设置该节点genre属性 xe1.SetAttribute("ISBN", "2-3631-4") '设置该节点ISBN属性 Dim xesub1 As XmlElement = xmlDoc.CreateElement("title") xesub1.InnerText = "CS从入门到精通" '设置文本节点
xe1.AppendChild(xesub1) '添加到<book>节点中 Dim xesub2 As XmlElement = xmlDoc.CreateElement("author") xesub2.InnerText = "候捷" xe1.AppendChild(xesub2) Dim xesub3 As XmlElement = xmlDoc.CreateElement("price") xesub3.InnerText = "58.3" xe1.AppendChild(xesub3) root.AppendChild(xe1) '添加到<bookstore>节点中
xmlDoc.Save("bookstore.xml") //===============================================
结果为： <?xml version="1.0" encoding="gb2312"?> <bookstore>
<book genre="fantasy" ISBN="2-3631-4"> <title>Oberon's Legacy</title> <author>Corets, Eva</author>
<price>5.95</price> </book> <book genre="李赞红" ISBN="2-3631-4"> <title>CS从入门到精通</title>
<author>候捷</author> <price>58.3</price>
</book> </bookstore>
2、修改节点：将genre属性值为“李赞红“的节点的genre值改为“update李赞红”，将该节点的子节点<author>的文本修改为“亚胜”。
Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes '获取bookstore节点的所有子节点 Dim xn As XmlNode For Each xn In nodeList '遍历所有子节点 Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型 If xe.GetAttribute("genre") = "李赞红" Then '如果genre属性值为“李赞红” xe.SetAttribute("genre", "update李赞红") '则修改该属性为“update李赞红” Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点
Dim xn1 As XmlNode For Each xn1 In nls '遍历 Dim xe2 As XmlElement = CType(xn1, XmlElement) '转换类型 If xe2.Name = "author" Then '如果找到
xe2.InnerText = "亚胜" '则修改 Exit ForEach '找到退出来就可以了 End If Next xn1 Exit ForEach End If Next xn xmlDoc.Save("bookstore.xml") '保存。
//================================================== 最后结果为： <?xml version="1.0" encoding="gb2312"?> <bookstore> <book genre="fantasy" ISBN="2-3631-4"> <title>Oberon's Legacy</title> <author>Corets, Eva</author>
<price>5.95</price> </book> <book genre="update李赞红" ISBN="2-3631-4"> <title>CS从入门到精通</title>
<author>亚胜</author> <price>58.3</price>
</book> </bookstore> 3、删除 <book genre="fantasy" ISBN="2-3631-4">节点的genre属性，删除 <book genre="update李赞红" ISBN="2-3631-4">节点。 Dim xnl As XmlNodeList = xmlDoc.SelectSingleNode("bookstore").ChildNodes Dim xn As XmlNode For Each xn In xnl Dim xe As XmlElement = CType(xn, XmlElement) If xe.GetAttribute("genre") = "fantasy" Then xe.RemoveAttribute("genre") '删除genre属性 Else If xe.GetAttribute("genre") = "update李赞红" Then xe.RemoveAll() '删除该节点的全部内容 End If End If Next xn xmlDoc.Save("bookstore.xml") //===========================================
最后结果为： <?xml version="1.0" encoding="gb2312"?>
<bookstore> <book ISBN="2-3631-4"> <title>Oberon's Legacy</title> <author>Corets, Eva</author>
<price>5.95</price> </book> <book>
</book> </bookstore> 4、显示所有数据。 Dim xn As XmlNode = xmlDoc.SelectSingleNode("bookstore") Dim xnl As XmlNodeList = xn.ChildNodes Dim xnf As XmlNode For Each xnf In xnl Dim xe As XmlElement = CType(xnf, XmlElement) Console.WriteLine(xe.GetAttribute("genre")) '显示属性值
Console.WriteLine(xe.GetAttribute("ISBN")) Dim xnf1 As XmlNodeList = xe.ChildNodes Dim xn2 As XmlNode For Each xn2 In xnf1 Console.WriteLine(xn2.InnerText) '显示子节点点文本 Next xn2 Next xnf
原文地址:http://blog.csdn.net/jcc3120/articles/1899399.aspx
创建
Dim XmlWrite As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter("d:\book.xml", System.Text.Encoding.UTF8) XmlWrite.WriteStartDocument() '开始一个文档，写下图第一行
XmlWrite.WriteStartElement("bookstore") '开始一个元素,根元素
XmlWrite.WriteStartElement("book") '开始一个元素book XmlWrite.WriteAttributeString("name", "大闹天宫") '元素属性name XmlWrite.WriteAttributeString("id", "001") '元素属性id XmlWrite.WriteElementString("author", "小罗") '写一个元素 XmlWrite.WriteEndElement() '关闭元素book
XmlWrite.WriteEndElement() '关闭元素bookstore
XmlWrite.WriteEndDocument() '文档结束
XmlWrite.Flush() '刷新
XmlWrite.Close() '关闭
Dim oXMLDoc As New XmlDocument oXMLDoc.Load("d:\book.xml") Me.TextBox1.Text = oXMLDoc.OuterXml
