Преобразование 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? Я не нахожу никакого обозначения As в https://msdn.microsoft.com/en-us/library/zexdsyc0%28v=vs.84%29.aspx

В VBScript просто использовать

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.