|
楼主
发表于 2013-2-28 19:23:28
|
只看该作者
河北省承德市
[e]
.版本 2
.子程序 字节集_查看, 文本型, 公开, 以文本表示字节集,适合于字节集的调试用,查看字节集可以将一串字节集用文本形式表示出来,极大地方便了调试字节集变量。感谢易友[缘诚]提供优化查看速度方案
.参数 原始字节集, 字节集, , 要查看的字节集
.局部变量 局_文件句柄, 整数型
.局部变量 局_字节集长度, 整数型
.局部变量 局_i, 整数型
.局部变量 局_文本, 文本型
局_文件句柄 = 打开内存文件 ()
局_字节集长度 = 取字节集长度 (原始字节集)
.计次循环首 (局_字节集长度, 局_i)
插入文本 (局_文件句柄, 到文本 (原始字节集 [局_i]) + “,”)
处理事件 ()
.计次循环尾 ()
移到文件首 (局_文件句柄)
局_文本 = “{” + 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
.如果真 (取文本右边 (局_文本, 1) = “,”)
局_文本 = 取文本左边 (局_文本, 取文本长度 (局_文本) - 1) + “}”
.如果真结束
返回 (局_文本)
[/e]
[e]
.版本 2
.子程序 文本_到字节集, 字节集, 公开
.参数 欲转换的文本, 文本型
.局部变量 临时文本, 文本型
.局部变量 字节数组_文本, 文本型, , "0"
.局部变量 字节数组, 字节型, , "0"
.局部变量 计次, 整数型
临时文本 = 子文本替换 (子文本替换 (子文本替换 (欲转换的文本, “ ”, “”, , , 真), “{”, “”, , , 真), “}”, “”, , , 真)
字节数组_文本 = 分割文本 (临时文本, “,”, )
.计次循环首 (取数组成员数 (字节数组_文本), 计次)
加入成员 (字节数组, 到字节 (字节数组_文本 [计次]))
.计次循环尾 ()
返回 (到字节集 (字节数组))
[/e] |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^. |
查看全部评分
|