Hola.
Necesito leer y generar archivos xml, 驴habra alguna clase para esto?
Muchas Gracias.
Jorge Jaurena
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Manejo de archivos XML
Hola Jorge,
Mira estos post de Thefull:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=4116&hilit=xml
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=4144&hilit=xml
Espero te ayuden,
Un saludo
Ernesto
Mira estos post de Thefull:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=4116&hilit=xml
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=4144&hilit=xml
Espero te ayuden,
Un saludo
Ernesto
Gracias por la respuesta, me resulto muy util, pero necesitaria manejar xml en Harbour, 驴se podra?
Harbour proporciona dos librer铆as para un uso muy eficiente de XML, ambas estan basadas en "Mini-XML":
http://www.minixml.org
Por un lado hay una versi贸n desarrollada por Giancarlo Nicolai, que usa el codigo de MXML (Mini-XML) pero lo adapta a Harbour. El c贸digo esta desarrollado en lenguaje C y posiblemente sea muy eficiente (poco consumo de memoria y mucha velocidad de ejecuci贸n). Estas rutinas forman parte de la libreria xhb.lib de Harbour (fu茅 un trabajo originalmente desarrollado para xHarbour y luego portado a Harbour).
La otra versi贸n son wrappers a MiniXML usando el c贸digo original de MiniXML. Est谩 en la carpeta hbmxml de contribs de Harbour. A ambas implementaciones se puede acceder desde el SVN en SourceForge de Harbour.
Aqui un ejemplo de uso de la implementaci贸n de Giancarlo:
xml1.prg
http://www.minixml.org
Por un lado hay una versi贸n desarrollada por Giancarlo Nicolai, que usa el codigo de MXML (Mini-XML) pero lo adapta a Harbour. El c贸digo esta desarrollado en lenguaje C y posiblemente sea muy eficiente (poco consumo de memoria y mucha velocidad de ejecuci贸n). Estas rutinas forman parte de la libreria xhb.lib de Harbour (fu茅 un trabajo originalmente desarrollado para xHarbour y luego portado a Harbour).
La otra versi贸n son wrappers a MiniXML usando el c贸digo original de MiniXML. Est谩 en la carpeta hbmxml de contribs de Harbour. A ambas implementaciones se puede acceder desde el SVN en SourceForge de Harbour.
Aqui un ejemplo de uso de la implementaci贸n de Giancarlo:
xml1.prg
#include "hbxml.ch"
PROCEDURE Main()
LOCAL cFile := hb_dirBase() + "test.xml"
LOCAL cString
LOCAL cNote, cDiscount
LOCAL oDoc, oBook, oIterator, oCurrent
cString := MemoRead( cFile )
IF Empty( cString )
WAIT "xml file unavailable"
RETURN
ENDIF
oDoc := TXmlDocument():New( cString, HBXML_STYLE_NOESCAPE )
IF oDoc:nError != HBXML_ERROR_NONE
WAIT "xml file parsing error " + Str( oDoc:nError )
RETURN
ENDIF
oBook := oDoc:findfirst( "book" )
IF oBook == NIL
WAIT "no books found"
RETURN
ENDIF
DO WHILE .T.
IF "id" $ oBook:aAttributes
? "book ID : " + oBook:aAttributes[ "id" ]
ELSE
? "no attribute book ID"
ENDIF
cNote := ""
cDiscount := ""
oIterator := TXmlIterator():New( oBook )
DO WHILE .T.
oCurrent := oIterator:Next()
IF oCurrent == NIL
? "end branch"
WAIT "values : " + cNote + " " + cDiscount
EXIT
ELSE
? "current tag : " + oCurrent:cName
IF oCurrent:cName == "note"
cNote := oCurrent:cData
ELSEIF oCurrent:cName == "discount"
cDiscount := oCurrent:cData
ENDIF
ENDIF
ENDDO
oBook := oDoc:findnext()
IF oBook == NIL
WAIT "no more books found"
EXIT
ENDIF
ENDDO
RETURNMuchas gracias Antonio, es justo lo que necesitaba.
Saludos