求易语言十转十六的代码
.版本 2
.子程序 十到十六, 文本型
.参数 十进制数, 整数型
.局部变量 局部_文本, 文本型
.局部变量 局部_余数, 整数型
.局部变量 局部_16文本, 文本型
局部_文本 ＝ “0123456789ABCDEF”
.如果真 (十进制数 ＜ 0)
返回 (“错误数值”)
.如果真结束
.判断循环首 (十进制数 ≥ 0)
局部_余数 ＝ 十进制数 ％ 16
局部_16文本 ＝ 取文本中间 (局部_文本, 局部_余数 ＋ 1, 1) ＋ 局部_16文本
十进制数 ＝ (十进制数 － 局部_余数) ÷ 16
.如果真 (十进制数 ≤ 0)
跳出循环 ()
.如果真结束
.判断循环尾 ()
返回 (局部_16文本)
.子程序 十六到十, 整数型
.参数 十六进制, 文本型
.局部变量 局部_文本, 文本型
.局部变量 局部_计次, 整数型
.局部变量 局部_十进制, 整数型
局部_文本 ＝ “123456789ABCDEF0”
十六进制 ＝ 删全部空 (到半角 (到大写 (十六进制)))
.如果真 (取文本长度 (十六进制) ％ 2 ≠ 0)
返回 (-1)
.如果真结束
.计次循环首 (取文本长度 (十六进制), 局部_计次)
局部_十进制 ＝ 局部_十进制 × 16 ＋ 寻找文本 (局部_文本, 取文本中间 (十六进制, 局部_计次, 1), 1, 假) ％ 16
.计次循环尾 ()
返回 (局部_十进制)
.子程序 字节集到十六, 文本型
.参数 字节集数据, 字节集
.参数 是否用空格分割, 逻辑型, 可空, 默认假
.局部变量 局部_长度, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_文本, 文本型
.局部变量 局部_十六进制, 文本型
.局部变量 局部_返回, 文本型
局部_文本 ＝ “0123456789ABCDEF”
局部_长度 ＝ 取字节集长度 (字节集数据)
.计次循环首 (局部_长度, 局部_计次)
局部_十六进制 ＝ 十到十六 (字节集数据 [局部_计次])
.如果真 (取文本长度 (局部_十六进制) ＝ 1)
局部_十六进制 ＝ “0” ＋ 局部_十六进制
.如果真结束
.如果 (是否用空格分割)
.如果 (局部_计次 ＝ 局部_长度)
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制
.否则
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制 ＋ “ ”
.如果结束
.否则
局部_返回 ＝ 局部_返回 ＋ 局部_十六进制
.如果结束
.计次循环尾 ()
返回 (局部_返回)
.子程序 十六到字节集, 字节集
.参数 十六进制, 文本型
.局部变量 局部_长度, 整数型
.局部变量 局部_计次, 整数型
.局部变量 局部_临时数据, 字节型, , "0"
十六进制 ＝ 子文本替换 (删全部空 (到半角 (到大写 (十六进制))), #换行符, “”, , , 真)
局部_长度 ＝ 取文本长度 (十六进制)
.如果真 (局部_长度 ％ 2 ≠ 0)
返回 ({ 0 })
.如果真结束
.变量循环首 (1, 局部_长度, 2, 局部_计次)
加入成员 (局部_临时数据, 十六到十 (取文本中间 (十六进制, 局部_计次, 2)))
.变量循环尾 ()
返回 (到字节集 (局部_临时数据))
.支持库 eSkin.程序集 窗口程序集1.子程序 _按钮1_被单击
.局部变量 局部_计次, 整数型
.局部变量 集成变量, 文本型
.局部变量 计次循环, 整数型
.局部变量 字节集, 字节集编辑框2.内容 ＝ 到文本 (取文本长度 (编辑框1.内容))
.变量循环首 (1, 取文本长度 (编辑框1.内容), 1, 局部_计次)
编辑框3.加入文本 (到文本 (取代码 (编辑框1.内容, 局部_计次)) ＋ 字符 (32))
.变量循环尾 ()
字节集 ＝ 到字节集 (编辑框1.内容)
.计次循环首 (取字节集长度 (字节集), 计次循环)
编辑框4.加入文本 (取文本右边 (“00” ＋ 取十六进制文本 (字节集 [计次循环]), 2) ＋ 字符 (32))
.计次循环尾 ().子程序 _按钮2_被单击编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”.子程序 _按钮3_被单击销毁 ().子程序 __启动窗口_创建完毕写到文件 (取运行目录 () ＋ “/1.skn”, #pf)
易皮肤_载入皮肤 (取运行目录 () ＋ “/1.skn”, _启动窗口.取窗口句柄 ())
