VFP轻松把JSON转换为缓冲表

TEXT TO cResult NOSHOW
{"id":1,"name":"ff1111","age":1}
ENDTEXT
oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg")
TEXT TO oReader.cursorstruct NOSHOW TEXTMERGE
id i,name c(50),age numeric(4)
ENDTEXT
oReader.Alias="test"  &&生成的临时表名
oReader.keylist="id" &&主键
*--第二个参数：缓冲表识别模式(0 自动  1 新增  2 编辑 3 删除)
*--第三个参数：如果键值是数组是否转换成JSON字符串
*--返回值:转换的记录行数｜-1（出错）
If oReader.parsecursor(cResult,0,.F.) <0
   ?oReader.msg
Else
   Browse
Endif

TEXT TO cResult NOSHOW
[{"id":1,"name":"ff","age":1},{"id":2,"name":"ff","age":1}]
ENDTEXT
oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg")
TEXT TO oReader.cursorstruct NOSHOW TEXTMERGE
id i,name c(50),age numeric(4)
ENDTEXT
oReader.Alias="test" 
oReader.keylist="id"
If oReader.parsecursor(cResult,0,.F.) <0
   ?oReader.msg
Else
   Browse
Endif

TEXT TO cResult NOSHOW
{"rows":[{"id":1,"name":"ff","age":1}]}
ENDTEXT
oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg")
TEXT TO oReader.cursorstruct NOSHOW TEXTMERGE
id i,name c(50),age numeric(4)
ENDTEXT
oReader.Alias="test" 
oReader.keylist="id" 
oReader.root="rows"  &&需要转换表的键的位置
If oReader.parsecursor(cResult,0,.F.) <0
   ?oReader.msg
Else
   Browse
Endif

TEXT TO cResult NOSHOW
{"mydata":{"rows":[{"id":1,"name":"ff","age":1}]}}
ENDTEXT
oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg") &&JSONÐòÁÐÀà
TEXT TO oReader.cursorstruct NOSHOW TEXTMERGE
id i,name c(50),age numeric(4)
ENDTEXT
oReader.Alias="test" 
oReader.keylist="id" 
oReader.root="mydata\rows"  &&层级用\来表示
If oReader.parsecursor(cResult,0,.F.) <0
   ?oReader.msg
Else
   Browse
Endif

TEXT TO cResult NOSHOW
{"mydata":{"name":"test"},"rows":[{"id":1,"name":"ff","age":1}]},}
ENDTEXT
oReader=Newobject("QiyuJsonReader","QiyuJsonReader.prg") TEXT TO oReader.cursorstruct NOSHOW TEXTMERGE
mydata C(20),rows c(240)
ENDTEXT
oReader.Alias="test" 
*--第三个参数表单转换JSON对象或数组为JSON字符串
If oReader.parsecursor(cResult,0,.T.) <0
   ?oReader.msg
Else
   Browse
Endif