如何让字节集转换为文本

冷寒冰

我要制作一个小工具，在编辑框里输入：　到文本（｛４９,５０,５１｝）或者｛４９,５０,５１｝
然后按一个按钮，在编辑框里显示出：　　１２３

怎么编写程序，让上面那样的功能实现。每次输入一个字节集，点按钮后，都能转换为一个文本型数据。
求高手赐教！

heiyi

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 文本数组, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. .局部变量 字节数组, 字节型, , "0"
   
9. .局部变量 文本, 文本型
   
10. 
    
11. 文本 ＝ 子文本替换 (编辑框1.内容, “{”, , , , 真)
    
12. 文本 ＝ 子文本替换 (文本, “}”, , , , 真)
    
13. 文本数组 ＝ 分割文本 (文本, “,”, )
    
14. .计次循环首 (取数组下标 (文本数组, ), i)
    
15.     加入成员 (字节数组, 到整数 (文本数组 [i]))
    
16. .计次循环尾 ()
    
17. 编辑框1.内容 ＝ 到文本 (字节数组)
    

复制代码

给你写好了

苏希洛

.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 字节集

a ＝ { 123, 321, 22, 22, 44 }
调试输出 (子程序 (a))

.子程序 子程序, 文本型
.参数 欲转换字节集, 字节集
.局部变量 i, 整数型
.局部变量 结果, 文本型

.计次循环首 (取字节集长度 (欲转换字节集), i)
    结果 ＝ 结果 ＋ 到文本 (取代码 (到文本 (取字节集中间 (欲转换字节集, i, 1)), )) ＋ “,”
.计次循环尾 ()
返回 (取文本左边 (结果, 取文本长度 (结果) － 1))

看看这样行不行？

exit11

.版本 2
.支持库 spec

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

调试输出 (子程序1 (“51,49,110,52”))

.子程序 子程序1, 文本型
.参数 文本, 文本型
.参数 分割符, 文本型, 可空, 默认用分号分割
.局部变量 临时数组, 文本型, , "0"
.局部变量 字节集, 字节集
.局部变量 x, 整数型

.如果真 (分割符 ＝ “”)
    分割符 ＝ “,”
.如果真结束
临时数组 ＝ 分割文本 (文本, 分割符, )
字节集 ＝ 取空白字节集 (取数组成员数 (临时数组))
.计次循环首 (取数组成员数 (临时数组), x)
    字节集 [x] ＝ 到整数 (临时数组 [x])
.计次循环尾 ()
返回 (到文本 (字节集))

miaozss

手机控无法写代码

①嗰亽の菰独

我记得好像有个转换工具 要的话 找我 QQ896163275

冷寒冰

heiyi 发表于 2012-6-8 11:28
给你写好了

感觉还是你的代码简单好用，最主要的是我理解起来比较容易！谢谢你！

冷寒冰

其他帮助回答过的朋友，同样非常感谢你们！无奈小弟是新人，手里精币不多，就不一一奖励了。等小弟精币多了，一定会给帮助我的朋友一些奖励的！