【2021.08.28】易语言学习打卡-小说采集器

2463308417

【2021.08.28】 星期五  继续打卡

大家好，我又来了！

昨天和前天分别学习了JSON和正则的应用，今天学了单线程和多线程的区别。制作了项目：小说采集器。
我是跟随代号1126学习的，看过视频的都知道里面只讲解了单线程的小说采集器，在我学了多线程之后，我将其改成了多线程的方式。

源码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

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

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

变量名	类 型	静态	数组	备 注
i	整数型
线程数	整数型
总线程数	整数型
完成的任务数	整数型

循环判断首 ()
如果真 (在运行的线程数 ＜ 到整数 (编辑框1.内容))
在运行的线程数 ＝ 在运行的线程数 ＋ 1
启动线程 (&多线程采集小说, , )
完成的任务数 ＝ 完成的任务数 ＋ 1
如果真 (完成的任务数 ≥ 到整数 (超级列表框1.取表项数 ()))
信息框 (“执行完成”, 0, , )
跳出循环 ()
处理事件 ()
循环判断尾 (1 ＝ 1)

子程序名	返回值类型	公开	备 注
多线程采集小说

变量名	类 型	静态	数组	备 注
小说正则	正则表达式类
返回文本	文本型
i	整数型
索引	整数型

延迟 (3000)
索引 ＝ 索引 － 1
返回文本 ＝ 文本_取文本右边_L (到文本 (网页_访问_对象 (“http://www.qishu.me/”, , , , , , , , , , , , , , , , )), “headcontainer1”, )
小说正则.创建 ( #网页小说, 返回文本, , , , )
计次循环首 (小说正则.取匹配数量 (), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 小说正则.取子匹配文本 (i, 2, ))
超级列表框1.置标题 (索引, 2, “http://www.qishu.me/” ＋ 小说正则.取子匹配文本 (i, 1, ))
超级列表框1.置标题 (索引, 3, “https://xiazai.xqishu.com/txt/” ＋ 文本_取左边 (小说正则.取子匹配文本 (i, 2, ), “TXT”, , ) ＋ “.txt”)
计次循环尾 ()
在运行的线程数 ＝ 在运行的线程数 － 1

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_下载_被选择

判断 (超级列表框1.取标题 (超级列表框1.现行选中项, 3) ≠ “”)
写到文件 (取运行目录 () ＋ “\小说目录\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “.txt”, 网页_访问_对象 (超级列表框1.取标题 (超级列表框1.现行选中项, 3), , , , , , , , , , , , , , , , ))
信息框 (“下载完成！”, 0 ＋ 64, “通知：”, )
信息框 (“小说还没有采集！”, 0 ＋ 64, “通知：”, )

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 线程数, 整数型<br /> .局部变量 总线程数, 整数型<br /> .局部变量 完成的任务数, 整数型<br /> <br /> .循环判断首 ()<br />     .如果真 (在运行的线程数 ＜ 到整数 (编辑框1.内容))<br />         在运行的线程数 ＝ 在运行的线程数 ＋ 1<br />         启动线程 (&多线程采集小说, , )<br />         完成的任务数 ＝ 完成的任务数 ＋ 1<br />     .如果真结束<br />     .如果真 (完成的任务数 ≥ 到整数 (超级列表框1.取表项数 ()))<br />         信息框 (“执行完成”, 0, , )<br />         跳出循环 ()<br />     .如果真结束<br />     处理事件 ()<br /> .循环判断尾 (1 ＝ 1)<br /> <br /> .子程序 多线程采集小说<br /> .局部变量 小说正则, 正则表达式类<br /> .局部变量 返回文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 延迟 (3000)<br /> 索引 ＝ 索引 － 1<br /> 返回文本 ＝ 文本_取文本右边_L (到文本 (网页_访问_对象 (“<a href="http://www.qishu.me/" target="_blank">http://www.qishu.me/</a>”, , , , , , , , , , , , , , , , )), “headcontainer1”, )<br /> 小说正则.创建 (#网页小说, 返回文本, , , , )<br /> .计次循环首 (小说正则.取匹配数量 (), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, 小说正则.取子匹配文本 (i, 2, ))<br />     超级列表框1.置标题 (索引, 2, “<a href="http://www.qishu.me/" target="_blank">http://www.qishu.me/</a>” ＋ 小说正则.取子匹配文本 (i, 1, ))<br />     超级列表框1.置标题 (索引, 3, “<a href="https://xiazai.xqishu.com/txt/" target="_blank">https://xiazai.xqishu.com/txt/</a>” ＋ 文本_取左边 (小说正则.取子匹配文本 (i, 2, ), “TXT”, , ) ＋ “.txt”)<br /> .计次循环尾 ()<br /> 在运行的线程数 ＝ 在运行的线程数 － 1<br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> .子程序 _下载_被选择<br /> <br /> .判断开始 (超级列表框1.取标题 (超级列表框1.现行选中项, 3) ≠ “”)<br />     写到文件 (取运行目录 () ＋ “\小说目录\” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “.txt”, 网页_访问_对象 (超级列表框1.取标题 (超级列表框1.现行选中项, 3), , , , , , , , , , , , , , , , ))<br />     信息框 (“下载完成！”, 0 ＋ 64, “通知：”, )<br /> .默认<br />     信息框 (“小说还没有采集！”, 0 ＋ 64, “通知：”, )<br /> .判断结束

不知道我改的多线程这种方式是否正确？希望有大神可以指点一下。

这里还要分享一个网页方面用处挺大的命令，这个命令是视频自带模块里的：

.版本 2

' 下载 章节小说时
' 遇到html的标签在正文中的时候使用命令 网页_取文本_dom ()
' 命令：网页_取文本_dom ()  --可以将内容中的 html 标签全部去掉

ps：说到这我想起以前学习web的时候，学过手写DOM库。当时的项目是做一个浏览器前航，用到了很多dom的命令。
github：


浏览器项目展示图：



如果想要我做的浏览器项目，回复一下：浏览器，我明天会在签到的时候分享出来。

dinorye

6666666666666666666666

2463308417

dinorye 发表于 2021-8-29 12:42
6666666666666666666666

你也6666666666666666666666

LiuMing

66666666666666666666

治国

oak圣诞节卡就是看到了家里

q9332282

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

www789123

谢谢分享