- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 创建微信礼品卡货架多层嵌套json (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118725)
-- 发布时间：2018/5/9 16:04:00
-- 创建微信礼品卡货架多层嵌套json
此主题相关图片如下：微信截图_20180509160417.png
我这样写代码：
-- 发布时间：2018/5/9 16:10:00
--
主题名称那里相同的好像就只取一个了
-- 发布时间：2018/5/9 16:15:00
--
微信提供的示例：
{
"page": {
"page_title": "礼品卡",
"support_multi": true,
"banner_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"theme_list": [
{
"theme_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"title": "title1",
"title_color": "#FB966E",
"show_sku_title_first": true,
"item_list": [
{
"card_id": "pbLatjiSj_yVRH5XTb2Zsln7DNQg",
"title": "焦糖拿铁"
},
{
"card_id": "pbLatjlq75CPBR_tYCRdPlxSGlOs",
"title": "焦糖拿铁"
}
],
"category_index": 0
},
{
"theme_pic_url": "http://mmbiz.qpic.cn/mmbiz_jpg/p98FjXy8LafBWIJsGFe7tlPvtBFxXXTPdx5cEuFMcWWsiaR1DyrN5ML3jiaVYZibovA8OrwOylUia6ywvVU6Aqboibw/0",
"title": "title2",
"title_color": "#FB966E",
"item_list": [
{
"card_id": "pbLatjiSj_yVRH5XTb2Zsln7DNQg",
"title": "焦糖拿铁"
},
{
"card_id": "pbLatjlq75CPBR_tYCRdPlxSGlOs",
"title": "蛋糕"
}
],
"category_index": 1
},
],
"category_list": [
{
"title": "主题分类一"
},
{
"title": "主题分类二"
}
],
}
}
-- 发布时间：2018/5/9 16:38:00
--
Dim jo As new JObject
Dim ar As New JArray
Dim i As Integer = 0
For Each r1 As DataRow In DataTables("微信礼品卡货架").Select("主题分类名称 = \'分类一\'")
Dim ao As New JObject
ao("theme_pic_url") = r1("主题封面链接").Tostring
ao("title") = r1("主题名称").Tostring
ao("title_color") = r1("主题名称颜色").Tostring
ar.add(ao)
jo("page")("theme_list") = ar
Dim ar2 As New JArray
For Each r2 As DataRow In DataTables("微信礼品卡货架").Select("主题名称 = \'" & r1("主题名称") & "\'")
Dim ao2 As New JObject
ao2("card_id") = r2("卡券ID").tostring
ao2("title") = r2("商品名称").tostring
ao2("pic_url") = r2("商品缩略图链接").tostring
ao2("desc") = r2("商品简介").tostring
ar2.add(ao2)
Next
ao("item_list") = ar2
ao("category_index")= i
i += 1
Next
Dim ar4 As New JArray
Dim ao4 As New JObject
ao4("title") = "分类一"
ar4.add(ao4)
jo("page")("category_list") = ar4
\'hc.Content = jo.ToString()
\'jo = JObject.Parse(hc.GetData)
\'hc.GetData
output.show(jo.Tostring)
-- 发布时间：2018/5/9 18:00:00
--
甜老师，出现了这个情况：
此主题相关图片如下：微信截图_20180509175848.png
同一个主题名称下有3个商品，重复了3次，黄色的是重复的
-- 发布时间：2018/5/9 18:11:00
--
实例发上来测试。
-- 发布时间：2018/5/9 18:22:00
--
甜老师，代码是这样：
-- 发布时间：2018/5/9 18:34:00
--
做一个foxtable项目发上来测试，导入你【微信礼品卡货架】表数据。
-- 发布时间：2018/5/9 23:02:00
--
老师，做好了
-- 发布时间：2018/5/9 23:22:00
--
Dim jo As New JObject
jo("page") = New JObject
jo("page")("page_title") = "礼品卡标题"
jo("page")("support_multi") = True
jo("page")("support_buy_for_self") = True
jo("page")("banner_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/ahyj0ppmibfrTLNaiaZmqK71SDT5pDPzeCfxdWJL5MibJiahDOmIdytzZicotiaSjm0n0Y9LyuhnIos62KR3GO7rKzpw/0?wx_fmt=jpeg"
jo("page")("support_multi") = True
Dim ar As New JArray
Dim i As Integer = 0
For Each s As String In DataTables("微信礼品卡货架").GetValues("主题分类名称")
Dim r1 As DataRow = DataTables("微信礼品卡货架").find("主题分类名称 = \'" & s & "\'")
Dim ao As New JObject
ao("theme_pic_url") = r1("主题封面链接").Tostring
ao("title") = r1("主题名称").Tostring
ao("title_color") = r1("主题名称颜色").Tostring
ar.add(ao)
jo("page")("theme_list") = ar
Dim ar2 As New JArray
For Each r2 As DataRow In DataTables("微信礼品卡货架").Select("主题名称 = \'" & r1("主题名称") & "\'")
Dim ao2 As New JObject
ao2("card_id") = r2("卡券ID").tostring
ao2("title") = r2("商品名称").tostring
ao2("pic_url") = r2("商品缩略图链接").tostring
ao2("desc") = r2("商品简介").tostring
ar2.add(ao2)
Next
ao("item_list") = ar2
ao("category_index")= i
i += 1
Next
Dim ar4 As New JArray
Dim ao4 As New JObject
ao4("title") = "分类一"
ar4.add(ao4)
jo("page")("category_list") = ar4
jo("page")("address") = "泉州中山路专卖店"
jo("page")("service_phone") = "13559053751"
jo("page")("biz_description") = "退款指引"
jo("page")("cell_1") = New JObject
jo("page")("cell_1")("title") = "申请发票"
jo("page")("cell_1")("url") = "http://baidu.com"
jo("page")("cell_2") = New JObject
jo("page")("cell_2")("title") = "申请退款"
jo("page")("cell_2")("url") = "http://baidu.com"
output.show(jo.Tostring)