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


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

主题：[求助]编码生成JSON
帅哥哟，离线，有人找我吗？
天一生水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1141 积分：11272 威望：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": "黄晓明"
    }
  ]
}
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询