| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| I | 整数型 | | |
| J | 整数型 | | |
| Data | 文本型 | | |
| WebData | 文本型 | | |
| Json | 类_json | | |
| Json2 | 类_json | | |
| 书本内容 | 文本型 | | |
| 书名 | 文本型 | | |
| l_章节内容 | 文本型 | | |
| l_章节标题 | 文本型 | | |
| l_总数 | 整数型 | | |
| l_总数2 | 整数型 | | |
| l_最后一行 | 文本型 | | |
| l_书名 | 文本型 | | |
| 临时文件路径 | 文本型 | | |
| l_作者 | 文本型 | | |
| l_简介 | 文本型 | | |
| l_小说全本 | 文本型 | | |
| l_章节ID | 文本型 | | |
| l_章节标题_ | 文本型 | | |
| l_临时 | 文本型 | | |
| l_书本ID | 文本型 | | |
| 快速文本对象 | 快速文本对象 | | |
l_书本ID ＝ 编辑框_书本ID.内容
Data ＝ 编辑框_书本ID.内容 ＋
“1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”Sign ＝
校验_取md5 (到字节集 (Data
), ,
)WebData ＝
编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1,
“timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋
“&sign=” ＋ Sign, , , , , , , , , , , , , , , ,
))
如果真 (取反 (Json.
解析 (WebData
))
)
信息框 (“解析失败”, 0, ,
)返回 ()l_作者 ＝ 标签_作者.标题l_书名 ＝ 标签_书名.标题
l_简介 ＝ 超级编辑框_简介.内容
状态 (l_书名 ＋
“ 开始下载 - ” ＋ l_书名
)如果真 (目录_是否存在 (取运行目录 () ＋
“\tmp\” ＋ l_书名
) ＝
假)目录_创建 (取运行目录 () ＋
“\tmp\” ＋ l_书名
)
如果真 (目录_是否存在 (取运行目录 () ＋
“\下载”) ＝
假)目录_创建 (取运行目录 () ＋
“\下载”)
Json2.
解析 (Json.
取属性 (“data.chapterList”).
取数据文本 ())
l_总数 ＝ Json2.
成员数 ()
计次循环首 (l_总数, J
)Json.
清除 ()Json.
解析 (Json2.
取属性 (“[” ＋
到文本 (J － 1
) ＋
“].volumeList”).
取数据文本 ())
l_总数2 ＝ Json.
成员数 ()计次循环首 (l_总数2, I
)临时文件路径 ＝
取运行目录 () ＋
“\tmp\” ＋ l_书名 ＋
“\” ＋
到文本 (100000 ＋ I
) ＋
“.txt”如果真 (文件_是否存在 (临时文件路径
) ＝
真 且 到整数 (文件_取尺寸 (临时文件路径,
)) ＞ 100
)到循环尾 ()l_章节标题 ＝ Json.
取成员 (I － 1,
).
取通用属性 (“chapterName”,
)l_章节标题_ ＝ l_章节标题
如果真 (寻找文本 (l_章节标题,
“ ”, ,
假) ＝ -1
)l_章节标题 ＝
子文本替换 (l_章节标题,
“章”,
“章 ”, , ,
真)如果 (l_总数 ＞ 1
)
超级列表框_下载列表.
置标题 (索引, 2,
到文本 (I
) ＋
“/” ＋
到文本 (l_总数2
) ＋
“|” ＋
到文本 (J
) ＋
“/” ＋
到文本 (l_总数
))
超级列表框_下载列表.
置标题 (索引, 2,
到文本 (I
) ＋
“/” ＋
到文本 (l_总数2
))
l_章节ID ＝ Json.取成员 (I － 1, ).取通用属性 (“chapterId”, )l_章节内容 ＝
获取假Base64_2 (l_书本ID, l_章节ID
)l_章节内容 ＝
文本_删除空行_ (l_章节内容
)如果真 (取文本长度 (l_章节内容
) ＜ 100
)写配置项 (取运行目录 () ＋
“\err_log.ini”, l_书名,
到文本 (I
) ＋
“_” ＋ l_章节标题, l_章节ID
)到循环尾 ()如果真 (寻找文本 (l_章节内容,
“ 第”, ,
假) ≠ -1
)l_章节内容 ＝
子文本替换 (l_章节内容,
“ 第”,
“第”, , 1,
真)判断循环首 (真)如果 (取文本右边 (l_章节内容, 2
) ＝
“）”)l_临时 ＝
文本_倒取出中间文本 (l_章节内容,
“）”,
“（”, ,
真)如果 (取文本长度 (l_临时
) ＜ 1000
)l_章节内容 ＝
子文本替换 (l_章节内容,
“（” ＋ l_临时 ＋
“）”, , , ,
真)l_章节内容 ＝
文本_删除空行2_ (l_章节内容
)l_章节内容 ＝
子文本替换 (l_章节内容,
“【” ＋ l_临时 ＋
“】”, , , ,
真)
如果 (取文本右边 (l_章节内容, 1
) ＝
“)”)
l_临时 ＝
文本_倒取出中间文本 (l_章节内容,
“)”,
“(”, ,
真)如果 (取文本长度 (l_临时
) ＜ 1000
)l_章节内容 ＝
子文本替换 (l_章节内容,
“(” ＋ l_临时 ＋
“)”, , , ,
真)l_章节内容 ＝
文本_删除空行2_ (l_章节内容
)l_章节内容 ＝
子文本替换 (l_章节内容,
“【” ＋ l_临时 ＋
“】”, , , ,
真)跳出循环 ()
判断循环尾 ()如果 (寻找文本 (l_章节内容, l_章节标题_, ,
假) ＝ -1
且 寻找文本 (l_章节内容, l_章节标题, ,
假) ＝ -1
)l_章节内容 ＝ l_章节标题 ＋
#换行符 ＋ l_章节内容 ＋
#换行符 ＋
#换行符 l_章节内容 ＝ l_章节内容 ＋
#换行符 ＋
#换行符 写到文件 (临时文件路径, 到字节集 (l_章节内容))计次循环尾 ()计次循环尾 ()状态 (l_书名 ＋
“ 开始合并...”)列表框_文件路径.
清空 ()文件_搜索 (取运行目录 () ＋
“\tmp\” ＋ l_书名, 列表框_文件路径,
“*.txt”, , ,
真)l_总数 ＝ 列表框_文件路径.
取项目数 ()快速文本对象.
置文本 (l_书名 ＋
“ ” ＋ l_作者 ＋
#换行符 ＋ l_简介 ＋
#换行符 ＋
#换行符 )计次循环首 (l_总数, I
)如果真 (I ≠ 1
)快速文本对象.
添加 ( #换行符 ＋
#换行符 )状态 (“合并 - ” ＋ l_书名 ＋ “ | ” ＋ 到文本 (I) ＋ “/” ＋ 到文本 (l_总数))临时文件路径 ＝ 列表框_文件路径.
取项目文本 (I － 1
)快速文本对象.
添加 (到文本 (读入文件 (临时文件路径
))
)计次循环尾 ()写到文件 (取运行目录 () ＋
“\下载\” ＋ l_书名 ＋
“ 作者：” ＋ l_作者 ＋
“.txt”,
到字节集 (快速文本对象.
取文本 (,
))
)超级列表框_下载列表.
置标题 (索引, 2,
“完成”)状态 (l_书名 ＋
“ 合并结束！”)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| Data | 文本型 | | |
| WebData | 文本型 | | |
| Json | 类_json | | |
| I | | | |
| l_总数 | 整数型 | | |
| l_总数2 | 整数型 | | |
| l_书本ID | 文本型 | | |
| Json2 | 类_json | | |
| J | 整数型 | | |
| o | 整数型 | | |
l_书本ID ＝ 编辑框_书本ID.内容
状态 (“获取章节 - ” ＋ l_书本ID ＋
“开始...”)Data ＝ 编辑框_书本ID.内容 ＋
“1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”Sign ＝
校验_取md5 (到字节集 (Data
), ,
)WebData ＝
编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1,
“timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋
“&sign=” ＋ Sign, , , , , , , , , , , , , , , ,
))
如果真 (取反 (Json.
解析 (WebData
))
)信息框 (“解析失败”, 0, ,
)返回 ()Json2.解析 (Json.取属性 (“data.chapterList”).取数据文本 ())l_总数 ＝ Json2.
成员数 ()计次循环首 (l_总数, J
)Json.
清除 ()Json.
解析 (Json2.
取属性 (“[” ＋
到文本 (J － 1
) ＋
“].volumeList”).
取数据文本 ())
l_总数2 ＝ Json.
成员数 ()计次循环首 (l_总数2, I
)o ＝ 超级列表框_章节目录.
插入表项 (, , , , ,
)超级列表框_章节目录.
置标题 (o, 0, Json.
取成员 (I － 1,
).
取通用属性 (“chapterName”,
))
超级列表框_章节目录.
置标题 (o, 1, Json.
取成员 (I － 1,
).
取通用属性 (“chapterId”,
))
超级列表框_章节目录.现行选中项 ＝ o
超级列表框_章节目录.
保证显示 (超级列表框_章节目录.现行选中项
)计次循环尾 ()计次循环尾 ()超级列表框_章节目录.
刷新显示 ()按钮_取章节目录.禁止 ＝ 假
状态 (“获取章节 - ” ＋ l_书本ID ＋
“结束 共[” ＋
到文本 (超级列表框_章节目录.
取表项数 ()) ＋
“]章！”)
厉害了，谢谢分享
书旗VIP.e
(826.06 KB, 下载次数: 91)
