FiveTech Software tech support forums

Antonio,

I saw there is Txmldocument class but not is for fwh and I not time to try it

but I made a simply class to converte a dbf to xml


you can pubblish my class and renamed as TDBF2XML

More help.

See xHarbour\tests\xmltests.prg for example of using xHarbour's TXMLDocument class.

You should have this file even in the standard xHarbour setup (without CVS).

James

... Below is from an Bablefish translated message on the newgroup. ------------------------------------ We created the document IN MEMORY! oDoc: = TXmlDocument():New() We added different nodes: oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_PI, 'xml', ' version="1.0" encoding="iso-8859-1" ')) oDoc:oRoot:AddBelow(TxmlNode():New(HBXML_TYPE_COMMENT,, ...

I just looked in the xHarbour Language Reference Guide in the commercial version. There you will find information for TXmlDocument(), TXmlNode(), TXmlIterator(), etc.

... cFileName ) hFile := FOpen( cFileName ) If hFile = -1 Error_Msg( cFileName, "No se pudo abrir el fichero" + cFileName ) return endif oXmlDoc := TXmlDocument():New( hFile ) if oXmlDoc:nStatus != HBXML_STATUS_OK cError := "Error While Processing File: " + AllTrim( Str( oxmlDoc:nLine ) ) + " # ...

... y despues simplemente se guarda. Para ello, tan simple como este ejemplo, para sacaros de dudas: Creamos el documento EN MEMORIA!!! oDoc := TXmlDocument():New() Añadimos diferentes nodos: oDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI,'xml' , , 'version="1.0" encoding="iso-8859-1"' ) ...

... y su posterior grabación. Por favor, si este documento contiene erratas, no duden en señalar donde metí la gamba. En xHarbour, existen las clases TXmlDocument y compañia, realizadas por Giancarlo Niccolai, una gran persona y un grandísimo programador, que donó mucha parte de su tiempo a nuestro ...

Nicolas,

xharbour proporciona la clase TXmlDocument. Y tienes un ejemplo de uso en el directorio test de xharbour, xmltest.prg