FiveTech Software tech support forums

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

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

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