字节集替换易语言源码.版本 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))
.变量循环尾 ()
返回 (返回值)
@易语言入门教程
文件下载
解压密码：
来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)
