Private Sub xxx(ByVal xmlStr As String)
''初始化xml文档
Dim xmlDoc As New XmlDocument
''导入指定xml文件(存在则覆盖)
xmlDoc.Load(Server.MapPath("\") & "abc.xml")
''从指定字符串加载xml
xmlDoc.LoadXml(xmlStr)
''指定一个节点
Dim root As XmlNode
root = xmlDoc.SelectSingleNode("/userList")
''获取指定节点的文本
Dim str2 As String
str2 = root.InnerText
''判断该节点是否有子节点
Dim hasChildNodes As Boolean
hasChildNodes = root.HasChildNodes
''获取全部子节点
Dim xmlNodeList1 As XmlNodeList
xmlNodeList1 = root.ChildNodes
''获取同名同级集合
Dim xmlNodeList2 As XmlNodeList
xmlNodeList2 = xmlDoc.SelectNodes("/userList/user")
''注意元素与节点的区别
''生成新节点
Dim xmlEle As XmlElement
xmlEle = xmlDoc.CreateElement("NewNode")
''为指定节点新建属性并赋值
xmlEle.SetAttribute("id", "111")
''获取指定节点的指定属性值
Dim str1 As String
str1 = xmlEle.GetAttribute("id")
''将节点加到指定节点子节点列表末尾
root.AppendChild(xmlEle)
''将节点加到指定节点下某子节点前(后)
root.InsertBefore(xmlEle, root.ChildNodes.ItemOf(0))
''保存xml文件
xmlDoc.Save(Server.MapPath("/") + "abc.xml")
End Sub
vb 操作xml方法总结
最新推荐文章于 2017-12-20 11:46:31 发布