将XML对象转换为字符串

Question

我需要将XML转换为字符串使用Vbscript。首先，我创建MSXML2.DomDocument对象并加载XML。

Dim XmlDoc 
Set XmlDoc = CreateObject("MSXML2.DomDocument") 
XmlDoc.Load(path_to_xml_file) 

然后我想这XmlDoc转换为字符串的所有标签。但有错误在此代码：

Dim xmltext As String 
xmltext = XmlDoc.xml 

我知道.text方法，但它没有标签只返回值。

如何解决？

Answer 1

你确定VBScript支持as，用于dim xmltext as String？是不是VB或VBA？我不觉得在https://msdn.microsoft.com/en-us/library/zexdsyc0%28v=vs.84%29.aspx

在VBScript的As任何记号只需使用

Dim xmltext 
xmltext = xmlDoc.xml 

Answer 2

如果您有没有必要解析XML，为什么还要用MSXML2.DomDocument呢？我只是将文件读入一个变量而不用担心它包含的内容。这里有一个例子：

Dim fs,t,x 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set t=fs.OpenTextFile("path_to_xml_file",1,false) 
x=t.ReadAll 
t.close 
Response.Write("The text in the file is: " & x) 

你可以阅读更多关于ReadAll here。