关于：易语言【字节集与16进制互相转换】的问题2
发布网友
发布时间：2023-10-10 03:31
共1个回答
热心网友
时间：2024-12-05 14:18
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 bin, 字节集
.局部变量 len, 整数型
.局部变量 text, 文本型
.局部变量 i, 整数型
编辑框1.内容 ＝ “”
bin ＝ 到字节集 (“333333?钇悙”)
len ＝ 取字节集长度 (bin)
.如果真 (len ＞ 0)
text ＝ 取十六进制文本 (bin [1])
i ＝ 2
.判断循环首 (i ≤ len)
text ＝ text ＋ “,” ＋ 取十六进制文本 (bin [i])
i ＝ i ＋ 1
.判断循环尾 ()
编辑框1.内容 ＝ text
.如果真结束
.子程序 _按钮2_被单击
.局部变量 text, 文本型, , "0"
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 bin, 字节集
text ＝ 分割文本 (编辑框1.内容, “,”, )
len ＝ 取数组成员数 (text)
.如果真 (len ＞ 0)
bin ＝ 取空白字节集 (len)
.计次循环首 (len, i)
bin [i] ＝ Dec (取文本左边 (text [i], 1)) × 16 ＋ Dec (取文本右边 (text [i], 1))
.计次循环尾 ()
调试输出 (bin)
.如果真结束
.子程序 Dec, 字节型
.参数 Hex, 文本型
.局部变量 ret, 字节型
.判断开始 (Hex ＝ “A”)
ret ＝ 10
.判断 (Hex ＝ “B”)
ret ＝ 11
.判断 (Hex ＝ “C”)
ret ＝ 12
.判断 (Hex ＝ “D”)
ret ＝ 13
.判断 (Hex ＝ “E”)
ret ＝ 14
.判断 (Hex ＝ “F”)
ret ＝ 15
.默认
返回 (到字节 (Hex))
.判断结束
返回 (ret)追问我的意思是做成2个转换函数方便调用，例如1输出：编辑框2.内容=字节集与16进制（编辑框1.内容），例如2输出：编辑框2.内容=16进制转字节集（编辑框1.内容）这样的意思。
追答
我不知道你要的是什么效果,百度知道回答*文字长度,我粘贴不来源码
另外,十六进制的文本转换成10进制的整形数:ABCD,先算A
用其文本的长度-1也就是3,A在十进制等于10,10*16*16*16=40960
B等于十进制的11,11*16*16=2816
C等于十进制的12,12*16=192
D等于十进制的13
40960+2816+192+13=43981
ABCD转换成十进制就是43981
