易语言利用利用微云实现在线更新

.版本 2 .支持库 spec .支持库 internet .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 调试输出 (取在线数据 (“1”)) 调试输出 (取在线数据 (“2”)) 调试输出 (取在线数据 (“3”)) 调试输出 (取在线数据 (“4”)) 调试输出 (取在线数据 (“5”)) .子程序 子程序1 .子程序 取在线数据, 文本型, , '这个函数读取指定QQ的昵称, QQ昵称 控制版本号 .参数 在线编号, 文本型 .局部变量 数据, 文本型 .局部变量 头像, 文本型 数据 = 到文本 (HTTP读文件 (“https://share.weiyun.com/5GscbPi”)) ' 自己去微云分享一个文章即可 格式为 1[我是内容] 如果多个数据就回车 在复制几遍就可以了 头像 = 取文本中间_E (数据, 在线编号 + “[”, “]”) 返回 (编码_utf8到gb2312 (头像)) .子程序 取文本中间_E, 文本型 .参数 原文本, 文本型 .参数 前面文本, 文本型 .参数 后面文本, 文本型 .参数 是否区分大小写, 逻辑型, 可空, 默认不区分 真=区分 假=不区分 .参数 查找方法, 整数型, 可空, 0=先找前面 1=先找后面 .参数 后面文本可能是尾部, 逻辑型, 可空, 如果真,后面的不存在也没事 .局部变量 位置1, 整数型 .局部变量 位置2, 整数型 .局部变量 起始, 整数型 .局部变量 前面文本长度, 整数型 .局部变量 后面文本长度, 整数型 前面文本长度 = 取文本长度 (前面文本) 后面文本长度 = 取文本长度 (后面文本) .如果 (查找方法 = 1) 起始 = 1 .循环判断首 () 位置1 = 寻找文本 (原文本, 后面文本, 起始, 取反 (是否区分大小写)) 位置2 = 倒找文本 (原文本, 前面文本, 位置1, 取反 (是否区分大小写)) .如果真 (位置1 ≠ -1 且 位置2 = -1) 起始 = 位置1 + 后面文本长度 .如果真结束 .循环判断尾 (位置1 ≠ -1 且 位置2 = -1) 返回 (取文本中间 (原文本, 位置2 + 前面文本长度, 位置1 - 位置2 - 前面文本长度)) .否则 位置1 = 寻找文本 (原文本, 前面文本, , 取反 (是否区分大小写)) 位置2 = 寻找文本 (原文本, 后面文本, 位置1 + 取文本长度 (前面文本), 取反 (是否区分大小写)) .如果真 (后面文本可能是尾部) .如果真 (位置2 = -1 且 位置1 ≠ -1) 返回 (取文本中间 (原文本, 位置1 + 前面文本长度, 取文本长度 (原文本) - 位置1 - 前面文本长度 + 1)) .如果真结束 .如果真结束 .如果真 (位置1 = -1 或 位置2 = -1) 返回 (“”) .如果真结束 返回 (取文本中间 (原文本, 位置1 + 前面文本长度, 位置2 - 位置1 - 前面文本长度)) .如果结束 .子程序 编码_utf8到gb2312, 文本型 .参数 欲转换的源码, 文本型 返回 (Unicode到Ansi (Ansi到Unicode (欲转换的源码), 936)) ' 从utf8到gb2312 .子程序 Ansi到Unicode, 字节集 .参数 Ansi, 文本型 .参数 原始编码, 整数型, 可空 .局部变量 Unicode, 字节集 .局部变量 长度, 整数型 .如果真 (是否为空 (原始编码)) 原始编码 = 65001 .如果真结束 长度 = MultiByteToWideChar (0, 0, Ansi, -1, { }, 0) Unicode = 取空白字节集 (长度 × 2) MultiByteToWideChar (原始编码, 0, Ansi, -1, Unicode, 长度) 返回 (Unicode) .子程序 Unicode到Ansi, 文本型 .参数 Unicode, 字节集 .参数 目标编码, 整数型, 可空 .局部变量 Ansi, 文本型 .局部变量 长度, 整数型 .如果真 (是否为空 (目标编码)) 目标编码 = 0 .如果真结束 长度 = WideCharToMultiByte_整数 (0, 0, 取指针_字节集型 (Unicode), -1, 0, 0, 0, 0) Ansi = 取空白文本 (长度 × 2) WideCharToMultiByte_整数 (目标编码, 0, 取指针_字节集型 (Unicode), -1, 取指针_文本型 (Ansi), 长度 × 2, 0, 0) 返回 (Ansi) .子程序 取指针_文本型, 整数型, , 取到的是变量在堆中的地址,和 取变量数据地址() 一样 .参数 文本, 文本型, 参考 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 }) 返回 (0) .子程序 取指针_字节集型, 整数型, , 取到的是变量堆地址,和 取变量数据地址() 一样 .参数 字节集, 字节集, 参考 置入代码 ({ 139, 69, 8, 139, 0, 133, 192, 15, 132, 3, 0, 0, 0, 131, 192, 8, 201, 194, 4, 0 }) 返回 (0)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

易语言利用利用微云实现在线更新》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注