- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- json 编写格式 多个code码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107937)
-- 发布时间：2017/10/13 0:01:00
-- json 编写格式 多个code码
老师，多个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编辑过]
-- 发布时间：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)