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


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

主题:json解析的问题

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


加好友 发短信
等级:幼狐 帖子:81 积分:1087 威望:0 精华:0 注册:2017/1/3 9:45:00
json解析的问题  发帖心情 Post By:2022/5/16 14:05:00 [只看该作者]

老师们好  现在在学习解析json数据,这个是收到前端传回的数据,想把filter 里面的属性名和属性值都循环出来 动态合成表达式 
{name : "订单总表",editcol : ['颜色','属性'], altercol:{ 颜色:'字段值' },filter : {产品名称:"冰箱", 颜色:"白色"}}




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


加好友 发短信
等级:超级版主 帖子:105476 积分:536371 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 14:11:00 [只看该作者]

Dim json As String = "前端传回的数据"
Dim jo As JObject = JObject.Parse(json)
For Each it As object In jo
    If typeof(it.value) Is JObject
        Dim jo2 As JObject = it.value
        For Each it2 As object In jo2
            Output.Show(it2.key & "-" & it2.value)
        Next
    ElseIf typeof(it.value) Is jarray
        For Each it2 As object In it.value
            Output.Show(it2)
        Next
    Else
        Output.Show(it.key & "-" & it.value)
    End If
Next

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


加好友 发短信
等级:幼狐 帖子:81 积分:1087 威望:0 精华:0 注册:2017/1/3 9:45:00
  发帖心情 Post By:2022/5/16 14:20:00 [只看该作者]

好的  谢谢老师

 回到顶部