Visual Basic para Aplicaciones - Obtener datos xml

Life is soft - evento anual de software empresarial
 
Vista:

Obtener datos xml

Publicado por Dani Bellido (4 intervenciones) el 22/01/2009 10:28:38
Hola, os explico, un programa me genera unos ficheros de texto a partir de un xml, estos ficheros de texto mantienen la estructura de un xml, por lo que pense en renombrarlos a .xml y asi obtener los datos utilizando el "MSXML2.DOMDocument" de la siguiente manera:

Dim objParser As Object
Set objParser = CreateObject("MSXML2.DOMDocument")

'Dim objParser As MSXML2.DOMDocument
'Set objParser = New MSXML2.DOMDocument

'Amb la seguent linia fem que en el .Load no es validi el xml perque no falli al intentar obrir un xml convertit
objParser.validateOnParse = False
'Carreguem el XML convertit per obtenir el tracking de l'enviament/recollida que genera el UPS WorldShip
If (objParser.Load(sPath)) Then
Dim xNode As Object
Dim xNodeList As Object
'Dim xNode As MSXML2.IXMLDOMNode
'Dim xNodeList As MSXML2.IXMLDOMNodeList

'Carreguem la llista del Element del xml que ens interesi en xNodeList (CustomerID)
Set xNodeList = objParser.getElementsByTagName("CustomerID")
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder