Saludos Antonio / CoListeros
Existe alguna clase para creacion de archivos XML, veo en el foro de ingles que hacen la misma pregunta, tenemos para Leer, pero para crear con sus Nodos, atributos y demas ??
Ahora se puede modificar un archivo XML, utilizando la misma clase que se usa para leerlo, por ejemplo cambiar el valor de un Nodo especifico, ejemplo :
function 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, { | cKey, cValue | MsgInfo( cKey, cValue ) } )
// AQUI POR EJEMPLO como haria para grabar un nuevo valor en oTagActual:cData ??
Else
Exit
Endif
End
FClose( hFile )
return nil
Existe alguna clase para creacion de archivos XML, veo en el foro de ingles que hacen la misma pregunta, tenemos para Leer, pero para crear con sus Nodos, atributos y demas ??
Ahora se puede modificar un archivo XML, utilizando la misma clase que se usa para leerlo, por ejemplo cambiar el valor de un Nodo especifico, ejemplo :
function 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, { | cKey, cValue | MsgInfo( cKey, cValue ) } )
// AQUI POR EJEMPLO como haria para grabar un nuevo valor en oTagActual:cData ??
Else
Exit
Endif
End
FClose( hFile )
return nil
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m
Lima-Peru
xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m