Fox Desde Guate

Recientemente para un proyecto en el que estoy trabajando, (un lector de orígenes RSS, para blogs), me tope con el problema de como cargar un RSS en XML a un cursor en vfp, pues por más que le movía al XMLToCursor y al XMLAdapter no lograba ver todas las entradas, así que probando probando y leyendo un poco sobre XML dí con la forma de hacerlo

Básicamente consiste en seleccionar la referencia a IXMLDOMElement que nos brinda el XMLAdapter, y hacer uso del metodo SelectNodes que este nos brinda.

Un breve ejemplo de lo que hablo:

Local loXml As Xmladapter, loItems As Collection
loXml = Createobject("XMLAdapter")
luNonXML = .F.
lcFileName = Getfile("xml")
Try
	loXml.LoadXML(lcFileName,.T.)
Catch To loError
	Messagebox("Error al procesar el XML, por favor revise que la URL del FEED del sitio sea correcta",48,"Error")
	luNonXML = .T.
	Set Step On
Endtry
If luNonXML
	Return .F.
Endif
loDom = loXml.IXMLDOMElement
loItems= loDom.SelectNodes("//item")
For lnCiclo = 0 To loItems.Length - 1
	Append Blank In qElementos
	lcOtros = []
	lcTitulo = []
	For lnItem = 0 To loItems.Item(lnCiclo).ChildNodes.Length -1
		loElem= loItems.Item(lnCiclo).ChildNodes.Item(lnItem)
		lcNodo =Upper(Alltrim(loElem.NodeName))
		Do Case
			Case lcNodo = [TITLE]
				lcTitulo = loElem.Text
				*			Case lcNodo =[CONTENT]
				*				Wait Window “Content:” + loElem.Text
				*			Case lcNodo = [DESCRIPTION] And Empty(Alltrim(qElementos.texto))
				*				Wait Window “Description:” + loElem.Text
				*			Case lcNodo = [LINK]
				*				Wait Window “URL:” + loElem.Text
				*			Case lcNodo = [CATEGORY]
				*				Wait Window “Category:” + loElem.Text
		Endcase
		lcOtros = lcOtros + loElem.NodeName + [:] + loElem.Text + Chr(13)+Chr(10)
	Endfor
	Messagebox(lcOtros,0,lcTitulo)
Endfor

Antes deben de guardar en su pc, un orígen de algún blog, como puede ser el de este blog:
http://fox.desdeguate.com/feed

(clic derecho, guardar como… y le ponen extensión xml )

Luego lo cargan con este simple programa y podran ir recorriendo cada uno de los atributos que el Feed nos de.

Para más información sobre el standard RSS: http://www.rss-specifications.com

Ojalá y mi bendito lector de RSS-VFP este a punto para ser lanzado

Creo que me acabo de dar cuenta que en realidad esto sirve para ATOM no para RSS 1.0
Saludos y hasta la próxima.

Trackback para este post | Suscribete a los comentarios de este post

Vea también: