FiveTech Software tech support forums

... la forma de pasar un XML a Hash, y encontré una función de Rafa Carmona, tomado ideas de esa función, escribí esta otra función, utilizando TXmlDocument: FUNCTION XMLToHash(cXMLFile)   LOCAL oXmlDoc, oRoot, hResult      TRY      oXmlDoc := TXmlDocument():New(cXMLFile)  ...

Hola a todos, Estoy intentando cambiar el valor de un Tag en un XML (su valor no el Tag en si) y no doy con el METHOD de esta clase. Dónde puedo encontrar con qué método de la clase puedo cambiarlo? Muchas gracias, Editado ======= Así lo hago: oTagRemisionVoluntariaIncidencia:cData := "Stres&qu...

... Hola Fivewinners Need to open 160.000+ xml files and extract some info Necesito abrir mas de 160.000 archivos xml y sacar informacion I use tXmlDocument class Uso la clase TxmlDocument I have the file names in an Array Tengo los nombres de los archivos en un arreglo     For X=1 to 160.xxx  ...

... Hola Fivewinners Need to open 160.000+ xml files and extract some info Necesito abrir mas de 160.000 archivos xml y sacar informacion I use tXmlDocument class Uso la clase TxmlDocument I have the file names in an Array Tengo los nombres de los archivos en un arreglo     For X=1 to 160.xxx  ...

... facil y mucho menos más clara. Saludos Soy de la opinión que un XML debería tratarse con las funciones específicas para ello, por ejemplo: oDoc := TXMLDocument():New() oDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI, 'xml' , , "version='1.0' encoding='ISO-8859-1'" ) ) oDocument := ...

... Build 9200 Time from start: 0 hours 0 mins 2 secs Error occurred at: 10/11/2023, 06:24:00 Error description: Error BASE/1004 Message not found: TXMLDOCUMENT:CURNODE Args: [ 1] = O TXMLDOCUMENT

kajot wrote:How can I use
oText:ReadLine()

with
TXmlDocument():New( )

KAJOT

what do you need to use that for?

How can I use
oText:ReadLine()

with
TXmlDocument():New( )

KAJOT

... nXml := '<?xml version="1.0" encoding="UTF-8"?>'+CRLF nXml += cText Else nXml := cXml cNodo:= cProc EndIf oXmlDoc := TXmlDocument():new( nXml ) IF oXmlDoc:nStatus != HBXML_STATUS_OK RETURN cRet ENDIF oNode := oXmlDoc:findfirst(cNodo) If oNode != Nil If lNodo xmlNode ...

How read xml file size 10Mb cFileName:='test.xml' I am using oXmlDoc := TXmlDocument():new( ) // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE IF oXmlDoc:nStatus != HBXML_STATUS_OK Msginfo( "error file .XML" ) Break ENDIF oXmlDoc:read( Memoread( cFileName ...

... with "New" highlighted. I'll play with some Export/Save As routines, as this proceeds. This is has some real potential, Antonio. Class TXmlDocument() provides XML error detection support, so we have already included it: https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip ...

Class TXmlDocument() provides XML error detection support, so we have already included it:
https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip

Silvio, now you can check the error in your XML file! Anyhow, we get the error description but no idea what the error is yet

... NTOCMONTH(), BEFORATNUM(), HHASKEY(), ADDMONTH(), EOM(), TIMETOSEC(), OS_ISWTSCLIENT(), NUMAT(), ANSITOWIDE(), AFTERATNUM(), EXENAME(), TXMLDOCUMENT(), HSETCASEMATCH(), GETACTIVEOBJECT(), CREATEOBJECT(), HB_GETFILESINZIP(), HB_UNZIPOPEN(), HB_UNZIPFILEFIRST(), HB_UNZIPFILEINFO(), HB_UNZIPFILEOPEN(), ...

... Terminated at: 2019-06-09 08:54:10 Unrecoverable error 9006: hb_xgrab can't allocate memory Called from HBXML_DATAREAD(0) Called from (b)TXMLDOCUMENT(0) in xhb\txml.prg Called from TXMLDOCUMENT:READ(0) in xhb\txml.prg Called from TXMLDOCUMENT:NEW(0) in xhb\txml.prg Called from _STARTUP(133) ...

... Sample Code /********* nXmlMax := LEN(aXmlFile) cXmlFile := aXmlFile[nXmlMax,1] cStart := TIME() hFile := FOpen( cSource + cXmlFile ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil cTagName := ...