飞速小说网多线程采集内容合成源码

程序运行崩溃的请自行调节线程数。

路径 ＝ 取运行目录 () ＋ “/” ＋ 小说名
url ＝ 超级列表框1.取标题 (参数, 1)
章节名 ＝ 超级列表框1.取标题 (参数, 0)
文本 ＝ 网页_访问S (url, , , , , , , , , , , , , , , , , , , , )
正则.创建 (“

(\S+)”, 文本, , , , )
.如果 (正则.取匹配数量 () ＞ 0)
章节内容 ＝ 正则.取子匹配文本 (1, 1, )
章节内容 ＝ 子文本替换 (章节内容, “

”, #换行符, , , 真)
写到文件 (路径 ＋ “/” ＋ 到文本 (参数) ＋ “.txt”, 到字节集 (章节名 ＋ #换行符 ＋ 章节内容 ＋ #换行符))
处理事件 ()
超级列表框1.置标题 (参数, 2, “读取完成”)
.如果 (是否全部下载 () ＝ 真)
编辑框2.加入文本 (“所有章节内容采集完成...” ＋ #换行符 ＋ “正在合成小说，请稍后...” ＋ #换行符)
启动线程 (&内容合成, , )
.否则

.如果结束

.否则
超级列表框1.置标题 (参数, 2, “失败”)
采集多线程.投递任务_int (到整数 (&获取章节内容), 参数, )
.如果结束
超级列表框1.保证显示 (参数)