apertura archivo txt

[kpidata2016]

Estimados, tengo el siguiente problema.. genero un archivo JSON, en formato TXT, del cual tengo una linea de texto, del cual debo recuperar uns datos, que me recomiendan usar
FOPEN() o MEMOREAD()..

El archivo se llama reporte.txt y la linea que sigue es:
{"ok":true,"folio":"125"}
de aca deseo capturar el nro, para lo cual deseo usar substr() o usar memoline()... disculpen, pero ando algo oxidado en esto.

Atte.,

[karinha]

http://forums.fivetechsupport.com/viewt ... AD#p191127

[cmsoft]

Podrias usar las funciones para menejo de archivos, algo asi como

Code: Select all

Han := LOPEN("reporte.txt")
DO WHILE .t.
   clinea := SPACE(25)
   nBytes := FREAD(Han,@clinea,25)
   IF nBytes < 1
      EXIT
   ENDIF
   nnumero := VAL(SUBSTR(clinea,20,3))
ENDDO

[jbrita]

http://forums.fivetechsupport.com/viewt ... le#p179139

[jbrita]

con esto te sirvira

cls

esOK :=Substr(memoread("c:\ribon\reporte.txt"),3,2) //saca el ok
largo:=Len(memoread("c:\ribon\reporte.txt")) //calcula el largo del archivo reporte.txt
campo:=substr(memoread("c:\ribon\reporte.txt"),1,largo-2) //variable para sacar estos 2 simbolos "}
folio:=substr(campo,21) //saca el folio apartir de la variable campo
If esOK="ok" //pregunta si esOK=ok
? "si"
? folio
Else
? "no"
Endif


saludos