求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢

共有3134人关注过本帖树形打印复制链接主题：求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢

李孝春

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

加好友

发短信

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

求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢 发帖心情

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

求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢

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") & "")

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向接口传输菜单数据,并取得返回结果

'output.show(jsonString )

End Using

上述代码可以实现当前图文信息的获取了但是怎么实现将反馈得到的JSON数据解析出来呢？

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

{
   "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结构
  ]
}

返回的值我需要得到title 、 author 、 url 、update_time这四个值怎么实现操作呢？

李孝春

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

加好友

发短信

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

回复：（李孝春）求助：如何解决微信公众号API中POST提... 发帖心情

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

下面的代码是实现GET方式得到的JSON文件解析，经操作是可以实现解析的：但是对应POST的我不熟悉操作，烦请大家多多指导下！谢谢

Dim XMLH As Object

XMLH = CreateObject("Microsoft.XMLHTTP")

Dim drs As List(Of DataRow) = DataTables("ACCESS_TOKEN").Select("AppID应用ID is not null")

For Each dr As DataRow In drs

XMLH.open("GET", "https://api.weixin.qq.com/datacube/getusershare?access_token=" & dr("ACCESSTOKEN") & "", True) '获得实时信息

XMLH.send(Nothing)

Do While XMLH.readyState <> 4

Application.DoEvents

Loop

'把数据json数据转化成对象

Dim json As String = XMLH.responseText

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

MessageBox.Show(json)

dr("voice_count") = data.voice_count

MessageBox.Show(dr("video_count"))

看看上面的代码怎么变通下实现呢？谢谢啦

有点蓝

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

加好友

发短信

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

Post By：2016/10/11 20:37: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") & "")

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

MessageBox.Show(json)

dr("voice_count") = data.voice_count

MessageBox.Show(dr("video_count"))

End Using

李孝春

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

加好友

发短信

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

回复：（有点蓝）Dim postdata As String ="{""type""... 发帖心情

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

有点蓝老师：你楼上的代码我测试了一下，和我下面仿写的代码运行时候出现的错误是一致的，

错误如图：

代码如下：

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

Dim XMLH As Object

XMLH = CreateObject("Microsoft.XMLHTTP")

XMLH.open("post", "https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=" & dr("ACCESSTOKEN") & "", True) '获得实时信息

XMLH.send("{""type"":""news"",""offset"":""0"",""count"":""2""}")

Do While XMLH.readyState <> 4

Application.DoEvents

Loop

Dim json As String = XMLH.responseText

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

'MessageBox.Show(json)

dr("title") = data.title

MessageBox.Show(dr("title"))

客人(1.204.*.*)

小大 5楼

有点蓝老师你帮助解决的代码及我仿写的代码运行错误如下： 发帖心情

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

有点蓝老师你帮助解决的代码及我仿写的代码运行错误如下：

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

运行的结果都是一样的

李孝春

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

加好友

发短信

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

回复：（有点蓝）Dim postdata As String ="{""type""... 发帖心情

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

有点蓝老师你帮助解决的代码及我仿写的代码运行错误如下：

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

运行的结果都是一样的

有点蓝

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

加好友

发短信

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

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

注意json的层次

dr("title") = data.item(0).content.news_item(0).title

李孝春

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

加好友

发短信

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

回复：（有点蓝）注意json的层次dr("title") = data.i... 发帖心情

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

附带access_token值你帮我看看谢谢

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

'MessageBox.Show(json)

Dim a As String =data.item(0).content.news_item(0).title

MessageBox.Show("a")

End Using

运行提示错误

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

[此贴子已经被作者于2016/10/11 21:11:55编辑过]

李孝春

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

加好友

发短信

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

回复：（有点蓝）注意json的层次dr("title") = data.i... 发帖心情

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

dr("title") = data.item(0).content.news_item(0).title

MessageBox.Show(data.total_count) 得到56

MessageBox.Show(data.item_count) 得到2

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

返回的值我需要得到title 、 author 、 url 、update_time这四个值

下面是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 21:56:51编辑过]

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

主题：求助：如何解决微信公众号API中POST提交后的反馈JOSN数据的解析！谢谢