.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 web, 文本型
.局部变量 a, 整数型
.局部变量 z, 字节集
.局部变量 cd, 整数型
.局部变量 jc, 整数型
web = 编辑框1.内容
cd = 取文本长度 (web) ÷ 2
z = 取空白字节集 (cd)
.如果真 (取文本长度 (web) % 2 = 0) ' 字符串不是双数 那就不再处理了
a = 1
.计次循环首 (cd, jc)
z [jc] = 十六到十 (取文本中间 (web, a, 2))
a = a + 2
.计次循环尾 ()
调试输出 (z, 到文本 (z))
' 写到文件 (取特定目录 (3) + “name.txt”, z)
.如果真结束
.子程序 十六到十, 整数型, , 由于是字符串处理信息所以我就这样写的
.参数 进制, 文本型, , 只是支持2字符判断 1个会自动加入 如:2a 或 a
.局部变量 cd, 整数型
.局部变量 x, 文本型
.局部变量 s, 文本型, , "2"
.局部变量 hex, 文本型, , "6"
.局部变量 hez, 整数型, , "6"
.局部变量 jc, 整数型
cd = 取文本长度 (进制) ' 长度判断不用我说吧
.如果 (cd < 2) ' 检测小于2个数据就执行下面的信息
x = “0” + 进制 ' 这里补上好算
.否则
x = 进制 ' 没有就算了,
.如果结束
' 判断上面的数
s [1] = 到大写 (取文本中间 (x, 1, 1)) ' 取第一位数
s [2] = 到大写 (取文本中间 (x, 2, 1)) ' 最大就是2字符所以 你输入再多也没有用
hex = { “A”, “B”, “C”, “D”, “E”, “F” } ' 这是16进制文本
hez = { 10, 11, 12, 13, 14, 15 } ' 这是10进制数据 对应上面的数 A=10 ......F=15
.计次循环首 (取数组成员数 (hex), jc) ' 所以这里判断
.如果真 (hex [jc] = s [1]) ' 判断第一个数组数 hex 是16进制 hez 是 10 进制
s [1] = 到文本 (hez [jc])
.如果真结束
.如果真 (hex [jc] = s [2]) ' 判断第二个数组数 hex 是16进制 hez 是 10 进制
s [2] = 到文本 (hez [jc]) ' 如果这里 s[2]原数据是 b 那么 现在 就是 11 也就是 对应的 hez数组 前面计次在判断
.如果真结束
处理事件 () ' 我们要安全处理 所以要事件处理,小数据加不加都无所谓,但是我觉得加上还是好些,免得卡的没法动
.计次循环尾 ()
' 调试输出 (s) ' 这里就是结果转换的数据了,作为测试输出一下
返回 (到整数 (s [1]) × 16 + 到整数 (s [2])) ' 计算 算法就是 第一个数据 s[1] × 16 + s[2] 后一个数据 就是 10进制
' 堆存不懂得兄弟 去看 小甲鱼的 进制转换 视频 讲的还可以的
.子程序 _按钮2_被单击
调试输出 (十六到十 (编辑框2.内容))
易语言十六进制如何转10进制
易语言16进制转10进制
易语言+16转10进制