Leer variables de un fichero XLM

[Verhoven]

Necesito leer unas variables que me entregan en un fichero en formato XLM.
Existe alguna función para realizarlo.

[Manuel Aranda]

Un fichero XML lo puedes tratar como un fichero plano y abrirlo con Fopen.
Ej.:
cTexto=memoread( "FICHERO.XML" )
//
nHandle:=FOpen("FICHERO.XML", FO_READWRITE + FO_SHARED)
//
IF FERROR() !=0
TONE(500,2)
MsgInfo("Error de apertura del fichero "+cFichero)
ELSE
FSeek( nHandle, 0, FS_SET )
nPos=AT("<IDENTIFICADORPFISICA>",cTexto)
FSeek(nHandle,nPos+22)
FRead(nHandle,@cNif,9)
............................................
.......................................

[thefull]

Si bien la solución de Manuel Aranda es correcta, no creo que sea la solución, porque ¿ como deberías de obtener la propiedad ra del NODE1, si tenemos un XML de esta manera <NODE ra="jose"/> <NODE1 ra="pepe"/> ?

Para ello tienes clases relacionadas con XML, en este foro hay información sobre ello, ademas en xHarbour tienes en /doc documentación, pero a grandes rasgos;

Code: Select all  Expand view

#include "hbxml.ch"

  cXML := memoread( "tufichero.xml")

   oDoc := TXmlDocument():New( cXML )

  if oDoc:nStatus != HBXML_STATUS_OK
     cResponse := "Error While Processing File: " + AllTrim( Str( oDoc:nLine ) ) + " # "+;
                        "Error: " + HB_XmlErrorDesc( oDoc:nError ) + " # " +;
                        "Tag Error on tag: " + oDoc:oErrorNode:cName + " # " +;
                        "Tag Begin on line: " + AllTrim( Str( oDoc:oErrorNode:nBeginLine ) )
    RETURN cResponse
  endif

  oNode := oDoc:FindFirst( "NODE" )
  if oNode != NIL
    ?  oNode:GetAttribute( "ra" )   // Devuelve jose
  endif

 oDoc := NIL
 

En Harbour tienes que incluir la libreria de compatibilidad de xHarbour.