vb 操作xml方法总结

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