呵呵,先聲明一下,會的就不用看了,本人的水準很菜,也就用xml檔案配置一下軟體中的一些參數.xml檔案中的内容如下:
<?xml version="1.0" encoding="utf-8" ?>
<data>
<tag3>15</tag3>
<tag6>14</tag6>
</data>
通過一個函數來讀取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
每次隻能讀取一個值,效率不好,但總比沒有的強,如果檔案不存在或讀取錯誤,則傳回-1,是以判斷傳回值就行了.