卡卡網(wǎng)

VB使用MSXML2對象，有個load()方法，可以加載XML文件，不過它只能加載本地的XML文件，不能加載遠程XML URL。

VB里沒有直接加載遠程XML URL的方法。

因此，我們需要做一些額外工作，以使VB也能獲得遠程XML URL的數(shù)據(jù)。

這就是本文要做的事情。

解決思路

上一篇文章中，我們介紹了VB讀取XML本地文件的寫法，并且還介紹了VB保存UTF-8編碼的XML文件的方法，結(jié)合起來，現(xiàn)在只需用VB獲得遠程XML URL的內(nèi)容。請注意，獲取到的內(nèi)容只是一堆XML字符串，不能當做XML的對象來使用的。我們把這些內(nèi)容（字符串）保存到本地XML文件，最后再讀取這個XML文件。整個過程比直接取得XML多走了一步，但這個方法實現(xiàn)起來還是可行的。

下面是實現(xiàn)代碼，親測有效。

實現(xiàn)代碼

下面是獲得遠程URL內(nèi)容的代碼

Dim xmlUrl
xmlUrl = "你要讀取的XML URL"
   
Dim strHtml As String
Dim ReturnText As String, ReturnByte() As Byte, XMLObject As Object
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open "GET", xmlUrl, False
XMLObject.setRequestHeader "If-Modified-Since", "Thu, 01 Jan 1970 00:00:00 GMT"
XMLObject.send
strHtml = XMLObject.responseText

strHtml變量的值就是你要讀取的XML URL內(nèi)容。請注意，獲取到的內(nèi)容只是一堆XML字符串，不能當做XML的對象來使用的。

接下來，我們要把這些字符串保存到本地XML文件，這就是前面介紹的VB保存UTF-8編碼的XML文件的方法。

我們最后還要加載這個XML文件對象，目的是讓它能被后面的程序讀取，這又用到了前面介紹的VB讀取XML本地文件的寫法。

經(jīng)過這一過程后，就達到了我們的預(yù)期目的了。

總結(jié)

還是不建議大家用VB編寫程序了，因為它的利用底層的東西來編寫代碼，工作效率十分低，比如加載遠程XML文件，若用C#或VB.NET，幾行代碼就搞定了，開發(fā)能力強太多了，我們會節(jié)省很多的時間。

標簽: VB