Foxtable(狐表)用户栏目专家坐堂 → 请教解析json数据的问题


  共有2041人关注过本帖树形打印复制链接

主题:请教解析json数据的问题

帅哥哟,离线,有人找我吗?
aqsunxj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1471 威望:0 精华:0 注册:2021/6/4 15:05:00
请教解析json数据的问题  发帖心情 Post By:2021/9/26 17:50:00 [只看该作者]

想对返回的json数据解析,调试阶段 相同的接口返回的数据
一、
{
  "status": true,
  "data": "该公司暂时没有法律诉讼信息"
}

二、
{
  "status": true,
  "data": {
    "total": 2,
    "list": [
      {
        "caseContent": "原告:阜阳市融资担保有限公司:729781444 被告:安徽拓鑫再生资源有限公司:934537734,被告:阜阳龙跃精密轴承有限公司:349403845",
        "caseReason": "追偿权纠纷",
        "pulishDate": "2019-12-30",
        "caseName": "阜阳市融资担保有限公司与阜阳龙跃精密轴承有限公司、安徽拓鑫再生资源有限公司追偿权纠纷一审民事判决书",
        "caseNo": "(2019)皖1202民初3769号"
      },
      {
        "caseContent": "原告:阜阳市融资担保有限公司:729781444 被告:安徽拓鑫再生资源有限公司:934537734,被告:阜阳龙跃精密轴承有限公司:349403845",
        "caseReason": "追偿权纠纷",
        "pulishDate": "2019-09-30",
        "caseName": "阜阳市融资担保有限公司诉阜阳龙跃精密轴承有限公司、安徽拓鑫再生资源有限公司追偿权纠纷一案民事判决书",
        "caseNo": "(2019)皖1202民初3769号"
      }
    ]
  }
}

如果该公司没有诉讼的时候返回的date是没有嵌套的。
用如下代码,显示出错。请教问题出在哪了呢?谢谢

Dim jo As JObject = Jobject.Parse(ClipBoard.GetText)
If jo("data")("list") IsNot Nothing Then
    For Each jt As JToken In jo("data")("list")
        Output.Show(jt("caseReason").ToString & " | " & jt("caseNo").ToString)
    Next
Else
output.Show(jo("data"))
End If

 回到顶部
帅哥哟,离线,有人找我吗?
benben325
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:163 积分:1471 威望:0 精华:0 注册:2021/8/9 16:05:00
  发帖心情 Post By:2021/9/26 18:12:00 [只看该作者]

dim str as string = jo("data").toString()
if str.contains("list") then
    For Each jt As JToken In jo("data")("list")
        Output.Show(jt("caseReason").ToString & " | " & jt("caseNo").ToString)
    Next
end if

 回到顶部
帅哥哟,离线,有人找我吗?
aqsunxj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1471 威望:0 精华:0 注册:2021/6/4 15:05:00
  发帖心情 Post By:2021/9/26 18:43:00 [只看该作者]

 收到 谢谢 老师

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106464 积分:541467 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/26 20:22:00 [只看该作者]

或者

Dim jo As JObject = Jobject.Parse(ClipBoard.GetText)
If Typeof jo("data") Is Jobject Then
    For Each jt As JToken In jo("data")("list")
        Output.Show(jt("caseReason").ToString & " | " & jt("caseNo").ToString)
    Next
Else
output.Show(jo("data"))
End If

 回到顶部
帅哥哟,离线,有人找我吗?
aqsunxj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1471 威望:0 精华:0 注册:2021/6/4 15:05:00
  发帖心情 Post By:2021/9/27 9:14:00 [只看该作者]

谢谢 蓝老师

 回到顶部