用易语言获取新浪滚动新闻标题

ahuo888

新浪新闻标题获取，新闻地址https://news.sina.com.cn/roll/#pageid=153&lid=2512&k=&num=50&page=1 就是获取当天的全部新闻标题

如下图这样的

zainex

用上面的代码就可以了：

  

子程序名	返回值类型	公开	备 注
_点击获取新闻_被单击

变量名	类 型	静态	数组	备 注
json	类_json
数	整数型
地址	文本型
时间	日期时间型
数量	整数型
页面	整数型

点击获取新闻.标题 ＝ “新闻获取中”
点击获取新闻.禁止 ＝ 真
编辑框1.内容 ＝ “”
地址 ＝ “https:/” ＋ “/feed.mix.sina.com.cn/api/roll/get?pageid=153&lid=2509&num=50”
时间 ＝ 取现行时间 ()
时间 ＝ 到时间 (格式化文本 (“%d-%d-%d 0:0:0”, 取年份 (时间), 取月份 (时间), 取日 (时间)))
地址 ＝ 地址 ＋ “&etime=” ＋ 到文本 (取时间间隔 (时间, 到时间 (“1970-1-1 8”), #秒 ))
时间 ＝ 增减时间 (时间, #日, 1)
地址 ＝ 地址 ＋ “&stime=” ＋ 到文本 (取时间间隔 (时间, 到时间 (“1970-1-1 8”), #秒 ))
地址 ＝ 地址 ＋ “&page=”
循环判断首 ()
页面 ＝ 页面 ＋ 1
json.解析 (UTF8到文本 (HTTP读文件 (地址 ＋ 到文本 (页面))))
数量 ＝ json.成员数 (“result.data”)
调试输出 (地址 ＋ 到文本 (页面), 数量)
计次循环首 (数量, 数)
编辑框1.加入文本 (json.取通用属性 (“result.data[” ＋ 到文本 (数 － 1) ＋ “].title”) ＋ #换行符 )
计次循环尾 ()
循环判断尾 (数量 ≠ 0)
点击获取新闻.标题 ＝ “获取完毕”
' 延时 (2000)
点击获取新闻.禁止 ＝ 假
点击获取新闻.标题 ＝ “点击重新获取”

i支持库列表	支持库注释
eAPI	应用接口支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 _点击获取新闻_被单击<br /> .局部变量 json, 类_json<br /> .局部变量 数, 整数型<br /> .局部变量 地址, 文本型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 数量, 整数型<br /> .局部变量 页面, 整数型<br /> <br /> 点击获取新闻.标题 ＝ “新闻获取中”<br /> 点击获取新闻.禁止 ＝ 真<br /> 编辑框1.内容 ＝ “”<br /> 地址 ＝ “https:/” ＋ “/feed.mix.sina.com.cn/api/roll/get?pageid=153&lid=2509&num=50”<br /> 时间 ＝ 取现行时间 ()<br /> 时间 ＝ 到时间 (格式化文本 (“%d-%d-%d 0:0:0”, 取年份 (时间), 取月份 (时间), 取日 (时间)))<br /> 地址 ＝ 地址 ＋ “&etime=” ＋ 到文本 (取时间间隔 (时间, 到时间 (“1970-1-1 8”), #秒))<br /> 时间 ＝ 增减时间 (时间, #日, 1)<br /> 地址 ＝ 地址 ＋ “&stime=” ＋ 到文本 (取时间间隔 (时间, 到时间 (“1970-1-1 8”), #秒))<br /> 地址 ＝ 地址 ＋ “&page=”<br /> .循环判断首 ()<br />     页面 ＝ 页面 ＋ 1<br />     json.解析 (UTF8到文本 (HTTP读文件 (地址 ＋ 到文本 (页面))))<br />     数量 ＝ json.成员数 (“result.data”)<br />     调试输出 (地址 ＋ 到文本 (页面), 数量)<br />     .计次循环首 (数量, 数)<br />         编辑框1.加入文本 (json.取通用属性 (“result.data[” ＋ 到文本 (数 － 1) ＋ “].title”) ＋ #换行符)<br />     .计次循环尾 ()<br /> .循环判断尾 (数量 ≠ 0)<br /> 点击获取新闻.标题 ＝ “获取完毕”<br /> ' 延时 (2000)<br /> 点击获取新闻.禁止 ＝ 假<br /> 点击获取新闻.标题 ＝ “点击重新获取”

另外关于 文本_是否重复，它不是你想象中那样，可以自动判断文本里有没有重复的文本。
是需要你事先指定文本的：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型

文本 ＝ “1 2 3 5 6 1”
调试输出 (文本_是否重复 (文本, “1”))
调试输出 (文本_是否重复 (文本, “2”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ “1 2 3 5 6 1”<br /> 调试输出 (文本_是否重复 (文本, “1”))<br /> 调试输出 (文本_是否重复 (文本, “2”))

* 真
* 假
被调试易程序运行完毕

山咔咔d老表

冯古屋

在这个地址里面：https://feed.mix.sina.com.cn/api/roll/get?pageid=153&lid=2512&k=&num=50&page=2&r=0.17190953782229035&callback=jQuery111207311166656264034_1769323552866&_=1769323552867
当然需要带上协议头

ahuo888

冯古屋 发表于 2026-1-25 14:50
在这个地址里面：https://feed.mix.sina.com.cn/api/roll/get?pageid=153&lid=2512&k=&num=50&page=2&r=0.1 ...

为什么会出现这样的？我是易语言新手。弄了半天也没有弄好这个问题。

Style．Sa梦

冯古屋 发表于 2026-1-25 14:50
在这个地址里面：https://feed.mix.sina.com.cn/api/roll/get?pageid=153&lid=2512&k=&num=50&page=2&r=0.1 ...

这个看了是新浪彩票

Style．Sa梦

ahuo888 发表于 2026-1-25 14:58
为什么会出现这样的？我是易语言新手。弄了半天也没有弄好这个问题。

去掉首位 json可以解析

灵海雪缘

看看是不是这样



1.e (956.85 KB, 下载次数: 1, 售价: 3 枚 精币)

2026-1-25 15:29 上传

点击文件名下载附件

ahuo888

灵海雪缘 发表于 2026-1-25 15:29
看看是不是这样

你这个只是采集第一页的。帮我这个解决一下吧，我这个删除重复的出现参数太少也不知道怎么回事，可以帮我看看吗？

ahuo888

灵海雪缘 发表于 2026-1-25 15:29
看看是不是这样

你这个只是采集第一页

这个是怎么回事