- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：今日头条JOSN数据格式转换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99101)
-- 发布时间：2017/4/12 17:45:00
-- 求助：今日头条JOSN数据格式转换
http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=1489391760&count=20&as=A1C5480E4DCD879&cp=58ED0D882779FE1
通过上面的地址 得到下面
今日头条JOSN数据格式如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:今日头条josn数据格式.txt |
{"login_status": false, "has_more": true, "next": {"max_behot_time": 1488268206}, "page_type": 1, "message": "success", "data": [{"single_mode": null, "abstract": "\\u4e3a\\u9002\\u5e94\\u65b0\\u5f62\\u52bf\\u4e0b\\u7684\\u68c0\\u5bdf\\u5de5\\u4f5c\\u9700\\u8981\\uff0c\\u7ecf\\u74ee\\u5b89\\u53bf\\u59d4\\u3001\\u53bf\\u653f\\u5e9c\\u540c\\u610f\\uff0c\\u74ee\\u5b89\\u53bf\\u4eba\\u6c11\\u68c0\\u5bdf\\u9662\\u62df\\u9762\\u5411\\u793e\\u4f1a\\u516c\\u5f00\\u62db\\u8058\\u6d3e\\u9063\\u5236\\u53f8\\u6cd5\\u8f85\\u52a9\\u4eba\\u5458\\u3002\\u62df\\u62db\\u8058\\u7684\\u4eba\\u5458\\u7531\\u9ed4\\u5357\\u4eba\\u529b\\u8d44\\u6e90\\u5f00\\u53d1\\u6709\\u9650\\u8d23\\u4efb\\u516c\\u53f8\\u6d3e\\u9063\\u81f3\\u74ee\\u5b89\\u53bf\\u4eba\\u6c11\\u68c0\\u5bdf\\u9662\\u8fdb\\u884c\\u5de5\\u4f5c\\u3002", "middle_mode": false, "more_mode": false, "tag": "news_edu", "tag_url": "search/?keyword=%E6%95%99%E8%82%B2", "title": "\\u300c\\u62db\\u8058\\u300d\\u74ee\\u5b89\\u53bf\\u4eba\\u6c11\\u68c0\\u5bdf\\u96622017\\u5e74\\u516c\\u5f00\\u62db\\u8058\\u6d3e\\u9063\\u5236\\u53f8\\u6cd5\\u8f85\\u52a9\\u4eba\\u5458\\u7b80\\u7ae0", "has_video": false, "chinese_tag": "\\u6559\\u80b2", "source": "\\u74ee\\u5b89\\u53bf\\u4eba\\u6c11\\u68c0\\u5bdf\\u9662", "group_source": 1, "comments_count": 4, "media_url": "/m6051259851/", "go_detail_count": 1884, "image_list": [], "gallary_image_count": 0,
怎么转换为：
{
"login_status": false,
"has_more": true,
"next": {
"max_behot_time": 1488268206
},
"page_type": 1,
"message": "success",
"data": [
{
"single_mode": null,
"abstract": "为适应新形势下的检察工作需要，经瓮安县委、县政府同意，瓮安县人民检察院拟面向社会公开招聘派遣制司法辅助人员。拟招聘的人员由黔南人力资源开发有限责任公司派遣至瓮安县人民检察院进行工作。",
"middle_mode": false,
"more_mode": false,
"tag": "news_edu",
"tag_url": "search/?keyword=%E6%95%99%E8%82%B2",
"title": "「招聘」瓮安县人民检察院2017年公开招聘派遣制司法辅助人员简章",
"has_video": false,
"chinese_tag": "教育",
"source": "瓮安县人民检察院",
"group_source": 1,
"comments_count": 4,
"media_url": "/m6051259851/",
"go_detail_count": 1884,
"image_list": [],
"gallary_image_count": 0,
"detail_play_effective_count": 0,
"source_url": "/item/6396080108397920769/",
"item_id": "6396080108397920769",
"article_genre": "article",
"display_url": "http://mp.weixin.qq.com/s?__biz=MzA5NTg0ODMxMg==&mid=2652502405&idx=1&sn=790532f11249f7e13061062ede740f33",
"behot_time": 1489202703,
"has_gallery": false,
"group_id": "6396074800703701250"
},
-- 发布时间：2017/4/12 18:03:00
--
直接用即可，参考
Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=1489391760&count=20&as=A1C5480E4DCD879&cp=58ED0D882779FE1")
Dim str As String = hc.GetData()
output.show(str)
Dim jo As JObject = JObject.Parse(str)
output.show(jo("login_status"))
output.show(jo("data")(0)("abstract"))
http://www.foxtable.com/mobilehelp/scr/0140.htm
-- 发布时间：2017/4/12 18:42:00
-- 回复：（有点色）?直接用即可，参考?Di...
Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&count=100")
Dim str As String = hc.GetData()
\'output.show(str)
Dim jo As JObject = JObject.Parse(str)
For i As Integer = 0 To jo.Count - 1
\'output.show(jo("login_status"))
output.show(jo("data")(i)("abstract"))
output.show(jo("data")(i)("title"))
output.show(jo("data")(i)("source"))
output.show(jo("data")(i)("comments_count"))
output.show(jo("data")(i)("go_detail_count"))
output.show(jo("data")(i)("article_genre"))
output.show(jo("data")(i)("display_url"))
output.show(jo("data")(i)("behot_time"))
Next
可以实现如下啦：
近日，黔南州人民检察院刑事执行检察处孟熙敏处长一行来到瓮安县检察院，检查指导刑事执行检察工作。
黔南州检察院刑事执行检察处孟熙敏处长到瓮安检查指导工作
瓮安县人民检察院
2
642
article
http://mp.weixin.qq.com/s?__biz=MzA5NTg0ODMxMg==&mid=2652502458&idx=1&sn=9081120852643a89d5d16629a8f8adac
1491550100
来源：检察日报以色列当地时间4日中午，中国首席大检察官、最高人民检察院检察长曹建明与以色列司法部长沙凯德、最高法院院长瑙尔进行会谈。
曹建明同以色列司法部长最高法院院长举行会谈
瓮安县人民检察院
0
313
article
http://mp.weixin.qq.com/s?__biz=MzA5NTg0ODMxMg==&mid=2652502454&idx=1&sn=b20fd0e600d906795e97daae71b3e869
1491472101
请问这个地址
http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&count=100
只显示了第一个页面 有没有办法实现所有的页面都显示出来呢？
[此贴子已经被作者于2017/4/12 18:42:11编辑过]
-- 发布时间：2017/4/12 19:41:00
--
红色代码控制个数，至于其余的参数，不清楚怎么设置的，你去看看人家的文档吧。
http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&count=300