Foxtable(狐表)用户栏目专家坐堂 → [求助]编码生成JSON


  共有2399人关注过本帖平板打印复制链接

主题:[求助]编码生成JSON

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


加好友 发短信
等级:五尾狐 帖子:1137 积分:11224 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]编码生成JSON  发帖心情 Post By:2021/4/20 16:15:00 [只看该作者]

老师好!
我想得到下图中的格式,name不带引号,具体的值是单引号,并且name和value成为一行。需要怎样修改代码?


图片点击可在新窗口打开查看此主题相关图片如下:截屏图片.jpg
图片点击可在新窗口打开查看

代码:
Dim jo As New JObject
Dim ja As New JArray
jo("dept") = "销售部"
jo("mpr") = "赵刚"
jo("staff") =  ja '
ja.Add(New JObject) '给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("value") = 36
ja(0)("name") = "李云龙"
ja(1)("value") = 26
ja(1)("name") = "黄晓明"
Output.Show(jo.ToString)

输出结果:
{
  "dept": "销售部",
  "mpr": "赵刚",
  "staff": [
    {
      "value": 36,
      "name": "李云龙"
    },
    {
      "value": 26,
      "name": "黄晓明"
    }
  ]
}

 回到顶部