¿Hay algún problema con VBS al extraer contenido XML?
dim xDoc, xNode, xNodes
dim pFile
dim i, n
pFile="d:\xml_test.xml"
set xDoc=CreateObject("MSXML2.DOMDocument")
si xDoc.load(pFile) entonces
'Información del encabezado
set xNodes=xDoc.documentElement.selectNodes(".//Head")
n=xNodes(0).childNodes.length-1
redim arr(n) 'Declaración An la matriz almacena la información obtenida
para i=0 a n
set xNode=xNodes(0).childNodes(i)
arr(i)= xNode .baseName amp; space(1) amp; xNode.Text
siguiente
'Información INFORMACIÓN
set xNodes=xDoc.documentElement.selectNodes(" ./ /INFO")
i=n
n=n xNodes.length
redim preserve arr(n)
para cada xNode en xNodes
i=i 1
arr(i) =xNode.childNodes(0).baseName amp; /p>
siguiente
'Escribir archivo txt
dim fso, oFile
pFile="d:\xml_text.txt"
Establecer fso = CreateObject("Scripting.FileSystemObject")
Establecer oFile = fso.CreateTextFile(pFile, True)
oFile.Write(join(arr, vbcrlf))
oFile.Close
set oFile=nada
set fso=nada
msgbox "¡El archivo txt se escribió correctamente! "
else
msgbox "¡Falló la carga del archivo XML! "
finalizar si
establecer xNode=nada
establecer xNodes=nada
establecer xDoc=nada