-
-
[原创]进制转换[易语言源代码]
-
发表于:
2006-6-30 21:45
8076
-
易语言内部已经提供了整数型到16进制文本型的转换
我就补充两种比较常用的转换代码:
[原创]源代码分享--16进制文本到整数型
.版本 2
.子程序 HexToInt, 整数型
.参数 Hex, 文本型
.局部变量 n, 整数型
.局部变量 number, 整数型
.计次循环首 (取文本长度 (Hex), n)
.如果真 (取代码 (“0”, ) ≤ 取代码 (到大写 (Hex), n) 且 取代码 (到大写 (Hex), n) ≤ 取代码 (“9”, ))
number = number × 16 + 取代码 (到大写 (Hex), n) - 取代码 (“0”, )
.如果真结束
.如果真 (取代码 (“A”, ) ≤ 取代码 (到大写 (Hex), n) 且 取代码 (到大写 (Hex), n) ≤ 取代码 (“F”, ))
number = number × 16 + 取代码 (到大写 (Hex), n) - 取代码 (“A”, ) + 10
.如果真结束
.计次循环尾 ()
返回 (number)
五行代码即可实现进制转换!来自VC Runtime Source
[原创]源代码分享-整数型到二进制文本
.版本 2
.子程序 整数型到二进制文本, 文本型
.参数 整数, 整数型
.局部变量 文本, 文本型
.局部变量 返回文本, 文本型
.判断循环首 (整数 > 0)
文本 = 文本 + 字符 (取代码 (“0”, ) + 整数 % 2)
整数 = 整数 ÷ 2
.判断循环尾 ()
.计次循环首 (取文本长度 (文本), 整数)
返回文本 = 返回文本 + 取文本中间 (文本, 取文本长度 (文本) - 整数 + 1, 1)
.计次循环尾 ()
返回 (返回文本)
8行吧。不是很多
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!