解析json，试了好多个方法还是提取不了，请高手指点一下

hai167

解析json，试了好多个方法还是提取不了，请高手指点一下，例如我现在要取advice_result对应的值，没有真正理解json结构的解析，有劳高手点开我一下，非常感谢。

json字符串
{
    "return_code": "OK",
    "result_code": "SUCCESS",
    "result": {
        "return_code": "OK",
        "result_code": "SUCCESS",
        "result": {
            "rm_code": 0,
            "message": "pass",
            "body": {
                "report": "{\"title\":\"保理企业报告\",\"ent_name\":\"腾讯数码(深圳)有限公司\",\"ent_id\":\"914403007938536006\",\"time\":\"2018-10-18 17:02:08\",\"version\":[{\"autorun\":\"V1.0\",\"time\":\"2018-10-18 17:02:08\"}],\"strategy_1\":{\"block_title\":\"初审决策结果\",\"advice_result\":0,\"id\":\"cus_first_review_verify_6718\",\"children\":[{\"type\":\"ruleset\",\"id\":\"cus_first_review_verify_8538\",\"name\":\"行业禁入\",\"children\":[{\"type\":\"rule\",\"id\":164,\"name\":\"行业禁入\",\"autorun\":{\"risk_result\":\"0\"}}]},{\"type\":\"ruleset\",\"id\":\"cus_first_review_verify_0736\",\"name\":\"其他禁入\",\"children\":[{\"type\":\"rule\",\"id\":165,\"name\":\"成立未满1年\",\"autorun\":{\"risk_result\":\"0\"}},{\"type\":\"rule\",\"id\":166,\"name\":\"外资企业\",\"autorun\":{\"risk_result\":\"0\"}},{\"type\":\"rule\",\"id\":167,\"name\":\"近12个月大股东出现变更\",\"autorun\":{\"risk_result\":\"0\"}},{\"type\":\"rule\",\"id\":168,\"name\":\"近12个月法人代表出现变更\",\"autorun\":{\"risk_result\":\"0\"}}]}]},\"buyer_info\":{\"block_title\":\"买方信息\",\"data\":[]},\"memo\":{\"block_title\":\"备注\",\"text\":\"\"}}"
            }
        }
    }



网上方法1

    Set x = CreateObject("ScriptControl"): x.Language = "JScript"
    Set y = x.eval("eval(" & JSONString & ")")
    MsgBox y.Result.Result.body.report.strategy_1.advice_result       '报错
  

网上方法2  
    Set oDom = CreateObject("htmlfile")
    Set oWindow = oDom.parentWindow
    oWindow.execScript "var o=" & JSONString
    MsgBox oWindow.o.Result.Result.body.report.strategy_1.advice_result     '报错

以及怎么循环report里所有的值

json字符串.rar (657 Bytes, 下载次数: 11)

2018-10-18 18:01 上传

点击文件名下载附件

chis3

要留意
有些得出的字串要自己diy的
可能要在最前或最後加入方括號 "[" "]"
因為這是大數組的形式,沒了這個會不能讀

zmj9151

注意观察本地窗口对象的变化情况，这是我解析出的结果，运行正常
oWindow.execsCript "var js=" & sTemp '赋值给对象a
Set obj = oWindow.eval("js.result.result.body") 'ok

s = obj.report '得到body后面的JSON数据
Rem 此时查看obj,发现只一个reprot属性,值为一个json对象

oWindow.execsCript "var js2=" & s  'json对象js2

Set obj2 = oWindow.js2
Debug.Print oWindow.eval("js2.strategy_1.block_title") 'ok
Rem 输出 初审决策结果

Debug.Print oWindow.eval("js2.strategy_1.advice_result") 'ok
Rem 输出 0

hai167

zmj9151 发表于 2018-10-18 20:53
注意观察本地窗口对象的变化情况，这是我解析出的结果，运行正常
oWindow.execsCript "var js=" & sTemp ' ...

非常感谢，白天上班再试试。

hai167

zmj9151 发表于 2018-10-18 20:53
注意观察本地窗口对象的变化情况，这是我解析出的结果，运行正常
oWindow.execsCript "var js=" & sTemp ' ...

试过没有问题，谢谢。

理解了后用另外一种方法也能提取到了
        Set JSON = CreateObject("MSScriptControl.ScriptControl")
        JSON.Language = "JScript"
        JSONPath = "result.result.body.report"
        JSONParse = JSON.eval("JSON=" & JsonResult & ";JSON." & JSONPath & ";")
        
        JSONPath = "strategy_1.advice_result"
        Get_First_Verify_Result = JSON.eval("JSON=" & JSONParse & ";JSON." & JSONPath & ";")

cunfu2010

hai167 发表于 2018-10-19 12:00
试过没有问题，谢谢。

理解了后用另外一种方法也能提取到了

提示语法错误

cunfu2010

zmj9151 发表于 2018-10-18 20:53
注意观察本地窗口对象的变化情况，这是我解析出的结果，运行正常
oWindow.execsCript "var js=" & sTemp ' ...

为什么要分步解析，能解释一下吗？

zmj9151

因为按正常的解析步骤出错了，你观察立即窗口，result属性返回的是一串字符串，具体为什么我也不清楚