使用vb.net 修改xml文件中的数据

修改节点：将genre属性值为“李赞红“的节点的genre值改为“update李赞红”，将该节点的子节点的文本修改为“亚胜”。

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