字节集替换易语言源码

字节集替换易语言源码

.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 .局部变量 变量, 字节集 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 变量 = 到字节集 (“我是笨笨”) 输出调试文本 (查看字节集 (变量)) 变量 = 还原为字节集 (查看字节集 (变量), 假) 输出调试文本 (查看字节集 (变量)) .子程序 取十进制, 整数型, 公开, 将非十进制的标准格式文本转换成十进制整数值 .参数 欲转换的值, 文本型, , 欲转换的值,文本型! .参数 数值类型, 整数型, 可空, 0,#十六进制;1,#十进制(默认);2,#八进制;3,#二进制 .局部变量 s, 整数型, , , 最终结果 .局部变量 a, 整数型, , , 中间变量 .局部变量 b, 整数型, , , 中间变量 .局部变量 c, 文本型, , , 中间变量 .局部变量 d, 整数型, , , 中间变量 欲转换的值 = 到小写 (欲转换的值) .如果真 (是否为空 (数值类型)) 数值类型 = 1 .如果真结束 s = 0 .判断开始 (数值类型 = 0) a = 取文本长度 (欲转换的值) .变量循环首 (1, a, 1, b) c = 取文本中间 (欲转换的值, a - b + 1, 1) .如果真 (取代码 (c, ) ≤ 取代码 (“f”, ) 且 取代码 (c, ) ≥ 取代码 (“a”, ) 或 取代码 (c, ) ≤ 取代码 (“F”, ) 且 取代码 (c, ) ≥ 取代码 (“A”, )) .如果真 (取代码 (c, ) ≥ 取代码 (“A”, ) 且 取代码 (c, ) ≤ 取代码 (“F”, )) d = 取代码 (c, ) - 取代码 (“A”, ) + 10 .如果真结束 .如果真 (取代码 (c, ) ≥ 取代码 (“a”, ) 且 取代码 (c, ) ≤ 取代码 (“f”, )) d = 取代码 (c, ) - 取代码 (“a”, ) + 10 .如果真结束 .如果真结束 .如果真 (取代码 (c, ) ≤ 取代码 (“9”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, )) d = 到数值 (c) .如果真结束 s = s + 求次方 (16, b - 1) × d .变量循环尾 () .默认 .判断结束 .判断开始 (数值类型 = 1) s = 到数值 (欲转换的值) .默认 .判断结束 .判断开始 (数值类型 = 2) a = 取文本长度 (欲转换的值) .变量循环首 (1, a, 1, b) c = 取文本中间 (欲转换的值, a - b + 1, 1) .如果真 (取代码 (c, ) ≤ 取代码 (“7”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, )) d = 到数值 (c) .如果真结束 s = s + 求次方 (8, b - 1) × d .变量循环尾 () .默认 .判断结束 .判断开始 (数值类型 = 3) a = 取文本长度 (欲转换的值) .变量循环首 (1, a, 1, b) c = 取文本中间 (欲转换的值, a - b + 1, 1) .如果真 (取代码 (c, ) ≤ 取代码 (“1”, ) 且 取代码 (c, ) ≥ 取代码 (“0”, )) d = 到数值 (c) .如果真结束 s = s + 求次方 (2, b - 1) × d .变量循环尾 () .默认 ' 本源码来自三叶资源网(www.sanye.cx) .判断结束 返回 (s) .子程序 还原为字节集, 字节集, 公开, 将一串十六进制文本还原为字节集 .参数 文本, 文本型, , 如“00BFAD00AFD4FD4F9E054F9FF91FC5FF2076FBAFDB071044”,或者是“{206,210,202,199}”之类 .参数 十六进制, 逻辑型, 可空, 如果未指明则为十六进制文本,如果为假则为十进制文本 .局部变量 字节集, 字节集 .局部变量 i, 整数型 .局部变量 a, 整数型 .局部变量 临时文本, 文本型 .局部变量 临时数组, 文本型, , "0" .如果真 (是否为空 (十六进制)) 十六进制 = 真 .如果真结束 字节集 = { } 临时文本 = 文本 .如果 (十六进制) 临时文本 = 子文本替换 (临时文本, “,”, , , , 真) 临时文本 = 子文本替换 (临时文本, “{”, , , , 真) 临时文本 = 子文本替换 (临时文本, “}”, , , , 真) .变量循环首 (1, 取文本长度 (文本), 2, i) a = 取十进制 (取文本中间 (文本, i, 2), 0) 字节集 = 字节集 + 取字节集左边 (到字节集 (a), 1) .变量循环尾 () .否则 临时文本 = 子文本替换 (临时文本, “{”, , , , 真) 临时文本 = 子文本替换 (临时文本, “}”, , , , 真) 临时数组 = 分割文本 (临时文本, “,”, ) .变量循环首 (1, 取数组成员数 (临时数组), 1, i) a = 到数值 (临时数组 [i]) 字节集 = 字节集 + 取字节集左边 (到字节集 (a), 1) .变量循环尾 () .如果结束 返回 (字节集) .子程序 查看字节集, 文本型, 公开, 以文本表示字节集,适合于字节集的调试用 .参数 字节集, 字节集, , 要查看的字节集 .局部变量 i, 整数型 .局部变量 a, 文本型 .变量循环首 (1, 取字节集长度 (字节集), 1, i) a = a + “,” + 到文本 (取字节集数据 (取字节集中间 (字节集, i, 1), 3)) .变量循环尾 () a = “{” + 取文本右边 (a, 取文本长度 (a) - 1) + “}” 返回 (a) .子程序 字节集到十六进制, 文本型, 公开, 将字节集用16进制表示 .参数 字节集, 字节集, , 用于转换的字节集 .局部变量 返回值, 文本型 .局部变量 i, 整数型 .局部变量 j, 整数型 返回值 = “” j = 取字节集长度 (字节集) .变量循环首 (1, j, 1, i) 返回值 = 返回值 + 取十六进制文本 (取字节集数据 (取字节集中间 (字节集, i, 1), 3)) .变量循环尾 () 返回 (返回值)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

字节集替换易语言源码》有0个想法

发表回复

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