解析JSON如何统计数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 解析JSON如何统计数据

共有3661人关注过本帖树形打印复制链接主题：解析JSON如何统计数据

xluoping

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：368 积分：3759 威望：0 精华：0 注册：2016/4/2 12:11:00

解析JSON如何统计数据 发帖心情

Post By：2023/4/10 17:55:00 [只看该作者]

[{"id":"iddtd64","因数":["甲苯","乙苯","噪声"],"类别":["化学因素","物理因素"],"数量":5},{"id":"nnn6d4","因数":["二甲苯","乙苯","噪声"],"类别":["化学因素","物理因素"],"数量":10}]

如何用代码对以上JSON实例中统计出：

因数

甲苯：10

乙苯：15

噪声：15

二甲苯：10

类别

化学因素：15

物理因素：15

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110560 积分：562690 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/10 20:09:00 [只看该作者]

dim json as string = "上面的json....."

Dim ja As JArray = JArray.Parse(json)

dim dict as new dictionary(of string,integer)

Dim jo As JObject

For i As Integer = 0 To ja.Count - 1
jo =ja(i)

Dim ja2 As JArray = jo("因数")

For j As Integer = 0 To ja2.Count - 1
if dict.containskey(ja2(j).tostring) then

dict(ja2(j).tostring) += cint(jo("数量"))

else

dict.add(ja2(j).tostring,cint(jo("数量")))

end if

For Each k As string In dict.Keys '显示所有键及其对应的值
Output.Show(K & ":" & dict(k))
Next

主题：解析JSON如何统计数据