以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  json解析的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177287)

--  作者:as2565929355
--  发布时间:2022/5/16 14:05:00
--  json解析的问题
老师们好  现在在学习解析json数据,这个是收到前端传回的数据,想把filter 里面的属性名和属性值都循环出来 动态合成表达式 
{name : "订单总表",editcol : [\'颜色\',\'属性\'], altercol:{ 颜色:\'字段值\' },filter : {产品名称:"冰箱", 颜色:"白色"}}




--  作者:有点蓝
--  发布时间: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
--  发布时间:2022/5/16 14:20:00
--  
好的  谢谢老师