卡卡網(wǎng)

VB使用MSXML2對(duì)象，有個(gè)load()方法，可以加載XML文件，不過(guò)它只能加載本地的XML文件，不能加載遠(yuǎn)程XML URL。

VB里沒(méi)有直接加載遠(yuǎn)程XML URL的方法。

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

這就是本文要做的事情。

解決思路

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

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

實(shí)現(xiàn)代碼

下面是獲得遠(yuǎ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)容。請(qǐng)注意，獲取到的內(nèi)容只是一堆XML字符串，不能當(dāng)做XML的對(duì)象來(lái)使用的。

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

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

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

總結(jié)

還是不建議大家用VB編寫(xiě)程序了，因?yàn)樗睦玫讓拥臇|西來(lái)編寫(xiě)代碼，工作效率十分低，比如加載遠(yuǎn)程XML文件，若用C#或VB.NET，幾行代碼就搞定了，開(kāi)發(fā)能力強(qiáng)太多了，我們會(huì)節(jié)省很多的時(shí)間。

標(biāo)簽: VB