VB.NET中操作xml文件
来源:互联网 发布:网络推广工程师招聘 编辑:程序博客网 时间:2024/04/24 19:41
已知有一个XML文件(bookstore.xml)如下:
往<bookstore>节点中插入一个<book>节点:<?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>
结果为: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")
修改节点:将genre属性值为“李赞红“的节点的genre值改为“update李赞红”,将该节点的子节点<author>的文本修改为 “亚胜”。<?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>
显示所有数据。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
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
- VB.NET中操作xml文件
- VB.NET中操作xml文件
- vb.net中xml操作实例
- VB.NET 操作xml
- vb.net 操作xml
- .net实例:vb.net DataSet 操作xml文件
- VB.NET中操作xml文件(插入节点、修改、删除)
- VB.NET中操作xml文件(插入节点、修改、删除)
- VB.NET中操作xml文件(插入节点、修改、删除)(转载)
- [VB.NET]文件操作
- VB.net文件操作
- VB.NET 读写XML文件
- VB.NET读取 XML文件
- vb 如何操作xml文件
- VB.NET 从XML文件中读取内容到JSON
- .net中xml文件的操作
- .net中xml文件的基本操作
- 在VB中操作XML
- 不定参数的分析
- [转载]VS2008技巧收集
- C#WPF图形识别问题
- Bullet物理引擎不完全指南(Bullet Physics Engine not complete Guide)
- 也谈内存对齐
- VB.NET中操作xml文件
- MRP例外消息处理方法
- C#中读取数据库名,表名,列名
- 也谈内存对齐(续)
- ARM中常用的一些代表指令的符号
- sql查询本周本月本年
- VxWorks的两个调试命令
- 关于SmartForm和ScriptForm的输出格式设置说明(转载)
- 也谈内存对齐(续)