這樣一個函數添加到您的代碼背後(我只是轉換這從C#,所以你可能需要改變一些東西):
Private Shared Function ReadValueFromXML(ValueToRead As String) As String
Try
Dim doc As New XPathDocument(System.Web.HttpContext.Current.Server.MapPath("filenameOfYourXML.xml"))
Dim nav As XPathNavigator = doc.CreateNavigator()
Dim expr As XPathExpression
expr = nav.Compile(Convert.ToString("/") & ValueToRead)
Dim iterator As XPathNodeIterator = nav.Select(expr)
While iterator.MoveNext()
Return iterator.Current.Value
End While
Return String.Empty
Catch
Return String.Empty
End Try
End Function
不要忘了在代碼中添加這些import語句背後還有:
Imports System.Xml
Imports System.Xml.XPath
而當你使用它,讓我們假設你想獲得FormWidth值:
Dim FormWidth As String = ReadValueFromXML("FormWidth")
ÿ你會不必要的努力。這個「太高級的課程」已經有很好的文檔記錄並且經過了充分測試,在互聯網上有很多例子。在你的例子上打一個' ... < '包裝。 –
MSalters