易语言电子书源码.pdfVIP

.版本 2 .程序集 程序集_功能 .程序集变量 保存的音频文件, 文本型 .程序集变量 音频数据, 字节集 .子程序 生成音频,, 公开 .参数 文本, 文本型 .参数 目录, 文本型, 可空 .参数 保存文件名, 文本型 .局部变量 局_返回文本, 文本型 .局部变量 局_下载地址, 文本型 局 _ 返 回 文 本 ＝ 彗 星 HTTP 读 文 本 (“/bin/makeColorPlusGuest.jsp?sex=201speed=0ment=”＋ 到文本 (中文分词 (文本)),,,) 局_下载地址 ＝ 取文本中间内容 (局_返回文本,#左,#右) .如果真 (文件是否存在 (目录) ＝ 假) 创建目录 (目录) .如果真结束 .如果真 (下载文件 (局_下载地址, 保存文件名) ＝ 真) 加入成员 (朗读_声音, 保存文件名) 下载是否完成 ＝ 真 .如果真结束 .子程序 下载文件, 逻辑型 .参数 文件地址, 文本型 .参数 本地路径, 文本型 .局部变量 _a, 整数型 _a ＝ API下载文件 (0, 文件地址, 本地路径,0,0) .如果 (_a ＝ 0) 保存的音频文件 ＝ 本地路径 音频数据 ＝ 读入文件 (本地路径) 返回 (真) .否则 返回 (假) .如果结束 .子程序 取文本中间内容, 文本型 .参数 需取文本, 文本型 .参数 左边内容, 文本型 .参数 右边内容, 文本型 .参数 成功与否, 逻辑型, 参考 可空 .局部变量 长度, 整数型 .局部变量 左边位置, 整数型 .局部变量 左边长度, 整数型 .局部变量 右边位置, 整数型 .局部变量 右边长度, 整数型 长度 ＝ 取文本长度 (需取文本) 左边位置 ＝ 寻找文本 (需取文本, 左边内容,0, 假) 左边长度 ＝ 取文本长度 (左边内容) .如果真 (左边位置 ＝ -1) 成功与否 ＝ 假 返回 (“未找到左边内容”) .如果真结束 右边位置 ＝ 寻找文本 (需取文本, 右边内容,0, 假) 右边长度 ＝ 取文本长度 (右边内容) .如果真 (右边位置 ＝ -1) 成功与否 ＝ 假 返回 (“未找到右边内容”) .如果真结束 成功与否 ＝ 真 返回 (取文本中间 (需取文本, 左边位置 ＋ 左边长度, 长度 － (左边位置 ＋ 左边长度) － (长度 － 右边位置))) .子程序 中文分词, 文本型,, 好象是《泪闯天涯》之代码 .参数 参数_原字符, 文本型 .局部变量 文本, 文本型 .局部变量 n, 整数型 .局部变量 代码, 整数型 .局部变量 临时, 文本型 .局部变量 分割后文本, 文本型,,0 .局部变量 i n ＝ 1 文本 ＝ 参数_原字符 .判断循环首 (n ≤ 取文本长度 (文本)) 临时 ＝ 取文本中间 (文本,n, 1) .如果真 (取代码 (临时,) ＜ 0) 临时 ＝ 取文本中间 (文本,n, 2) n ＝ n ＋ 1 .如果真结束 加入成员 (分割后文本, 临时) n ＝ n ＋ 1 .判断循环尾 () i ＝ 取数组成员数 (分割后文本) n ＝ 0 文本 ＝ “” .计次循环首 (i,n) .如果 (取文本长度 (分割后文本 [n]) ＝ 1) 文本 ＝ 文本 ＋ 分割后文本 [n] .否则 文本 ＝ 文本 ＋ 彗星URL编码_UTF8(分割后文本 [n]) .如果结束 .计次循环尾 () 返回 (文本) .子程序 彗星HTTP读文本, 文本型,, 有可能线程阻塞,请在外部加超时判断 .参数 完整网址, 文本型 .参数 访问方式, 文本型, 可空,GETor POST,为空默认GET .参数 代理地址, 文本型, 可空 .参数 附加协议头, 文本型, 可空 .参数 提交信息, 文本型, 可空,POST专用 .参数 网页头, 文本型, 参考 可空, 返回网页头部信息 返回 (到文本 (彗星HTTP读文件 (完整网址, 访问方式, 代理地址, 附加协议头, 提交信息, 网 页头))) .子程序 彗星HTTP读文件, 字节集,, 有可能线程阻塞,请在外部加超时判断 .参数 完整网址, 文本型 .参数 访问方