易语言到字节集c,易语言字节集到十六进制文本转换方式 - 小R网络

.版本 2

.程序集 程序集核心

.子程序 字节集到十六进制文本, 文本型

.参数 字节集, 字节集

.局部变量 计次, 整数型

.局部变量 i, 整数型

.局部变量 十六进制文本, 文本型

计次 ＝ 取字节集长度 (字节集)

.计次循环首 (计次, i)

.如果 (字节集 [i] ＜ 16)

十六进制文本 ＝ 十六进制文本 ＋ “0” ＋ 取十六进制文本 (字节集 [i])

.否则

十六进制文本 ＝ 十六进制文本 ＋ 取十六进制文本 (字节集 [i])

.如果结束

.计次循环尾 ()

返回 (十六进制文本)

.子程序 十六进制文本到字节集, 字节集

.参数 十六进制文本, 文本型

.局部变量 计次, 整数型

.局部变量 ok, 逻辑型

.局部变量 十位, 整数型

.局部变量 i, 整数型

.局部变量 个位, 整数型

.局部变量 临时整数, 整数型

.局部变量 字节集, 字节集

十六进制文本 ＝ 删全部空 (十六进制文本)

计次 ＝ 取文本长度 (十六进制文本)

ok ＝ 假

.计次循环首 (计次, i)

.如果真 (ok ＝ 假)

十位 ＝ 十六进制到整数 (取文本中间 (十六进制文本, i, 1))

.如果真 (十位 ＝ -1)

到循环尾 ()

.如果真结束

ok ＝ 真

到循环尾 ()

.如果真结束

.如果真 (ok)

个位 ＝ 十六进制到整数 (取文本中间 (十六进制文本, i, 1))

.如果真 (个位 ＝ -1)

到循环尾 ()

.如果真结束

临时整数 ＝ 十位 × 16 ＋ 个位

字节集 ＝ 字节集 ＋ 到字节集 (到字节 (临时整数))

ok ＝ 假

.如果真结束

.计次循环尾 ()

返回 (字节集)

.子程序 十六进制到整数, 整数型, , 失败返回 -1

.参数 十六进制文本, 文本型, , 只接受单个文本转换，多个文本将会返回 -1

.判断开始 (“0” ＝ 十六进制文本)

返回 (0)

.判断 (“A” ＝ 到大写 (十六进制文本))

返回 (10)

.判断 (“B” ＝ 到大写 (十六进制文本))

返回 (11)

.判断 (“C” ＝ 到大写 (十六进制文本))

返回 (12)

.判断 (“D” ＝ 到大写 (十六进制文本))

返回 (13)

.判断 (“E” ＝ 到大写 (十六进制文本))

返回 (14)

.判断 (“F” ＝ 到大写 (十六进制文本))

返回 (15)

.判断 (0 ＝ 到整数 (十六进制文本))

返回 (-1)

.默认

返回 (到整数 (十六进制文本))

版权声明：若无特殊注明，本文为《小R》原创，转载请保留文章出处。

本文链接：http://xr5b.com/post-9.html

正文到此结束