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.,
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))
ENDDOcon 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