请问,易语言中把十六进制文本转换成10进制文本,怎么做?
请问,易语言中把十六进制文本转换成10进制文本,要怎么操作。是到数值()
吗?
比如我要把“EE24”转成“60964”命令是甚么????????? .版本 2
.子程序 十六进制转十进制, 文本型
.参数 十六进制, 文本型
.局部变量 记次变量, 整数型
.局部变量 文本长度, 整数型
.局部变量 十六进制数, 整数型, , "0"
.局部变量 结果, 整数型
文本长度 = 取文本长度 (十六进制)
重定义数组 (十六进制数, 假, 文本长度)
.计次循环首 (取数组成员数 (十六进制数), 记次变量)
.判断开始 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “F”)
十六进制数 [记次变量] = 15
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “E”)
十六进制数 [记次变量] = 14
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “D”)
十六进制数 [记次变量] = 13
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “C”)
十六进制数 [记次变量] = 12
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “B”)
十六进制数 [记次变量] = 11
.判断 (到大写 (取文本中间 (十六进制, 记次变量, 1)) = “A”)
十六进制数 [记次变量] = 10
.判断 (取文本中间 (十六进制, 记次变量, 1) = “9”)
十六进制数 [记次变量] = 9
.判断 (取文本中间 (十六进制, 记次变量, 1) = “8”)
十六进制数 [记次变量] = 8
.判断 (取文本中间 (十六进制, 记次变量, 1) = “7”)
十六进制数 [记次变量] = 7
.判断 (取文本中间 (十六进制, 记次变量, 1) = “6”)
十六进制数 [记次变量] = 6
.判断 (取文本中间 (十六进制, 记次变量, 1) = “5”)
十六进制数 [记次变量] = 5
.判断 (取文本中间 (十六进制, 记次变量, 1) = “4”)
十六进制数 [记次变量] = 4
.判断 (取文本中间 (十六进制, 记次变量, 1) = “3”)
十六进制数 [记次变量] = 3
.判断 (取文本中间 (十六进制, 记次变量, 1) = “2”)
十六进制数 [记次变量] = 2
.判断 (取文本中间 (十六进制, 记次变量, 1) = “1”)
十六进制数 [记次变量] = 1
.判断 (取文本中间 (十六进制, 记次变量, 1) = “0”)
十六进制数 [记次变量] = 0
.默认
.判断结束
.计次循环尾 ()
.计次循环首 (文本长度 - 1, 记次变量)
结果 = 结果 + 求次方 (16, 文本长度 - 记次变量) × 十六进制数 [记次变量]
.计次循环尾 ()
结果 = 结果 + 十六进制数 [取数组成员数 (十六进制数)]
返回 (到文本 (结果)) .版本 2
.子程序 十六进制到十进制, 整数型
.参数 十六进制文本, 文本型
.局部变量 文本, 文本型
.局部变量 最终值, 整数型
.局部变量 i, 整数型, , , 中间循环变量
.局部变量 临时数值, 文本型, , , 每一位上的值
文本 = 到小写 (十六进制文本)
.变量循环首 (1, 取文本长度 (文本), 1, i)
临时数值 = 取文本中间 (文本, i, 1)
.如果 (取代码 (临时数值, ) ≥ 取代码 (“a”, ) 且 取代码 (临时数值, ) ≤ 取代码 (“f”, ))
最终值 = 最终值 + (取代码 (临时数值, ) - 取代码 (“a”, ) + 10) × 求次方 (16, 取文本长度 (文本) - i)
.否则
最终值 = 最终值 + 到数值 (临时数值) × 求次方 (16, 取文本长度 (文本) - i)
.如果结束
.变量循环尾 ()
返回 (最终值) 这个就是传说中的易语言吗?
新人没见过
页:
[1]