删除一个xml文件的子节点与前一章修改xml文件的子节点类似,都需要获取根节点的所有子节点。
方法如下:
1.定义读取xml文件的变量:
Dim xmlDoc as New XmlDocument
xmlDoc.Load("bookstore.xml")
2.定义一个变量,获取根结点的所有子节点
Dim xNodeList as XmlNodeList =xmlDoc.selectSingleNode("bookstore").ChildNodes
3.做for循环,找到需要删除的子节点。这里删除genre属性为fantasy的genre属性,同时删除genre属性为update comedy的所有子节点
Dim xmlNode as XmlNode
For Each xmlNode In xNodeList
Dim xElement as xmlElement =CType(xmlNode,XmlElement)
If (xElement.GetAttribute("genre")="fantasy") Then //寻找genre=fantasy的节点
xElement.RemoveAttribute("genre") //删除genre属性
ElseIf xElement.GetAttribute("genre") ="update comedy" Then //寻找genre =update comedy的节点
xElement.RemoveAll() //删除该节点所有属性
End If
Next
4.保存所作的变换
xmlDoc.Save("bookstore.xml")