|
楼主 |
发表于 2019-5-23 22:46:46
|
显示全部楼层
四川省遂宁市
本帖最后由 闻v风 于 2019-5-23 22:54 编辑
变量名 | 类 型 | 静态 | 数组 | 备 注 | 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)
|
|