
10/04/2003, 11:36
|
 | | | Fecha de Ingreso: julio-2002
Mensajes: 167
Antigüedad: 22 años, 9 meses Puntos: 1 | |
Vale, pongo el código. No lo he puesto antes porque quizá es un poco enrevesado y no vale la pena, pero ahí va:
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.loadXML(strXMLResults)
Set objRoot = objXMLDoc.documentElement
Set objNode_Subscription = objRoot.selectSingleNode("Subscription")
Set objNodeList = objXMLDoc.getElementsByTagName("Result")
For i=0 To objNodeList.length-1
Set objNode_Result = objNodeList.item(i)
Set objNode2 = objNode_Result.selectSingleNode("DAV_getcontenttyp e")
tipoContenido = CStr(objNode2.text)
cadBusqueda = "image"
pos = InStr(tipoContenido, cadBusqueda)
If (pos <> 0) Then
objNode_Subscription.removeChild(objNode_Result)
End If
Next
Bueno, os explico lo que quiero hacer. Tengo un xml bastante complejo (en la variable strXMLResults), y quiero quitarle los nodos que cumplen cierta condición (nodos con el tag <Result>). Esta condición es que tengan un nodo hijo (con el tag <DAV_getcontenttype>) cuyo contenido tenga la palabra "image". Pues para poder hacer todo esto y recorrer el XML me creé el objeto Microsoft.XMLDOM sobre el xml que tengo almacenado en la variable.
En fin, todo esto va bien (o eso creo!), es decir, que le he quitado los nodos que quería al objeto XML. Pero claro, el resultado lo tengo que guardar de nuevo en la variable strXMLResults, y este es mi problema, que no se como pasar el objeto XML a un string.
¿Alguna ayuda?
Saludos y gracias! |