FiveTech Software tech support forums

... 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 := TxmlNode():New( HBXML_TYPE_TAG, ...

... nXml ) IF oXmlDoc:nStatus != HBXML_STATUS_OK RETURN cRet ENDIF oNode := oXmlDoc:findfirst(cNodo) If oNode != Nil If lNodo xmlNode := oXmlDoc:oRoot:oChild WHILE xmlNode != NIL cPath := xmlNode:Path() If xmlNode:nType=5 cRet :=xmlNode:cData Exit EndIf xmlNode := xmlNode:NextInTree() ENDDO Else ...

... files / strings and convert to JSON-HASH //----------------------------------------------------------------------------// CLASS TXmlToHash DATA oRoot DATA hHash INIT { => } DATA cXml INIT "" DATA cXmlString INIT "" DATA cValString INIT "" DATA aPairsVals INIT ...

... cStart := TIME() hFile := FOpen( cSource + cXmlFile ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil cTagName := "" cTagData := "" IF (oTagActual:cName != nil) cTagName ...

... I Get Num - Data - Value 1 cHeader <Protected> 2 nError 0 3 nLine 1 4 nNodeCount 0 5 nStatus 1 6 oErrorNode 7 oIterator <Protected> 8 oRoot Any help will be appreciated

... cXmlFile := aXmlFile[1,1] hFile := FOpen( cSource + cXmlFile ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil //MsgInfo( oTagActual:cName, oTagActual:cData ) // Init... cTagName := "" ...

... Main() local hFile := FOpen( "test.xml" ) Local oXmlDoc := TXmlDocument():New( hFile ) Local oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ), oTagActual while .T. oTagActual = oXmlIter:Next() If oTagActual != nil MsgInfo( oTagActual:cName, oTagActual:cData ) HEval( oTagActual:aAttributes, ...

... For more deails, see doc/hash.txt XML Support: ------------ hFile := FOpen( cFileName ) xmlDoc := TXmlDocument():New( hFile ) xmlNode := xmlDoc:oRoot:oChild cXml := xmlNode:Path() // there are methods to find nodes (but also attributes, values and data): xmlNode := xmlDoc:FindFirstRegex( cNode ...

... subTotal="506.00" hFile := FOpen(Archivo2) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) oDatos:Blank() aDatos := {} oXmlNode := oXmlDoc:FindFirst( "Header" ) DO WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil ...

... de leer un XML de la siguiente forma: hFile := FOpen(Archivo2) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) oDatos:Blank() aDatos := {} DO WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil HEval( oTagActual:aAttributes, { | cKey, cValue | ...

... abajo unas lineas con la idea : hFile := FOpen( cNomXml ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) while .T. oTagActual = oXmlIter:Next() If oTagActual != nil if alltrim(oTagActual:cName)=="cbc:IssueDate" // En este nodo quiero cambiar ...

... Main() local hFile := FOpen( "test.xml" ) Local oXmlDoc := TXmlDocument():New( hFile ) Local oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ), oTagActual while .T. oTagActual = oXmlIter:Next() If oTagActual != nil MsgInfo( oTagActual:cName, oTagActual:cData ) HEval( oTagActual:aAttributes, ...

... que para algunos (como Yo) no es muy facil de entender. Muchas gracias function Main() local oXml := TXmlDocument():New(), oNode oNode = oXml:oRoot:AddBelow( TXmlNode():New( 0, "FORM" ) ) oNode:AddBelow( TXmlNode():New( 0, "CAPTION",, "Hello world" ) ) oNode:AddBelow( ...

... ) IF hFile == -1 MsgStop("Erro ao abrir arquivo:"+cFileName) Return Nil ENDIF xmlDoc := TXmlDocument():New( hFile ) xmlNode := xmlDoc:oRoot:oChild DO WHILE xmlNode != NIL cNome:=xmlNode:cName if cNome=='WS_Busc_ProjetosResult' cXMLRetorno:=xmlNode:cData endif xmlNode := xmlNode:NextInTree() ...

... ) IF hFile == -1 MsgStop("Erro ao abrir arquivo:"+cFileName) Return Nil ENDIF xmlDoc := TXmlDocument():New( hFile ) xmlNode := xmlDoc:oRoot:oChild DO WHILE xmlNode != NIL cNome:=xmlNode:cName if cNome=='WS_Busc_ProjetosResult' cXMLRetorno:=xmlNode:cData endif xmlNode := xmlNode:NextInTree() ...