以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这种JSON格式应该怎么写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191336)
--  作者：blackzhu
--  发布时间：2024/4/11 14:06:00
--  这种JSON格式应该怎么写?
[
                {
                    name: \'全球财经\',
                    y: 10,
                    sliced: true,
                    selected: true
                },
                [\'宏观经济\',   15.0],
                [\'货币市场\',   20.0],
                [\'外汇市场\',   15.0],
                [\'债券市场\',   5.0],
                [\'大宗商品\',   35.0],
            ]
--  作者：有点蓝
--  发布时间：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
--  发布时间：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]
        }]
--  作者：有点蓝
--  发布时间：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)