leer una página web con vb6
Publicado por ismael (28 intervenciones) el 30/05/2012 16:33:13
Hola a todos,
estoy intentando leer una página web que muestra un xml directamente. Lo hago con DOMDocument, aquí les pego un trozo de código:
Dim objXML As DOMDocument
Dim nodes As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Dim childs As MSXML2.IXMLDOMNode
Set objXML = New DOMDocument
objXML.Load(<url>)
Set nodes = objXML.selectNodes("//PRODUCT")
lngNodos = 1
For Each node In nodes
ReDim Preserve mtrPublicaciones(lngPublicaciones)
For Each childs In node.childNodes
Select Case childs.nodeName
Case "NAME"
mtrPublicaciones(lngPublicaciones).strPublicacion = childs.Text
Case "MAINCID"
mtrPublicaciones(lngPublicaciones).strMainCID = childs.Text
Case "PUBLISHER"
mtrPublicaciones(lngPublicaciones).strEditor = childs.Text
End Select
lngNodos = lngNodos + 1
Next
mtrPublicaciones(lngPublicaciones).strTipo = mtrUrls(intUrls).strTipo
lngPublicaciones = lngPublicaciones + 1
Next
Con esto lo que hago es leer los nodos hijos de los tags 'PRODUCT' y me lo guardo en una matriz.
Todo funciona perfectamente cuando debugeo, pero si lo lanzo directamente me salta una excepción de 'Error de Automatización' en 'For Each node In nodes'.
¿A alguien se le ocurre por que puede ser?
Gracias.
estoy intentando leer una página web que muestra un xml directamente. Lo hago con DOMDocument, aquí les pego un trozo de código:
Dim objXML As DOMDocument
Dim nodes As MSXML2.IXMLDOMNodeList
Dim node As MSXML2.IXMLDOMNode
Dim childs As MSXML2.IXMLDOMNode
Set objXML = New DOMDocument
objXML.Load(<url>)
Set nodes = objXML.selectNodes("//PRODUCT")
lngNodos = 1
For Each node In nodes
ReDim Preserve mtrPublicaciones(lngPublicaciones)
For Each childs In node.childNodes
Select Case childs.nodeName
Case "NAME"
mtrPublicaciones(lngPublicaciones).strPublicacion = childs.Text
Case "MAINCID"
mtrPublicaciones(lngPublicaciones).strMainCID = childs.Text
Case "PUBLISHER"
mtrPublicaciones(lngPublicaciones).strEditor = childs.Text
End Select
lngNodos = lngNodos + 1
Next
mtrPublicaciones(lngPublicaciones).strTipo = mtrUrls(intUrls).strTipo
lngPublicaciones = lngPublicaciones + 1
Next
Con esto lo que hago es leer los nodos hijos de los tags 'PRODUCT' y me lo guardo en una matriz.
Todo funciona perfectamente cuando debugeo, pero si lo lanzo directamente me salta una excepción de 'Error de Automatización' en 'For Each node In nodes'.
¿A alguien se le ocurre por que puede ser?
Gracias.
Valora esta pregunta


0