首页
社区
课程
招聘
[原创]进制转换[易语言源代码]
2006-6-30 21:45 7497

[原创]进制转换[易语言源代码]

2006-6-30 21:45
7497
易语言内部已经提供了整数型到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行吧。不是很多

[CTF入门培训]顶尖高校博士及硕士团队亲授《30小时教你玩转CTF》,视频+靶场+题目!助力进入CTF世界

收藏
点赞0
打赏
分享
最新回复 (7)
雪    币: 324
活跃值: (30)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
wan 2006-7-2 16:30
2
0
好东东```学习了```
雪    币: 1852
活跃值: (504)
能力值: (RANK:1010 )
在线值:
发帖
回帖
粉丝
北极星2003 25 2006-7-2 18:36
3
0
在本版块已经有类似的工具,所以就不加精了

文本和16进制数据相互转换工具
http://bbs.pediy.com/showthread.php?s=&threadid=27771

期待楼主更多佳作
雪    币: 721
活跃值: (350)
能力值: ( LV9,RANK:1250 )
在线值:
发帖
回帖
粉丝
happytown 31 2006-7-3 08:56
4
0
易语言程序看起来真令人毛骨悚然!
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
eym 2006-7-6 16:05
5
0
happytown

严重同意!E刚出来时好像不是这样的,我安装了一下就删了,这是第一次看到它的代码,看着有点乱
雪    币: 248
活跃值: (1031)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
sixL 2006-7-6 17:03
6
0
易语言=口水言
雪    币: 4
活跃值: (14)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
燕北飞 2006-7-6 19:33
7
0
学习一下 谢谢
雪    币: 750
活跃值: (228)
能力值: ( LV9,RANK:780 )
在线值:
发帖
回帖
粉丝
非安全 17 2006-7-8 19:05
8
0
不能这么说易的

它的IDE里用虚线和表格表示的

只是帖出来就有点难看了

唉,苦了易语言

它毕竟是国产的
游客
登录 | 注册 方可回帖
返回