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


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

主题：求助：如何解决微信公众号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"))
Next


看看上面的代码怎么变通下实现呢？ 谢谢啦
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111420 积分：567176 威望：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"))
Next
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


加好友 发短信
等级：超级版主 帖子：111420 积分：567176 威望：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询