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/viewtopic.php?f=3&t=32170&p=191127&hilit=MEMOREAD#p191127

[cmsoft]

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

Code: Select all  Expand view

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]

viewtopic.php?f=6&t=31022&p=179139&hilit=TTxtFile#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