读:
Dim xmlfile As String = filepath
Dim xmlD As New Xml.XmlDocument
xmlD.Load(xmlfile )
Dim xmldatabase As Xml.XmlNode
Dim xmlDBList As Xml.XmlNodeList = xmlD.SelectNodes("//AesTools//DataBase")
For Each xmldatabase In xmlDBList
databasename = xmldatabase.InnerText
Next
写:
Dim xmlD As New Xml.XmlDocument
Dim xmlE As Xml.XmlNode = xmlD.CreateNode(Xml.XmlNodeType.Element, "DataBase", "")
Dim xmlTmpNode As Xml.XmlNode = xmlD.SelectSingleNode("//AesTools")