首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
[原创]新文本和16进制数据相互转换工具[易语言源代码]
发表于: 2006-6-27 22:41 10110

[原创]新文本和16进制数据相互转换工具[易语言源代码]

foxabu 活跃值
13
2006-6-27 22:41
10110
【原创】新文本和16进制数据工具[易语言源代码]
看了某个人写的代码，是精华，实在其不过。。。没有别的意思哈。大家自己看代码就行了 反正都是学习。
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 长度, 整数型

编辑框2.内容 ＝ “”
文本 ＝ 编辑框1.内容
.计次循环首 (取文本长度 (文本), 长度)
    编辑框2.加入文本 (取文本右边 (“00” ＋ 取十六进制文本 (取代码 (文本, 长度)), 2) ＋ “ ”)
.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 文本, 文本型, , "0"
.局部变量 长度, 整数型
.局部变量 tmp, 整数型, 静态
.局部变量 整数, 整数型
.局部变量 字节集, 字节集
.局部变量 短整数, 短整数型

文本 ＝ 分割文本 (编辑框2.内容, “ ”, )
.计次循环首 (取数组成员数 (文本), 长度)
    tmp ＝ 取代码 (到大写 (文本 [长度]), 1)
    .如果 (tmp ≥ 取代码 (“A”, ) 且 tmp ≤ 取代码 (“F”, ))
        整数 ＝ 16 × (tmp － 取代码 (“A”, ) ＋ 10)
    .否则
        整数 ＝ 16 × (tmp － 取代码 (“0”, ))
    .如果结束
    tmp ＝ 取代码 (到大写 (文本 [长度]), 2)
    .如果 (tmp ≥ 取代码 (“A”, ) 且 tmp ≤ 取代码 (“F”, ))
        整数 ＝ 整数 ＋ tmp － 取代码 (“A”, ) ＋ 10
    .否则
        整数 ＝ 整数 ＋ tmp － 取代码 (“0”, )
    .如果结束
    字节集 ＝ 字节集 ＋ 到字节集 (到字节 (整数))
.计次循环尾 ()
字节集 ＝ 字节集 ＋ { 0 }
编辑框3.内容 ＝ 到文本 (字节集)

.子程序 _按钮3_被单击

载入 (窗口1, , 真)

简洁了不知道多少倍，这个市完整的代码，界面我就照他的改的 ^_^
附件有完整的工程文件：）

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)

上传的附件：
收藏
免费 ・0
支持
分享
最新回复 (5)
ywb
雪    币： 225
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
ywb
2 楼
强哎　      
2006-6-27 22:58
0
误入楼台
雪    币： 236
活跃值： (35)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
3 楼
易语言是全中文的对我们国人太有帮助了 好懂
2006-6-27 23:18
0
黄连
雪    币： 230
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼

谢谢楼主共享!!
2006-6-27 23:52
0
Isaiah
雪    币： 331
活跃值： (56)
能力值： ( LV13，RANK：410 )
在线值：
发帖
回帖
粉丝
私信
5 楼
虽然全中文,请问开发效率何在？
当作程序设计入门还不错。
2006-6-28 01:26
0
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
6 楼
因为已经有相似的易语言代码了，所以这一篇就不加精了，期待楼主的更好代码。
2006-6-28 08:38
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//