首先第一步用ScriptOjbect对象确定要读取的文件的位置,代码如下:
Public Shared Function GetUrl() As String
Dim location As ScriptObject = TryCast(HtmlPage.Window.GetProperty("location"),ScriptObject)
Dim r As Object = location.GetProperty("href")
Dim url As String = r.ToString().Substring(0,r.ToString().LastIndexOf("/"))
Return url
End Function
其次用WebClient对象以及uri对象下载xml文件,sans-serif;">Private Sub Init()
Dim uri As Uri = New Uri(GetUrl() + "/config.xml",UriKind.Absolute)
Dim client As WebClient = New WebClient()
AddHandler client.OpenReadCompleted,AddressOf OpenReadCompleted
client.OpenReadAsync(uri)
End Sub
最后用XMLReader对象对下载的XML文件进行加工处理,sans-serif;">Private Sub OpenReadCompleted(ByVal sender As Object,ByVal e As OpenReadCompletedEventArgs)
Dim stream As Stream = e.Result
Using reader As XmlReader = XmlReader.Create(stream)
reader.ReadToFollowing("TestData")
Dim testData As String = reader.ReadElementContentAsstring()
reader.ReadToNextSibling("TestData2")
Dim testData2 As String = reader.ReadElementContentAsstring()
End Using
End Sub
也许在Asp.net中微软的WebConfigurationManager对象以及ConfigurationManager对象也是这样工作的吧!哈哈,只是猜测!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。