.版本 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)
微云控制版本更新
易语言利用微云更新
易语言云更新
易语言用什么做云更新好