La Red de Conocimientos Pedagógicos - Currículum vitae - ¿Hay algún problema con VBS al extraer contenido XML?

¿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