Foxtable(狐表)用户栏目专家坐堂 → json 编写格式 多个code码


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

主题:json 编写格式 多个code码

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
json 编写格式 多个code码  发帖心情 Post By:2017/10/13 0:01:00 [只看该作者]

老师,多个code码要怎么写呢?
{
   "card_id": "pDF3iY0_dVjb_Pua96MMewA96qvA",
   "code": [
       "11111",
       "22222",
       "33333",
       "44444",
       "55555"
   ]
}

Dim url As String = "http://api.weixin.qq.com/card/code/deposit?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("card_id") = "pPYXKt0eyQiWv4uIyKnNSHtaRbsc"
jo("code") = {"12350","12351"}  这样写是不对的,要怎么写呢。。。特别是用表格,没100个code循环提交一次。
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20171013000420.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/10/13 0:04:07编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/13 8:51:00 [只看该作者]

参考

 

Dim jo As New JObject
jo("Name") = "张三"
jo("Group") = "VIP"
Dim ja As New Jarray '定义数组
ja.Add("manager")
ja.Add("developer")
jo("Roles") = ja '将Roles设置为前面定义的数组
Output.Show(jo.ToString)

 


 回到顶部