VBScript 和 loadXML : Invalid at the top level of the document. 如何解决？

Question

这是我在 stackoverflow 上的要塞帖子。我在这个网站上搜索了许多类似的问答，但我的情况似乎有点不同。这是我的 vbscript 代码:

------------ 代码片段----------------

xmlurl = "songs.xml"

set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.loadXML(xmlurl)

if xmlDoc.parseError.errorcode<>0 then
  'error handling code
  msgbox("error! " & xmlDoc.parseError.reason)
end if

------------结束代码片段----------------

XML:

<?xml version="1.0" encoding="UTF-8"?>
<nowplaying-info-list>
  <nowplaying-info mountName="CKOIFMAAC" timestamp="1339771946" type="track">
    <property name="track_artist_name"><![CDATA[CKOI]]></property>
    <property name="cue_title"><![CDATA[HITMIX]]></property>
  </nowplaying-info>
  <nowplaying-info mountName="CKOIFMAAC" timestamp="1339771364" type="track">
    <property name="track_artist_name"><![CDATA[AMYLIE]]></property>
    <property name="cue_title"><![CDATA[LES FILLES]]></property>
  </nowplaying-info>
  <nowplaying-info mountName="CKOIFMAAC" timestamp="1339771149" type="track">
    <property name="track_artist_name"><![CDATA[MIA MARTINA]]></property>
    <property name="cue_title"><![CDATA[TOI ET MOI]]></property>
  </nowplaying-info>
</nowplaying-info-list>

我也尝试删除第一行以防 UTF-8 与 Windows 不兼容(看到一些关于此的帖子)，但我仍然遇到同样的错误。我还尝试了 unix2dos，反之亦然，以防出现回车问题(嵌入在 xml 中的隐藏字符)。我似乎无法弄清楚出了什么问题。它就是这样一个 simole XML 文件。我可以使用 perl regex 在几分钟内解析它，但我需要在 Windows 上运行这个脚本，所以使用 vbscript。我使用相同的技术从其他来源解析 XML，没有任何问题。不幸的是，我无法修改 XML，它来自外部源。我的 Windows Vista 家庭版和 Windows Server 2008 上都有完全相同的错误。到目前为止，我正在从命令行运行 vbscript 进行测试(即不在 ASP 中)。

提前致谢

山姆

Answer 1

xmlDoc.loadXML() 可以加载 XML 字符串。它无法检索 URL。

如果需要发出 HTTP 请求，请使用 XMLHTTPRequest 对象。

Function LoadXml(xmlurl)
  Dim xmlhttp

  Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
  xmlhttp.Open "GET", xmlurl, false

  ' switch to manual error handling
  On Error Resume Next

  xmlhttp.Send
  If err.number <> 0 Then 
    WScript.Echo xmlhttp.parseError.Reason
    Err.Clear
  End If 

  ' switch back to automatic error handling 
  On Error Goto 0

  Set LoadXml = xmlhttp.ResponseXml
End Function

像这样使用

Set doc = LoadXml("http://your.url/here")