Necesito leer unas variables que me entregan en un fichero en formato XLM.
Existe alguna funci贸n para realizarlo.
Board index FiveWin para Harbour/xHarbour Leer variables de un fichero XLM
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)
............................................
.......................................
Un saludo,
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Manuel
xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
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;
En Harbour tienes que incluir la libreria de compatibilidad de xHarbour.
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;
#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 := NILEn Harbour tienes que incluir la libreria de compatibilidad de xHarbour.
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)