卡卡网

VB使用MSXML2对象，有个load()方法，可以加载XML文件，不过它只能加载本地的XML文件，不能加载远程XML URL。

VB里没有直接加载远程XML URL的方法。

因此，我们需要做一些额外工作，以使VB也能获得远程XML URL的数据。

这就是本文要做的事情。

解决思路

上一篇文章中，我们介绍了VB读取XML本地文件的写法，并且还介绍了VB保存UTF-8编码的XML文件的方法，结合起来，现在只需用VB获得远程XML URL的内容。请注意，获取到的内容只是一堆XML字符串，不能当做XML的对象来使用的。我们把这些内容（字符串）保存到本地XML文件，最后再读取这个XML文件。整个过程比直接取得XML多走了一步，但这个方法实现起来还是可行的。

下面是实现代码，亲测有效。

实现代码

下面是获得远程URL内容的代码

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内容。请注意，获取到的内容只是一堆XML字符串，不能当做XML的对象来使用的。

接下来，我们要把这些字符串保存到本地XML文件，这就是前面介绍的VB保存UTF-8编码的XML文件的方法。

我们最后还要加载这个XML文件对象，目的是让它能被后面的程序读取，这又用到了前面介绍的VB读取XML本地文件的写法。

经过这一过程后，就达到了我们的预期目的了。

总结

还是不建议大家用VB编写程序了，因为它的利用底层的东西来编写代码，工作效率十分低，比如加载远程XML文件，若用C#或VB.NET，几行代码就搞定了，开发能力强太多了，我们会节省很多的时间。

标签: VB