字节集_查看（）

幻彩の

希望可以添加以下命令
[e]
.版本 2

.子程序 字节集还原, 字节集, 公开, 将"EBCE001234"(16进制)格式文本或"{0,1,2,3}"(10进制)的格式文本转换为字节集
.参数 文本, 文本型, , 如"00BFAD00"或者是"{0,1,2,3}"
.参数 文本格式, 逻辑型, 可空, 默认为"EBCE001234"格式文本，为真为"{0,1,2,3}"格式文本
.局部变量 长度, 整数型
.局部变量 i, 整数型
.局部变量 结果, 字节集
.局部变量 文本数组, 文本型, , "0"

.如果 (文本格式)
文本数组 ＝ 分割文本 (取文本中间 (文本, 2, 取文本长度 (文本) － 2), “,”, )
.计次循环首 (取数组成员数 (文本数组), i)
结果 ＝ 结果 ＋ 到字节集 (到字节 (文本数组 ))
.计次循环尾 ()
返回 (结果)

.否则
长度 ＝ 取文本长度 (文本)
.如果真 (长度 ％ 2 ≠ 0)
文本 ＝ “0” ＋ 文本
长度 ＝ 长度 ＋ 1
.如果真结束
.计次循环首 (长度 ÷ 2, i)
结果 ＝ 结果 ＋ 到字节集 (到字节 (转换到十进制 (取文本中间 (文本, i × 2 － 1, 2), 16)))
.计次循环尾 ()
返回 (结果)
.如果结束


.子程序 字节集查看, 文本型, 公开, 以"EBCE001234"(16进制)显示字节集或"{0,1,2,3}"(10进制)的形式显示字节集
.参数 原文, 字节集, , 要查看的字节集
.参数 显示格式, 逻辑型, 可空, 默认以"EBCE001234"显示字节集，为真以"{0,1,2,3}"的形式显示字节集
.局部变量 i
.局部变量 长度
.局部变量 结果, 文本型

长度 ＝ 取字节集长度 (原文)
.如果 (显示格式)
.如果真 (长度 ＜ 1)
返回 (“{}”)
.如果真结束
结果 ＝ “{”
.计次循环首 (长度, i)
结果 ＝ 结果 ＋ 到文本 (原文 ) ＋ “,”
.计次循环尾 ()
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － 1) ＋ “}”
返回 (结果)

.否则
.计次循环首 (长度, i)
结果 ＝ 结果 ＋ 取文本右边 (“00” ＋ 取十六进制文本 (原文 ), 2)
.计次循环尾 ()
返回 (结果)

.如果结束


.子程序 转换十六到十, 文本型, 公开, 将十六进制转换成十进制(返回十进制文本)
.参数 十六进制文本, 文本型, , 待转换的十六进制文本
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 容器1, 整数型

.变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1)
中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1)
结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (十六进制文本) － 容器1) ＋ 结果
.变量循环尾 ()

.子程序 转换到十进制, 整数型, 公开, 将2,8,16进制文件转换到10进制数值(返回十进制数)
.参数 文本, 文本型, , 2,8,16进制文件
.参数 进制, 整数型, , 2为二进制，8为八进制，16为16进制
.局部变量 i, 整数型
.局部变量 t, 文本型
.局部变量 结果, 整数型

t ＝ “0123456789ABCDEF”
.计次循环首 (取文本长度 (文本), i)
结果 ＝ 结果 × 进制 ＋ 寻找文本 (t, 取文本中间 (到大写 (文本), i, 1), , 假) － 1
.计次循环尾 ()
返回 (结果)


[/e]

小磊

已经有类似命令

Mr.Yang

很简单的命令..有必要搞这么复杂吗?

那小子很坏

这个是什么啊？？？