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

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！