读取XML文件的节点内的内容
<?xml version="1.0" encoding="utf-8" ?> <data> <tag3>15</tag3> <tag6>14</tag6> </data>
Private Function GetXML(ByVal name As String) As String Dim path As String Dim xx As String = "" path = Application.StartupPath + "\xbd.xml" '文件的地址,相对位置 Try Dim reader As New Xml.XmlTextReader(path) reader.ReadToFollowing(name) '读取到文件指定的节点处,如tag3 xx = reader.ReadString '读取里面的值 reader.Close() Catch ex As Exception xx = -1 End Try Return xx End Function