标题：这种JSON格式应该怎么写?

1楼

blackzhu 发表于：2024/4/11 14:06:00

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

2楼

有点蓝 发表于：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)

3楼

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]
        }]

4楼

有点蓝 发表于：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)

共4 条记录, 每页显示 10 条, 页签: [1]