第④期十四课小说采集

时光海苔

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
小说名称	文本型
小说地址	文本型

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

判断 (目录_是否存在 (取运行目录 () ＋ “/小说采集”) ＝ 假)
创建目录 (取运行目录 () ＋ “/小说采集”)


获取小说目录 ()

子程序名	返回值类型	公开	备 注
获取小说目录

变量名	类 型	静态	数组	备 注
返回文本	文本型
正则	正则表达式类
n	整数型
临时_表项索引	整数型

返回文本 ＝ 到文本 (网页_GZIP解压 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”)))
' 调试输出 (返回文本)
判断 (返回文本 ＝ “”)
返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”))


返回文本 ＝ 编码_utf8到gb2312 (返回文本)
' 调试输出 (返回文本)
正则.创建 ( #小说列表正则, 返回文本, , )
计次循环首 (正则.取匹配数量 (), n)
' 索引2是小说名称 1是目录地址
临时_表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (临时_表项索引, 0, 正则.取子匹配文本 (n, 2))
超级列表框1.置标题 (临时_表项索引, 1, 正则.取子匹配文本 (n, 1))
计次循环尾 ()

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

判断 (超级列表框1.现行选中项 ＝ -1)
信息框 (“你还没有选中小说,无法采集”, 0, , )
返回 ()



小说名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
小说地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
' 调试输出 (小说地址)
判断 (目录_是否存在 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称) ＝ 假)
创建目录 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称)


获取小说章节 ()

子程序名	返回值类型	公开	备 注
获取小说章节

变量名	类 型	静态	数组	备 注
返回文本	文本型
正则	正则表达式类
n	整数型
章节地址	文本型
章节内容	文本型

返回文本 ＝ 网页_访问S (小说地址)
' 调试输出 (返回文本)
正则.创建 ( #章节列表正则, 返回文本, , )
调试输出 (正则.取匹配数量 ())
时钟1.时钟周期 ＝ 1000
计次循环首 (正则.取匹配数量 (), n)
章节地址 ＝ 正则.取子匹配文本 (n, 1)
章节内容 ＝ 获取章节内容 (章节地址)
标签1.标题 ＝ 正则.取子匹配文本 (n, 2)
' 索引2是小说名称 1是地址
写到文件 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称 ＋ “/” ＋ 正则.取子匹配文本 (n, 2) ＋ “.txt”, 到字节集 (章节内容))
' 跳出循环 ()
程序_延时 (1000)
计次循环尾 ()
时钟1.时钟周期 ＝ 0
_启动窗口.标题 ＝ “小说：” ＋ 小说名称 ＋ “，下载已完成”

子程序名	返回值类型	公开	备 注
获取章节内容	文本型
参数名	类 型	参考	可空	数组	备 注
章节地址	文本型

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

返回文本 ＝ 网页_访问S (“http://www.xbiquge.la/” ＋ 章节地址)
返回文本 ＝ 文本_取出中间文本 (返回文本, #前边内容, “”, )
返回文本 ＝ 文本_替换 (返回文本, , , , “ ”, “ ”, “
”, #换行符, “
”, #换行符)
' 调试输出 (返回文本)
返回 (返回文本)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_启动窗口.标题 ＝ “小说：” ＋ 小说名称 ＋ “，下载中.”

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 小说名称, 文本型<br /> .程序集变量 小说地址, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .判断开始 (目录_是否存在 (取运行目录 () ＋ “/小说采集”) ＝ 假)<br />     创建目录 (取运行目录 () ＋ “/小说采集”)<br /> .默认<br /> <br /> .判断结束<br /> 获取小说目录 ()<br /> <br /> <br /> .子程序 获取小说目录<br /> .局部变量 返回文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 n, 整数型<br /> .局部变量 临时_表项索引, 整数型<br /> <br /> 返回文本 ＝ 到文本 (网页_GZIP解压 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”)))<br /> <br /> ' 调试输出 (返回文本)<br /> .判断开始 (返回文本 ＝ “”)<br />     返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”))<br /> .默认<br /> <br /> .判断结束<br /> 返回文本 ＝ 编码_utf8到gb2312 (返回文本)<br /> ' 调试输出 (返回文本)<br /> 正则.创建 (#小说列表正则, 返回文本, , )<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     ' 索引2是小说名称 1是目录地址<br />     临时_表项索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (临时_表项索引, 0, 正则.取子匹配文本 (n, 2))<br />     超级列表框1.置标题 (临时_表项索引, 1, 正则.取子匹配文本 (n, 1))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> .判断开始 (超级列表框1.现行选中项 ＝ -1)<br />     信息框 (“你还没有选中小说,无法采集”, 0, , )<br />     返回 ()<br /> <br /> .默认<br /> <br /> .判断结束<br /> 小说名称 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)<br /> 小说地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br /> ' 调试输出 (小说地址)<br /> .判断开始 (目录_是否存在 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称) ＝ 假)<br />     创建目录 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称)<br /> .默认<br /> <br /> .判断结束<br /> 获取小说章节 ()<br /> <br /> .子程序 获取小说章节<br /> .局部变量 返回文本, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 n, 整数型<br /> .局部变量 章节地址, 文本型<br /> .局部变量 章节内容, 文本型<br /> <br /> 返回文本 ＝ 网页_访问S (小说地址)<br /> ' 调试输出 (返回文本)<br /> <br /> <br /> 正则.创建 (#章节列表正则, 返回文本, , )<br /> 调试输出 (正则.取匹配数量 ())<br /> 时钟1.时钟周期 ＝ 1000<br /> .计次循环首 (正则.取匹配数量 (), n)<br />     章节地址 ＝ 正则.取子匹配文本 (n, 1)<br />     章节内容 ＝ 获取章节内容 (章节地址)<br />     标签1.标题 ＝ 正则.取子匹配文本 (n, 2)<br />     ' 索引2是小说名称 1是地址<br />     写到文件 (取运行目录 () ＋ “/小说采集/” ＋ 小说名称 ＋ “/” ＋ 正则.取子匹配文本 (n, 2) ＋ “.txt”, 到字节集 (章节内容))<br />     ' 跳出循环 ()<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> 时钟1.时钟周期 ＝ 0<br /> _启动窗口.标题 ＝ “小说：” ＋ 小说名称 ＋ “，下载已完成”<br /> <br /> .子程序 获取章节内容, 文本型<br /> .参数 章节地址, 文本型<br /> .局部变量 返回文本, 文本型<br /> <br /> 返回文本 ＝ 网页_访问S (“http://www.xbiquge.la/” ＋ 章节地址)<br /> <br /> 返回文本 ＝ 文本_取出中间文本 (返回文本, #前边内容, “”, )<br /> <br /> 返回文本 ＝ 文本_替换 (返回文本, , , , “ ”, “ ”, “<br /> ”, #换行符, “<br /> ”, #换行符)<br /> ' 调试输出 (返回文本)<br /> 返回 (返回文本)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _启动窗口.标题 ＝ “小说：” ＋ 小说名称 ＋ “，下载中.”

每日一贴:小说网站采集
知识点总结:超级列表框,正则,时钟,文件操作,网页访问操作.
疑难问题:哪个大佬给解释下,代码如下

  

返回文本 ＝ 到文本 (网页_GZIP解压 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”)))
' 调试输出 (返回文本)
判断 (返回文本 ＝ “”)
返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”))

.版本 2<br /> <br /> 返回文本 ＝ 到文本 (网页_GZIP解压 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”)))<br /> <br /> ' 调试输出 (返回文本)<br /> .判断开始 (返回文本 ＝ “”)<br />     返回文本 ＝ 到文本 (网页_访问_对象 (“http://www.xbiquge.la/paihangbang/”))

访问小说列表的时候,为什么有时用解压能拿到数据,有时不需要解压能拿到数据?

冰心不冰

感谢楼主分享

eren8

感谢楼主分享

eren8

感谢楼主分享

2498137237

hangyubin 发表于 2019-1-30 22:18
怎么把章节合并在一起下载！困拢中…………。

写到变量里  哈哈

yuy5858

感谢楼主分享

YLJK

66666666666666666666

hangyubin

怎么把章节合并在一起下载！困拢中…………。

zas

学习学习！！！！！！！！

lukun

感谢分享，很给力！~