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

ahuo888

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

为什么我回复你的需要审核？！！！！

zainex

  

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
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)

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

.版本 2<br /> .支持库 eAPI<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 json, 类_json<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)

效果：

完整例子.zip (1.27 MB, 下载次数: 0)

2026-1-25 15:39 上传

点击文件名下载附件

ahuo888

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

这个有错误，修改一下就完成了
获取新闻标题.e (884.51 KB, 下载次数: 3)

2026-1-25 15:40 上传

点击文件名下载附件

ahuo888

zainex 发表于 2026-1-25 15:53
用上面的代码就可以了：
[e=1].版本 2
.支持库 eAPI

我这个源码本来用的好好的，最近换了电脑突然就不行了。所以我想修复他，我这个也是之前叫别人写的。今天不知道怎么回事就这个重复的不行了。

ahuo888

zainex 发表于 2026-1-25 15:53
用上面的代码就可以了：
[e=1].版本 2
.支持库 eAPI

你这些都没有删除空行跟重复

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”)
调试输出 (地址 ＋ 到文本 (页面), 数量)
计次循环首 (数量, 数)
标题 ＝ json.取通用属性 (“result.data[” ＋ 到文本 (数 － 1) ＋ “].title”)
如果真 (删全部空 (标题) ＝ “”)  ' 跳过空文本
到循环尾 ()
' 相同的文本只能成功加入节点一次， 利用这个特性，即可达到去重复的目的
如果真 (节点.加入属性 (标题, 0) ＝ 真)
编辑框1.加入文本 (标题 ＋ #换行符 )

计次循环尾 ()
循环判断尾 (数量 ≠ 0)
编辑框1.内容 ＝ 文本_删除空行 (编辑框1.内容)  ' 再次删空行
点击获取新闻.标题 ＝ “获取完毕”
' 延时 (2000)
点击获取新闻.禁止 ＝ 假
点击获取新闻.标题 ＝ “点击重新获取”

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

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 eAPI<br /> .支持库 internet<br /> .支持库 spec<br /> <br /> .子程序 _点击获取新闻_被单击<br /> .局部变量 json, 类_json<br /> .局部变量 数, 整数型<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 />         标题 ＝ json.取通用属性 (“result.data[” ＋ 到文本 (数 － 1) ＋ “].title”)<br />         .如果真 (删全部空 (标题) ＝ “”)  ' 跳过空文本<br />             到循环尾 ()<br />         .如果真结束<br />         ' 相同的文本只能成功加入节点一次， 利用这个特性，即可达到去重复的目的<br />         .如果真 (节点.加入属性 (标题, 0) ＝ 真)<br />             编辑框1.加入文本 (标题 ＋ #换行符)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .循环判断尾 (数量 ≠ 0)<br /> 编辑框1.内容 ＝ 文本_删除空行 (编辑框1.内容)  ' 再次删空行<br /> 点击获取新闻.标题 ＝ “获取完毕”<br /> ' 延时 (2000)<br /> 点击获取新闻.禁止 ＝ 假<br /> 点击获取新闻.标题 ＝ “点击重新获取”

ahuo888

zainex 发表于 2026-1-25 16:17
使用上面的代码获取的标题，本身是不会有重复和空行的。
如果你担心未来会出现这种情况，可以这样做：
[e=1 ...

你这个只采集一页，。帮我加个计次循环首 (100, i)  ' 页数

ahuo888

zainex 发表于 2026-1-25 16:17
使用上面的代码获取的标题，本身是不会有重复和空行的。
如果你担心未来会出现这种情况，可以这样做：
[e=1 ...

计次循环首 (100, i)  ' 页数  加个采集页数，你这个只有采集一页

ahuo888

zainex 发表于 2026-1-25 16:17
使用上面的代码获取的标题，本身是不会有重复和空行的。
如果你担心未来会出现这种情况，可以这样做：
[e=1 ...

你这个只能采集一页，能跟我发出来的那个一样可以采集多页吗？

ahuo888

zainex 发表于 2026-1-25 16:17
使用上面的代码获取的标题，本身是不会有重复和空行的。
如果你担心未来会出现这种情况，可以这样做：
[e=1 ...

没有页数，你这个只有一页。