爱看小说网小说下载、下载阅读音频

明天会更好zt

下载爱看小说网（https://www.aikantxt.la/）的小说，并将下载的文本转换成音频文件，使用了精易模块、elss的HTML解析模块


源码.e (856.9 KB, 下载次数: 21)

2020-3-24 08:18 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_章节	章节	0
集_路径	文本型

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

获取章节清单 (编辑框_目录地址.内容, 集_章节)
如果 (取数组成员数 (集_章节) ＞ 0)
章节到选择列表框 ()
信息框 (“未能获取到章节信息”, 0, , )

子程序名	返回值类型	公开	备 注
获取章节清单
参数名	类 型	参考	可空	数组	备 注
url	文本型				爱看小说网目录地址，如：https://www.aikantxt.la/aikan45482/
章节清单	章节				用于接收获取的章节信息

变量名	类 型	静态	数组	备 注
i	整数型
elss	Elss_EX_Doc
html	文本型
nodes	Elss_EX_Doc
临时章节	章节
id	文本型		0

html ＝ 功能_获取章节HTML (url)
数组清零 (章节清单)
如果真 (elss.load_ex (html))
nodes ＝ elss.Find_ex (“#list>dl>dd>a”)
进度条1.最大位置 ＝ nodes.Length ()
计次循环首 (nodes.Length (), i)
临时章节.name ＝ nodes.Get (i － 1).Text (假)
id ＝ 分割文本 (文本_替换 (nodes.Get (i － 1).Attr (“href”), , , , “/aikan”, “”, “.html”, “”), “/”, )
临时章节.nbid ＝ id [1]
临时章节.crid ＝ id [2]
如果真 (功能_章节重复检测 (章节清单, 临时章节))
加入成员 (章节清单, 临时章节)

处理事件 ()
进度条1.位置 ＝ i
计次循环尾 ()

子程序名	返回值类型	公开	备 注
功能_章节重复检测	逻辑型		重复返回假，不重复返回真
参数名	类 型	参考	可空	数组	备 注
章节数组	章节
章节	章节

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (章节数组), i)
如果真 (章节数组 [i].crid ＝ 章节.crid)
返回 (假)

计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
功能_获取章节HTML	文本型		本命令由【精易网页调试助手】生成，请配合精易模块使用。
参数名	类 型	参考	可空	数组	备 注
网址	文本型

变量名	类 型	静态	数组	备 注
局_方式	整数型
ADD_协yi头	类_POSTxx类
局_提交协yi头	文本型
局_结果	字节集
局_返回	文本型

局_方式 ＝ 0
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协yi头 ＝ ADD_协yi头.获取协yi头xx ()
网页_访问S (网址, 局_方式, , , , 局_提交协yi头, , , , , , , , , , , 局_结果, , , , )
局_返回 ＝ 到文本 (局_结果)
返回 (局_返回)

子程序名	返回值类型	公开	备 注
下载章节
参数名	类 型	参考	可空	数组	备 注
章节清单	章节

变量名	类 型	静态	数组	备 注
局_网址	文本型
局_方式	整数型
ADD_xx包	类_POSTxx类
局_提交xx	文本型
ADD_协yi头	类_POSTxx类
局_提交协yi头	文本型
局_章节内容	文本型
局_计次	整数型
局_文本文件号	整数型
局_路径	文本型

局_网址 ＝ “https://www.aikantxt.la/content.php”
局_方式 ＝ 1
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协yi头 ＝ ADD_协yi头.获取协yi头xx ()
如果 (集_路径 ≠ “”)
局_路径 ＝ 集_路径
局_路径 ＝ 取运行目录 ()
进度条1.最大位置 ＝ 取数组成员数 (章节清单)
计次循环首 (取数组成员数 (章节清单), 局_计次)
ADD_xx包.添加 (“nbid”, 章节清单 [局_计次].nbid)
ADD_xx包.添加 (“crid”, 章节清单 [局_计次].crid)
ADD_xx包.添加 (“fid”, “”)
局_提交xx ＝ ADD_xx包.获取Postxx ()
局_章节内容 ＝ 文本_替换 (到文本 (网页_访问 (局_网址, 局_方式, 局_提交xx, , , 局_提交协yi头, , , , , )), , , , “ ”, “”, “
”, #换行符, “：/”, “”, “电脑端:/”, “”)
局_文本文件号 ＝ 打开文件 (局_路径 ＋ “\文本\” ＋ 章节清单 [局_计次].name ＋ “.txt”, #重写, 1)
写出文本 (局_文本文件号, 局_章节内容)
关闭文件 (局_文本文件号)
输出调试文本 (“文本下载完成，开始下载音频”)
如果真 (选择框1.选中 ＝ 真)
功能_朗读文本Ex (局_章节内容, 章节清单 [局_计次].name ＋ “.mp3”, 局_路径 ＋ “\音频\”)

处理事件 ()
进度条1.位置 ＝ 局_计次
计次循环尾 ()

子程序名	返回值类型	公开	备 注
功能_朗读文本Ex			保存朗读音频到文件
参数名	类 型	参考	可空	数组	备 注
朗读文本	文本型
保存音频文件名	文本型				声音文件名称，如：tts.mp3
保存文件路径	文本型				保存音频文件的目录，如：C:\Users\

变量名	类 型	静态	数组	备 注
局_朗读内容	文本型
局_接口地址	文本型
局_朗读文件	字节集
局_临时文件	文本型
局_保存结果	逻辑型
局_文本段	文本型		0
局_计次	整数型
局_录音文件段	文本型		0

功能_按长度分割文本 (朗读文本, 局_文本段, 300)
计次循环首 (取数组成员数 (局_文本段), 局_计次)
局_朗读内容 ＝ 编码_URL编码 (局_文本段 [局_计次], , 真)
局_接口地址 ＝ “http://fanyi.baidu.com/gettts?lan=zh&text=” ＋ 局_朗读内容
局_朗读文件 ＝ 网页_访问_对象 (局_接口地址)
局_临时文件 ＝ 目录_取临时目录 () ＋ 校验_取md5 (到字节集 (局_朗读文件)) ＋ “.mp3”
写到文件 (局_临时文件, 局_朗读文件)
输出调试文本 (局_临时文件)
处理事件 ()
加入成员 (局_录音文件段, 局_临时文件)
计次循环尾 ()
如果 (取数组成员数 (局_录音文件段) ＞ 1)
文件_复制 (局_录音文件段 [1], 保存文件路径 ＋ 保存音频文件名, )
计次循环首 (取数组成员数 (局_录音文件段) － 1, 局_计次)
文件_合并文件 (保存文件路径 ＋ 保存音频文件名, 局_录音文件段 [局_计次 ＋ 1], )
计次循环尾 ()

文件_复制 (局_录音文件段 [1], 保存文件路径 ＋ 保存音频文件名, )

子程序名	返回值类型	公开	备 注
功能_按长度分割文本			方便将大的文件内容均分为几段来处理
参数名	类 型	参考	可空	数组	备 注
参_内容	文本型				要处理的文本内容
参_文本数组	文本型				用于存放返回文本的数组
参_分割长度	整数型				单端文本长度

变量名	类 型	静态	数组	备 注
局_内容	文本型
局_计数器	整数型

局_内容 ＝ 文本_删除空行 (参_内容)
局_内容 ＝ 文本_替换 (局_内容, , , , #换行符, “”)
局_内容 ＝ 文本_折行 (局_内容, 参_分割长度, 真, 真, )
' 输出调试文本 (局_内容文本)
计次循环首 (文本_取行数 (局_内容), 局_计数器)
加入成员 (参_文本数组, 文本_取指定变量文本行 (局_内容, 局_计数器))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
章节到选择列表框

变量名	类 型	静态	数组	备 注
局_计次	整数型

计次循环首 (取数组成员数 (集_章节), 局_计次)
选择列表框_章节.加入项目 (集_章节 [局_计次].name, 局_计次)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_计次	整数型

计次循环首 (选择列表框_章节.取项目数 (), 局_计次)
选择列表框_章节.选中项目 (局_计次 － 1, 真)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_计次	整数型

计次循环首 (选择列表框_章节.取项目数 (), 局_计次)
选择列表框_章节.选中项目 (局_计次 － 1, 假)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_计次	整数型

计次循环首 (选择列表框_章节.取项目数 (), 局_计次)
选择列表框_章节.选中项目 (局_计次 － 1, 取反 (选择列表框_章节.是否被选中 (局_计次 － 1)))
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_下载	章节		0
局_临时章节	章节

如果 (集_路径 ≠ “”)
计次循环首 (选择列表框_章节.取项目数 (), 局_计次)
如果真 (选择列表框_章节.是否被选中 (局_计次 － 1) ＝ 真)
局_临时章节 ＝ 集_章节 [局_计次]
加入成员 (局_下载, 局_临时章节)

计次循环尾 ()
如果 (取数组成员数 (局_下载) ＞ 0)
输出调试文本 (到文本 (取数组成员数 (局_下载)))
下载章节 (局_下载)
信息框 (“未选中下载项”, 0, , )


信息框 (“未选选择保存路径”, 0, , )

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

集_路径 ＝ 浏览文件夹 (“选择保存路径”, )
目录_创建 (集_路径 ＋ “\文本”)
目录_创建 (集_路径 ＋ “\音频”)
输出调试文本 (集_路径)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_章节, 章节, , "0"<br /> .程序集变量 集_路径, 文本型<br /> <br /> .子程序 _按钮_取目录_被单击<br /> <br /> 获取章节清单 (编辑框_目录地址.内容, 集_章节)<br /> .如果 (取数组成员数 (集_章节) ＞ 0)<br />     章节到选择列表框 ()<br /> .否则<br />     信息框 (“未能获取到章节信息”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 获取章节清单<br /> .参数 url, 文本型, , 爱看小说网目录地址，如：https://www.aikantxt.la/aikan45482/<br /> .参数 章节清单, 章节, 数组, 用于接收获取的章节信息<br /> .局部变量 i, 整数型<br /> .局部变量 elss, Elss_EX_Doc<br /> .局部变量 html, 文本型<br /> .局部变量 nodes, Elss_EX_Doc<br /> .局部变量 临时章节, 章节<br /> .局部变量 id, 文本型, , "0"<br /> <br /> html ＝ 功能_获取章节HTML (url)<br /> 数组清零 (章节清单)<br /> .如果真 (elss.load_ex (html))<br />     nodes ＝ elss.Find_ex (“#list>dl>dd>a”)<br />     进度条1.最大位置 ＝ nodes.Length ()<br />     .计次循环首 (nodes.Length (), i)<br />         临时章节.name ＝ nodes.Get (i － 1).Text (假)<br />         id ＝ 分割文本 (文本_替换 (nodes.Get (i － 1).Attr (“href”), , , , “/aikan”, “”, “.html”, “”), “/”, )<br />         临时章节.nbid ＝ id [1]<br />         临时章节.crid ＝ id [2]<br />         .如果真 (功能_章节重复检测 (章节清单, 临时章节))<br />             加入成员 (章节清单, 临时章节)<br />         .如果真结束<br /> <br />         处理事件 ()<br />         进度条1.位置 ＝ i<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 功能_章节重复检测, 逻辑型, , 重复返回假，不重复返回真<br /> .参数 章节数组, 章节, 数组<br /> .参数 章节, 章节<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (章节数组), i)<br />     .如果真 (章节数组 <i>.crid ＝ 章节.crid)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> .子程序 功能_获取章节HTML, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br /> .参数 网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_协yi头, 类_POSTxx类<br /> .局部变量 局_提交协yi头, 文本型<br /> .局部变量 局_结果, 字节集<br /> .局部变量 局_返回, 文本型<br /> <br /> 局_方式 ＝ 0<br /> ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br /> 局_提交协yi头 ＝ ADD_协yi头.获取协yi头xx ()<br /> 网页_访问S (网址, 局_方式, , , , 局_提交协yi头, , , , , , , , , , , 局_结果, , , , )<br /> 局_返回 ＝ 到文本 (局_结果)<br /> 返回 (局_返回)<br /> <br /> .子程序 下载章节<br /> .参数 章节清单, 章节, 数组<br /> .局部变量 局_网址, 文本型<br /> .局部变量 局_方式, 整数型<br /> .局部变量 ADD_xx包, 类_POSTxx类<br /> .局部变量 局_提交xx, 文本型<br /> .局部变量 ADD_协yi头, 类_POSTxx类<br /> .局部变量 局_提交协yi头, 文本型<br /> .局部变量 局_章节内容, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_文本文件号, 整数型<br /> .局部变量 局_路径, 文本型<br /> <br /> 局_网址 ＝ “https://www.aikantxt.la/content.php”<br /> 局_方式 ＝ 1<br /> ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br /> 局_提交协yi头 ＝ ADD_协yi头.获取协yi头xx ()<br /> .如果 (集_路径 ≠ “”)<br />     局_路径 ＝ 集_路径<br /> .否则<br />     局_路径 ＝ 取运行目录 ()<br /> .如果结束<br /> 进度条1.最大位置 ＝ 取数组成员数 (章节清单)<br /> .计次循环首 (取数组成员数 (章节清单), 局_计次)<br />     ADD_xx包.添加 (“nbid”, 章节清单 [局_计次].nbid)<br />     ADD_xx包.添加 (“crid”, 章节清单 [局_计次].crid)<br />     ADD_xx包.添加 (“fid”, “”)<br />     局_提交xx ＝ ADD_xx包.获取Postxx ()<br />     局_章节内容 ＝ 文本_替换 (到文本 (网页_访问 (局_网址, 局_方式, 局_提交xx, , , 局_提交协yi头, , , , , )), , , , “ ”, “”, “<br /> ”, #换行符, “：/”, “”, “电脑端:/”, “”)<br />     局_文本文件号 ＝ 打开文件 (局_路径 ＋ “\文本\” ＋ 章节清单 [局_计次].name ＋ “.txt”, #重写, 1)<br />     写出文本 (局_文本文件号, 局_章节内容)<br />     关闭文件 (局_文本文件号)<br />     输出调试文本 (“文本下载完成，开始下载音频”)<br />     .如果真 (选择框1.选中 ＝ 真)<br />         功能_朗读文本Ex (局_章节内容, 章节清单 [局_计次].name ＋ “.mp3”, 局_路径 ＋ “\音频\”)<br />     .如果真结束<br /> <br />     处理事件 ()<br />     进度条1.位置 ＝ 局_计次<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 功能_朗读文本Ex, , , 保存朗读音频到文件<br /> .参数 朗读文本, 文本型<br /> .参数 保存音频文件名, 文本型, , 声音文件名称，如：tts.mp3<br /> .参数 保存文件路径, 文本型, , 保存音频文件的目录，如：C:\Users\<br /> .局部变量 局_朗读内容, 文本型<br /> .局部变量 局_接口地址, 文本型<br /> .局部变量 局_朗读文件, 字节集<br /> .局部变量 局_临时文件, 文本型<br /> .局部变量 局_保存结果, 逻辑型<br /> .局部变量 局_文本段, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_录音文件段, 文本型, , "0"<br /> <br /> <br /> 功能_按长度分割文本 (朗读文本, 局_文本段, 300)<br /> .计次循环首 (取数组成员数 (局_文本段), 局_计次)<br />     局_朗读内容 ＝ 编码_URL编码 (局_文本段 [局_计次], , 真)<br />     局_接口地址 ＝ “<a href="http://fanyi.baidu.com/gettts?lan=zh&text=" rel="nofollow" rel="nofollow" target="_blank">http://fanyi.baidu.com/gettts?lan=zh&text=</a>” ＋ 局_朗读内容<br />     局_朗读文件 ＝ 网页_访问_对象 (局_接口地址)<br />     局_临时文件 ＝ 目录_取临时目录 () ＋ 校验_取md5 (到字节集 (局_朗读文件)) ＋ “.mp3”<br />     写到文件 (局_临时文件, 局_朗读文件)<br />     输出调试文本 (局_临时文件)<br />     处理事件 ()<br />     加入成员 (局_录音文件段, 局_临时文件)<br /> .计次循环尾 ()<br /> <br /> .如果 (取数组成员数 (局_录音文件段) ＞ 1)<br />     文件_复制 (局_录音文件段 [1], 保存文件路径 ＋ 保存音频文件名, )<br />     .计次循环首 (取数组成员数 (局_录音文件段) － 1, 局_计次)<br />         文件_合并文件 (保存文件路径 ＋ 保存音频文件名, 局_录音文件段 [局_计次 ＋ 1], )<br />     .计次循环尾 ()<br /> <br /> .否则<br />     文件_复制 (局_录音文件段 [1], 保存文件路径 ＋ 保存音频文件名, )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 功能_按长度分割文本, , 公开, 方便将大的文件内容均分为几段来处理<br /> .参数 参_内容, 文本型, , 要处理的文本内容<br /> .参数 参_文本数组, 文本型, 数组, 用于存放返回文本的数组<br /> .参数 参_分割长度, 整数型, , 单端文本长度<br /> .局部变量 局_内容, 文本型<br /> .局部变量 局_计数器, 整数型<br /> <br /> 局_内容 ＝ 文本_删除空行 (参_内容)<br /> 局_内容 ＝ 文本_替换 (局_内容, , , , #换行符, “”)<br /> 局_内容 ＝ 文本_折行 (局_内容, 参_分割长度, 真, 真, )<br /> ' 输出调试文本 (局_内容文本)<br /> .计次循环首 (文本_取行数 (局_内容), 局_计数器)<br />     加入成员 (参_文本数组, 文本_取指定变量文本行 (局_内容, 局_计数器))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 章节到选择列表框<br /> .局部变量 局_计次, 整数型<br /> <br /> .计次循环首 (取数组成员数 (集_章节), 局_计次)<br />     选择列表框_章节.加入项目 (集_章节 [局_计次].name, 局_计次)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_全选_被单击<br /> .局部变量 局_计次, 整数型<br /> <br /> .计次循环首 (选择列表框_章节.取项目数 (), 局_计次)<br />     选择列表框_章节.选中项目 (局_计次 － 1, 真)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_取消_被单击<br /> .局部变量 局_计次, 整数型<br /> <br /> .计次循环首 (选择列表框_章节.取项目数 (), 局_计次)<br />     选择列表框_章节.选中项目 (局_计次 － 1, 假)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮_反选_被单击<br /> .局部变量 局_计次, 整数型<br /> <br /> .计次循环首 (选择列表框_章节.取项目数 (), 局_计次)<br />     选择列表框_章节.选中项目 (局_计次 － 1, 取反 (选择列表框_章节.是否被选中 (局_计次 － 1)))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮_下载_被单击<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_下载, 章节, , "0"<br /> .局部变量 局_临时章节, 章节<br /> <br /> .如果 (集_路径 ≠ “”)<br />     .计次循环首 (选择列表框_章节.取项目数 (), 局_计次)<br />         .如果真 (选择列表框_章节.是否被选中 (局_计次 － 1) ＝ 真)<br />             局_临时章节 ＝ 集_章节 [局_计次]<br />             加入成员 (局_下载, 局_临时章节)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果 (取数组成员数 (局_下载) ＞ 0)<br />         输出调试文本 (到文本 (取数组成员数 (局_下载)))<br />         下载章节 (局_下载)<br />     .否则<br />         信息框 (“未选中下载项”, 0, , )<br />     .如果结束<br /> <br /> <br /> .否则<br />     信息框 (“未选选择保存路径”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮_路径_被单击<br /> <br /> 集_路径 ＝ 浏览文件夹 (“选择保存路径”, )<br /> 目录_创建 (集_路径 ＋ “\文本”)<br /> 目录_创建 (集_路径 ＋ “\音频”)<br /> 输出调试文本 (集_路径)

laosijishare

6666666666666666666666

552233

支持开源~！感谢分享

原阳喜洋洋电脑

昨天才看到这个网站，刚有下载的想法，没想到就有人发源码了，支持楼主

6551116

感谢分享~~~~

gaoqing

谢谢分享！

明天会更好zt

浮生醉清风 发表于 2020-3-24 10:55
你这是不是分享错板块了，这应该是在易语言源码板块发表的吧，这是乐玩板块啊

确实是发错版块了！~

浮生醉清风

你这是不是分享错板块了，这应该是在易语言源码板块发表的吧，这是乐玩板块啊

明天会更好zt

还需要用到精易模块和elssplus模块，附件上传的时候失败了，网上很好找。