TEXT TO cJsonstr noshow textme
{"errcode":0,"errmsg":"ok","answers":[{"id_type":1,"userid":"YaTou","report_values":[{"question_id":1,"multi_choice":[],"text":"张三","fileid":[]},{"question_id":2,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":3,"single_choice":5,"multi_choice":[],"fileid":[]},{"question_id":4,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":5,"multi_choice":[],"text":"35","fileid":[]},{"question_id":6,"multi_choice":[],"text":"11111111111","fileid":[]},{"question_id":7,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":8,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":9,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":10,"single_choice":1,"multi_choice":[],"fileid":[]}],"report_time":1650402627},{"id_type":1,"userid":"LaoJia","report_values":[{"question_id":1,"multi_choice":[],"text":"李四","fileid":[]},{"question_id":2,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":3,"single_choice":5,"multi_choice":[],"fileid":[]},{"question_id":4,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":5,"multi_choice":[],"text":"64","fileid":[]},{"question_id":6,"multi_choice":[],"text":"2222222222","fileid":[]},{"question_id":7,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":8,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":9,"single_choice":2,"multi_choice":[],"fileid":[]},{"question_id":10,"single_choice":1,"multi_choice":[],"fileid":[]}],"report_time":1650404903}]}
ENDTEXT

m.cJsonStr=[var json=]+cJsonstr+[;]
m.oJs=CREATEOBJECT("MSScriptControl.ScriptControl")
m.oJs.Language="jscript"
m.oJs.addCode(m.cJsonStr)  
m.oSon=m.oJs.CodeObject.json.answers
FOR EACH m.SubItem IN m.oSon
?m.SubItem.userid    &&取出userid
?m.SubItem.report_time    &&取出时间
m.oSon1=m.SubItem.report_values   &&上报的数据

*!*    FOR EACH m.SubItem1 IN m.oSon1
*!*    ?m.SubItem1.text    &&取出姓名
*!*    EXIT
*!*    ENDFOR
ENDFOR
RELEASE m.oJs

report_values后面有10项，每项有四个，如何全部取出其中的值？
例如：question_id：1
      multi_choice：[]
      text:张三
      fileid：[]

      question_id：2
      ................
请指教。谢谢

谢谢二位大佬，sdta版主给了我新的思路，JSON本来就是字符串，不一定必须使用JSON解析的。不过这个有个小小的遗憾，就是报文变化，需要重新编程，灵活性小一点，但是能解决问题。

我开始的帖子没有说明白，这个报文有两个人的数据，实际是有很多的。我原来想将数据取到一个表里，取值的方式是（举例）："userid"后面的"YaTou"值，然后是report_values后面的项，"question_id":1这个只是序号，不使用，需要的是他后面的"text"的值"张三"，"question_id": 7这个序号，需要的是 "single_choice"的值 2，"report_time"的值1650402627，然后将值写入一个数据表，再取第二个人的数据"userid"的值 "LaoJia"，依次类推，键只作为数据表的字段名，值写入数据表。不知道是否有好的解决方法？谢谢了。使用sdta版主的方法也能解决。使用JSON解析，如何实现？

[此贴子已经被作者于2022-4-28 10:22编辑过]