Artículo publicado en la revista FoxPress en julio-agosto de 2006. Algunos datos, versiones y funciones citados (MySQL, PHP, Visual FoxPro, Windows) pueden haber quedado desfasados.
LOCAL oXml as Microsoft.XMLHTTP
oXml = CreateObject("Microsoft.XMLHTTP")
oXml.open("GET","http://www.fpress.com/fpress.rss.xml")
oXml.send()
local cXml
DO WHILE oXml.readyState<>4
DOEVENTS
ENDDO
cXml=oXml.responseBody
XMLToCursor(cXml,"channel")
BROWSE nowait
** VFP9
** cCadena = StrExtract(cXml,"<rss",">",1,4)
** VFP7,8
cCadena = "<rss"+StrExtract(cXml,"<rss",">")+">"
**
cXml=StrExtract(cXml,"<item>","</channel>")
XMLToCursor(cCadena+"<item>"+cXml+"</rss>","items")
BROWSE nowaitUn ejemplo de lo anterior sería esta pantalla en la que nos trae el contenido de http://www.fpress.com/fpress.rss.xml y al hacer doble clik en el Grid nos abre el link correspondiente.
¿Quieres llevar la IA a los datos de tu empresa?
En una auditoría gratuita de 30 minutos vemos qué caso concreto te ahorraría más trabajo.
Reservar mi auditoría →