- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：今日头条josn100条数据结果只有七条数据显示出来求解。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99114)
-- 发布时间：2017/4/12 22:03:00
-- 求助：今日头条josn100条数据结果只有七条数据显示出来求解。
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编辑过]
-- 发布时间：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编辑过]