大佬教程收集整理的这篇文章主要介绍了VB.NET 操作xml,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
<?xml version="1.0" encoding="gb2312"?> <bookstore> <book @H_801_22@genre="fantasy"@H_801_22@ ISBN="2-3631-4"> <title>Oberon's Legacy</title> <author>Corets,Eva</author> <price>5.95</price> </book> </bookstore>往<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")结果为:
:4px; border:1px solid black; BACkground-color:rgb(237,Eva</author> <price>5.95</price> </book> <book @H_801_22@genre="李赞红"@H_801_22@ ISBN="2-3631-4"> <title>CS从入门到精通</title> <author>候捷</author> <price>58.3</price> </book> </bookstore>修改节点:将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显示所有数据。
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所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。