Foxtable(狐表)用户栏目专家坐堂 → 这种JSON格式应该怎么写?


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

主题:这种JSON格式应该怎么写?

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
这种JSON格式应该怎么写?  发帖心情 Post By:2024/4/11 14:06:00 [只看该作者]

[
                {
                    name: '全球财经',
                    y: 10,
                    sliced: true,
                    selected: true
                },
                ['宏观经济',   15.0],
                ['货币市场',   20.0],
                ['外汇市场',   15.0],
                ['债券市场',   5.0],
                ['大宗商品',   35.0],
            ]

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


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

Dim jo As New JObject
jo("Name") = "张三"
jo("y") = "10
Dim ja As New Jarray '定义数组
ja.Add(jo)
Dim ja1 As New Jarray 
ja1.Add("宏观经济")
ja1.Add(15.0)
ja.Add(ja1)
Output.Show(ja.ToString)

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2024/4/11 18:08:00 [只看该作者]

Dim yaowen() As Decimal = {15, 3, 24, 7, 2, 4}
Dim kuaixun() As Decimal = {12, 2, 23, 2, 1, 7}
Dim zixun() As Decimal = {13, 4, 24, 2, 5, 3}
Dim timestamps() As String = {"要闻", "快讯", "资讯"}


生成这个格式 怎么写?

[{
            name: '要闻',
            data: [15, 3, 24, 7, 2,4]
        }, {
            name: '快讯',
            data: [12, 2, 23, 2, 1,7]
        }, {
            name: '资讯',
            data: [13, 4,24, 2, 5,3]
        }]

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


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

Dim jo As New JObject
jo("Name") = "要闻"
Dim ja1 As New Jarray 
ja1.Add(15)
ja1.Add(3)
jo("data") = ja1
Dim ja As New Jarray '定义数组
ja.Add(jo)
jo = New JObject
jo("Name") = "快讯"
ja1= New Jarray 
ja1.Add(12)
ja1.Add(2)
jo("data") = ja1
ja.Add(jo)

 回到顶部