Foxtable(狐表)用户栏目专家坐堂 → 求助:今日头条josn100条数据结果只有七条数据显示出来求解。


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

主题:求助:今日头条josn100条数据结果只有七条数据显示出来求解。

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:今日头条josn100条数据结果只有七条数据显示出来求解。  发帖心情 Post By:2017/4/12 22:03:00 [只看该作者]


http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=0&count=100&as=A1B5382B95E4C02&cp=58B5747C80723E1
实际获得的数据是大于七条的  且是100条
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:ceshi.foxdb


但是经过
Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=0&count=100&as=A1B5382B95E4C02&cp=58B5747C80723E1")
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)("title"))
Next

处理后就只能获取七条数据?求解!


以上如果将红色部分更换为For i As Integer = 0 To jo.Count + 100
会报错 因为实际数量大于100 当获取到101时候就出错了

此主题相关图片如下:1.png
按此在新窗口浏览图片

此主题相关图片如下:2.png
按此在新窗口浏览图片

[此贴子已经被作者于2017/4/12 22:32:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/4/13 1:16:00 [只看该作者]

分析的时候要分清结构

 

Dim hc As New HttpClient("http://www.toutiao.com/c/user/article/?page_type=1&user_id=4165659254&max_behot_time=0&count=100&as=A1B5382B95E4C02&cp=58B5747C80723E1")
Dim str As String = hc.GetData()

Dim jo As JObject = JObject.Parse(str)
For Each o As JToken In jo("data")
    output.show(o("title"))
Next

 

[此贴子已经被作者于2017/4/13 1:20:56编辑过]

 回到顶部