找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 5153|回复: 0

[开源] 最简单的查看字节集和还原字节集模块

[复制链接]

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2010-11-27 09:21:50 | 显示全部楼层 |阅读模式

  1. .版本 2
  2. .子程序 _临时子程序
  3. .局部变量 查看后的字节集, 文本型
  4. ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
  5. 查看后的字节集 = 查看字节集 (到字节集 (“您好”))
  6. 输出调试文本 (查看后的字节集)
  7. 输出调试文本 (到文本 (字节集还原 (查看后的字节集)))
  8. .子程序 查看字节集, 文本型, 公开, 以易语言的格式查看字节集,例如:{0,5}
  9. .参数 被查看的字节集, 字节集, , 要查看的字节集
  10. .局部变量 返回文本, 文本型
  11. .局部变量 i
  12. 返回文本 = “{”
  13. .计次循环首 (取字节集长度 (被查看的字节集), i)
  14.     .如果真 (i = 取字节集长度 (被查看的字节集))
  15.         返回文本 = 返回文本 + 到文本 (被查看的字节集 [i])
  16.         跳出循环 ()
  17.     .如果真结束
  18.     返回文本 = 返回文本 + 到文本 (被查看的字节集 [i]) + “,”
  19. .计次循环尾 ()
  20. 返回文本 = 返回文本 + “}”
  21. 返回 (返回文本)
  22. .子程序 字节集还原, 字节集, 公开, 把以易语言格式查看字节集的文本,如:{0,5},还原为字节集格式
  23. .参数 字节集文本, 文本型, , 用“查看字节集”返回的文本或自己写的文本,必须具有易语言的字节集格式。
  24. .局部变量 返回字节集, 字节集
  25. .局部变量 临时文本, 文本型
  26. .局部变量 临时文本们, 文本型, , "0"
  27. .局部变量 i
  28. 临时文本 = 子文本替换 (字节集文本, “{”, “”, , , 真)
  29. 临时文本 = 子文本替换 (临时文本, “}”, “”, , , 真)
  30. 临时文本们 = 分割文本 (临时文本, “,”, )
  31. 返回字节集 = 取空白字节集 (取数组成员数 (临时文本们))
  32. .计次循环首 (取数组成员数 (临时文本们), i)
  33.     返回字节集 [i] = 到数值 (临时文本们 [i])
  34. .计次循环尾 ()
  35. 返回 (返回字节集)

复制代码

【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表