求助：JSON格式数据解析 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：JSON格式数据解析

共有3666人关注过本帖树形打印复制链接主题：求助：JSON格式数据解析

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：JSON格式数据解析 发帖心情

Post By：2016/10/11 22:02:00 [只看该作者]

返回的值我需要得到title 、 author 、 url 、update_time这四个值，烦请各位前辈多多指导，谢谢！

此主题相关图片如下：22.png

永久图文消息素材列表的响应如下：

{
   "total_count": TOTAL_COUNT,
   "item_count": ITEM_COUNT,
   "item": [{
       "media_id": MEDIA_ID,
       "content": {
           "news_item": [{
               "title": TITLE,
               "thumb_media_id": THUMB_MEDIA_ID,
               "thumb_url": THUMB_URL,
               "show_cover_pic": SHOW_COVER_PIC(0 / 1),
               "author": AUTHOR,
               "digest": DIGEST,
               "content": CONTENT,
               "url": URL,
               "content_source_url": CONTETN_SOURCE_URL
           },
           //多图文消息会在此处有多篇文章
           ]
        },
        "update_time": UPDATE_TIME
    },
    //可能有多个图文消息item结构
  ]
}

下面是JSON我清理下后的内容

{"item":[{

"media_id":"gwmL5Qi-95lfkB7dnSYm66KXipsv1QpQgoy7exD5HFY",

"content":{

"news_item":[{

"title":"【震惊】新买的手机号发现绑定支付宝！竟能从对方账户转钱，速",

"author":"",

"digest":"",

"content":"

"content_source_url":"",

"thumb_media_id":"gwmL5Qi-95lfkB7dnSYm6w02eWFqhdIVKaR4q9V_CU",

"show_cover_pic":0,

"url":"http:\/\/mp.weixin.qq.com\/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=1&sn=ce1c640d5c575b834119199f23fd6f54&chksm=005ed7df37295ec96eb7cc15cc7725cc90214bca813e0ac6f11a67b2151b70d69517be19d6fc#rd",

"thumb_url":"http:\/\/mmbiz.qpic.cn\/mmbiz_png\/zMPVPsVaWBBjSticlTSg3fIyXgExbRrHsrzB5uP8rRVX7pqHk9XpBgWZUnNfVk57FWqZDxVzicql1C7Ud63GUE3w\/0?wx_fmt=png"},

{"title":"国庆节大事纪：19城市调控楼市、金价大暴跌",

"author":"",

"digest":"",

"content":"

"content_source_url":"",

"thumb_media_id":"gwmL5Qi-95lfkB7dnSYm63LULSyh2-IKy408OrVs56s",

"show_cover_pic":0,

"url":"http:\/\/mp.weixin.qq.com\/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=2&sn=8c9b36dc892f017023a5eca7ba2cacfd&chksm=005ed7df37295ec99cddd95b02b2f75bb305dce1b8a4fcc770e6ce5c018832bf2c1566a9c8c0#rd",

"thumb_url":"http:\/\/mmbiz.qpic.cn\/mmbiz_png\/zMPVPsVaWBBjSticlTSg3fIyXgExbRrHsqBe6BoxsQBU8mZHgmy503fPq7HghUG1xGnicHFWiaTC0RhehPVDSyxCw\/0?wx_fmt=png"},

], "create_time":1475895222,

"update_time":1475895242},

"update_time":1475895242}],

"total_count":56,

"item_count":2}

[此贴子已经被作者于2016/10/11 22:05:20编辑过]

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

Post By：2016/10/11 22:03:00 [只看该作者]

这里是我测试的代码：

Dim postdata As String ="{""type"":""news"",""offset"":""0"",""count"":""2""}"

'Dim dr As DataRow =DataTables("ACCESS_TOKEN").Find("公众号名称 = '黔源科技'")

'Dim url = String.Format("https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=" & dr("ACCESSTOKEN") & "")

Dim url = String.Format("https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=SfjQStF9Bn3sULgsYc7aSMitqCbkkmcSCdFbMP9HAcVaQhyPz0TqkfnI0hzOXbFUrT_HPx9su5hDG4dAD4Vil0fDi3991gjtoDbDxgPukg3xhMPYtS5f_0BrAtVDnRIiRBWdAHAKUP")

Using ms As New System.IO.MemoryStream()

Dim bytes = ConvertHelper.EncodingToBytes(postdata, System.Text.Encoding.UTF8)

ms.Write(bytes, 0, bytes.Length)

ms.Seek(0, System.IO.SeekOrigin.Begin)

Dim jsonString = Functions.Execute("HttpPost",url, ms) '通过POST向接口传输菜单数据,并取得返回结果

Dim json As String = jsonString

Dim ScriptControl As Object, data As Object, JscriptCode As String

JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", json)

End With

output.Show(json)

MessageBox.Show(data.total_count)

MessageBox.Show(data.item_count)

MessageBox.Show(data.item(0).media_id)

'MessageBox.Show(data.media_id)

'MessageBox.Show(data.content)

'MessageBox.Show(data.news_item)

'MessageBox.Show(data.title)

End Using

测试结果如下：

MessageBox.Show(data.total_count) 得到56

MessageBox.Show(data.item_count) 得到2

MessageBox.Show(data.item(0).media_id) 提示找不到成员

得到错误

MessageBox.Show(data.item(0).media_id) 提示找不到成员

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（李孝春）这里是我测试的代码：Dim postdata A... 发帖心情

Post By：2016/10/11 22:46:00 [只看该作者]

经过分析，貌似应该还需要增加写遍历的方法，按照先遍历第一层然后第二层类似循环读取

现在只是找到了思路但是确无法写代码

还烦请各位大大多多指导啊谢谢啦

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/11 23:10:00 [只看该作者]

汗，第一次用这玩意，居然不能强类型引用

Dim json As String = jsonString

Dim ScriptControl As Object, data As Object, JscriptCode As String

JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", json)

End With

For Each obj As object In data.item

Output.Show(obj.media_id)

For Each item As object In obj.content.news_item

Output.Show(item.title)

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）汗，第一次用这玩意，居然不能强类型... 发帖心情

Post By：2016/10/12 19:28:00 [只看该作者]

有点蓝老师经过你的指导我目前已经实现了如下获取效果：（黑色部分加粗是标注说明的，json生成的时候并无）

【media_id】gwmL5Qi-95lfkB7dnSYm66KXipsv1QpQgoy7exD5HFY

【update_time】1476065493

【title】

【1】新买的手机号发现绑定支付宝！竟能从对方账户转钱，速看??

【2】国庆节大事纪：19城市调控楼市、金价大暴跌

【3】2016南方电网云南国际有限责任公司招聘公告

【4】以后这三种人，不要去打扰他

【5】我不优秀，但我善良不虚伪

【url】

【1】http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=1&sn=ce1c640d5c575b834119199f23fd6f54&chksm=005ed7df37295ec96eb7cc15cc7725cc90214bca813e0ac6f11a67b2151b70d69517be19d6fc#rd

【2】http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=2&sn=8c9b36dc892f017023a5eca7ba2cacfd&chksm=005ed7df37295ec99cddd95b02b2f75bb305dce1b8a4fcc770e6ce5c018832bf2c1566a9c8c0#rd

【3】http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=3&sn=b2cbb0da8becf16ee0bf450173d2bab2&chksm=005ed7df37295ec956ba13865cf683321d0b8de92877b5082ea3d85f8b934d948e8dc292b472#rd

【4】http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=4&sn=a00623b8848284412a2d283c670f12ba&chksm=005ed7df37295ec998aca34867c4637799b12e314dc8550941687bdf5a8d70ccfe23f2465a53#rd

【5】http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499675&idx=5&sn=3fd4f724d1ff668f226bfe1c0ff51c10&chksm=005ed7df37295ec997fdf0724af44d752d1eeb73177cd8ee6247fc1092365b2659026dee6ec0#rd

【media_id】gwmL5Qi-95lfkB7dnSYm68rJVtcRTKnjQAQGM24ebSk

【update_time】1475199000

【title】

【1】继微信后支付宝也将提现收费：每人2万基础免费额度，余额宝转出依然免费

【2】有人算过一笔账，得出一惊人结论：中国人根本就不用买房！

【3】一生都学不完的计谋，没心眼的看看吧！

【4】???国1庆?放·假?通í知?

?ur】?

?】?http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499663&idx=1&sn=8c7398bb861d5dc0ca47bd840927d717&chksm=005ed7cb37295edd09c1bb69507f58f7045474812fc6abfa64cda982f7bf17482453fc0ed632#rd

?】?http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499663&idx=2&sn=e580f284342da69bb520bc41ae1f0462&chksm=005ed7cb37295edd52ac50c2bfd22b96795e5a8454d7468e7bf997dad012c214e150b34a5060#rd

?】?http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499663&idx=3&sn=1c582c77ceef43fcae2bf3f47b35b8ef&chksm=005ed7cb37295edd47a0b50127d03264beef9a2ca82b32b9a2debe5863ce6a69bf3978e6b56f#rd

?】?http://mp.weixin.qq.com/s?__biz=MzAxMzAzNjg0Mw==&mid=503499663&idx=4&sn=f5d7f81a17d0dcf4187f7dba501e3a2a&chksm=005ed7cb37295edd8409eccaa564d5cb473340eba1bfc0612ead91cb1395a7d26fe7cc6381f9#rd

…………………………下面还有很多省略

[此贴子已经被作者于2016/10/12 19:35:08编辑过]

李孝春

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）汗，第一次用这玩意，居然不能强类型... 发帖心情

Post By：2016/10/12 19:33:00 [只看该作者]

下面是实现操作的代码：

Dim postdata As String ="{""type"":""news"",""offset"":""0"",""count"":""10""}"

Dim url = String.Format("https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=QabsAuaz9o85YgwM147Gt1_ZnHDTY09wkD0a8pyuC9-okZeXfmUfLd3S6HuW4-CTqh-8rml1-MtLUgFASDMZtPzbmrmWGxyUuj6ff12qcRN7jFe6X8avrPs0y_t5AImeHIYfAFAWXN")

Using ms As New System.IO.MemoryStream()

Dim bytes = ConvertHelper.EncodingToBytes(postdata, System.Text.Encoding.UTF8)

ms.Write(bytes, 0, bytes.Length)

ms.Seek(0, System.IO.SeekOrigin.Begin)

Dim json As String = Functions.Execute("HttpPost",url, ms)

Dim ScriptControl As Object, data As Object, JscriptCode As String

JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", json)

End With

For Each obj As object In data.item

Output.Show(obj.media_id)

Output.Show(obj.update_time)

For Each item As object In obj.content.news_item

Output.Show(item.title)

For Each item As object In obj.content.news_item

Output.Show(item.url)

For Each item As object In obj.content.news_item

Output.Show(item.author)

End Using

假设现在已经创建了一张“数据存放表”【media_id】【update_time】【title】【url】四个字段

怎么将【media_id】【update_time】【title】【url】对应的【1】【2】【3】【4】【5】分别一一对应起来呢？

【media_id】【update_time】【1】【1】

【media_id】【update_time】【2】【2】

【media_id】【update_time】【3】【3】

【media_id】【update_time】【4】【4】

【media_id】【update_time】【5】【5】

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/12 20:13:00 [只看该作者]

Dim dr As DataRow

For Each obj As object In data.item

For Each item As object In obj.content.news_item

dr = DataTables("表A").AddNew

dr("media_id") = obj.media_id

dr("update_time") = obj.update_time

dr("title") = item.title

dr("url") = item.url

李孝春

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）Dim dr As DataRowFor Each obj As o... 发帖心情

Post By：2016/10/12 20:36:00 [只看该作者]

Dim postdata As String ="{""type"":""news"",""offset"":""0"",""count"":""10""}"

Using ms As New System.IO.MemoryStream()

Dim bytes = ConvertHelper.EncodingToBytes(postdata, System.Text.Encoding.UTF8)

ms.Write(bytes, 0, bytes.Length)

ms.Seek(0, System.IO.SeekOrigin.Begin)

Dim json As String = Functions.Execute("HttpPost",url, ms)

Dim ScriptControl As Object, data As Object, JscriptCode As String

JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"

ScriptControl = CreateObject("MSScriptControl.ScriptControl")

With ScriptControl

.Language = "Javascript"

.Timeout = -1

.AddCode(JscriptCode)

data = .Run("toObject", json)

End With

Dim dr As DataRow

For Each obj As object In data.item

For Each item As object In obj.content.news_item

dr = DataTables("统计表").AddNew

dr("media_id") = obj.media_id

dr("update_time") = obj.update_time

dr("title") = item.title

dr("url") = item.url

End Using

此主题相关图片如下：22.png

居然直接运行提示如下错误找不到类型jscripttypeinfo的公共成员ITEM？

[此贴子已经被作者于2016/10/12 20:44:38编辑过]

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/12 20:50:00 [只看该作者]

msgbox(json)看看是什么内容

李孝春

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）msgbox(json)看看是什么内容 发帖心情

Post By：2016/10/12 21:38:00 [只看该作者]

有点蓝老师

经排查是我这边参数刚刚不小心给小孩子改到了没有对应生成那密钥所以导致失败。

我想再请教一下，上面的操作实现了JSON数据的解析，并且写入了对应的表A。

作为进一步来说，我想把这些数据写入表后，保存下来之后，下一次再次获取JSON的时候，解析数据时，对于表A中已经有了的数据，不要再写入了，没有的数据再对应新增，这样的话我就需要增加一个条件判断，判断所解析出来的数据没有在表A中出现，但是当前数据比较多有上万条，如果每次都比对的话，效率更慢，有没有更好的办法来解决这个问题呢？

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：求助：JSON格式数据解析