以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助:微信服务号反馈的JOSN值的条件判断,当含某个值的时候,视为成功,运行代码1,反之运行代码2.  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92499)

--  作者:李孝春
--  发布时间:2016/11/5 0:53:00
--  求助:微信服务号反馈的JOSN值的条件判断,当含某个值的时候,视为成功,运行代码1,反之运行代码2.
求助:微信服务号反馈的JOSN值的条件判断,当含某个值的时候,视为成功,运行代码1,反之运行代码2.

部分代码如下
…………
…………
 output.Show(json)
            Dim dr As DataRow
            For Each obj As object In data.list
                          
                dr = DataTables("图文群发每日数据").AddNew
                dr("文章标题") = obj.title
                dr("图文编号") = obj.msgid               
            Next
…………
…………
上述代码操作虽然可以实现想要获取的数据,但是如果接口不对,密钥不对,接口操作操作限制次数,均会报如下错误:

格式如下:
{"errcode":45009,"errmsg":"reach max api daily quota limit hint: [.bOt70356e562]"}


然后会有一个错误弹出框出现,提示错误,因为没有得到json文件,所以就不会有list公共内容部分,老弹出来严重影响操作,
有没有办法增加一个判断代码呢?

如果返回的josn内容有errcode部分,就直接取消写表操作,弹出“45009,接口操作次数”的提示!
如果返回的JOSN内容有list部分,就进行写表操作。


正常情况下,获取图文群发每日数据接口的返回JSON数据包如下:

{ 
    "list": [ 
        { 
            "ref_date": "2014-12-08", 
            "msgid": "10000050_1", 
            "title": "12月27日 DiLi日报", 
            "int_page_read_user": 23676, 
            "int_page_read_count": 25615, 
            "ori_page_read_user": 29, 
            "ori_page_read_count": 34, 
            "share_user": 122, 
            "share_count": 994, 
            "add_to_fav_user": 1, 
            "add_to_fav_count": 3
        } 
 	 //后续会列出该日期内所有被阅读过的文章(仅包括群发的文章)在当天的阅读次数等数据
    ]
}




--  作者:有点蓝
--  发布时间:2016/11/5 9:16:00
--  
不要老是发重复的问题,下次再犯直接封号

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=92460