自绘的文本转换工具

.子程序 BytesSetToText, 字节集
.参数 ConvertTheText, 文本型, , 数据必须以“,”分割，且无｛｝
.局部变量 Number, 整数型
.局部变量 Integer, 整数型, , "0"
.局部变量 Textarray, 文本型, , "0"
.局部变量 TextData, 文本型

TextData ＝ ConvertTheText
Textarray ＝ 分割文本 (TextData, “,”, )
.计次循环首 (取数组成员数 (Textarray), Number)
加入成员 (Integer, 到整数 (Textarray [Number]))
.计次循环尾 ()
返回 (子字节集替换 (到字节集 (Integer), { 0 }, { }, , ))