文字到字节集文本() & 字节集文本到文字()

吾名楠

之前一直困惑于如何将字节集显示在编辑框上，又如何将编辑框里的字节集文本转回汉字。直到昨天在XX老师的基础教程视频里得到灵感。所以把它做出来，分享给和我一样菜的朋友。谢谢XX老师。




.版本 2
.子程序 文字到字节集文本, 文本型
.参数 文本, 文本型
.局部变量 a, 字节集
.局部变量 b, 整数型
.局部变量 c, 文本型
a ＝ 到字节集 (文本)
c ＝ “{”
.计次循环首 (取字节集长度 (a), b)
    .如果真 (b ＜ 取字节集长度 (a))
        c ＝ c ＋ 到文本 (a [b]) ＋ “,”
    .如果真结束
    .如果真 (b ＝ 取字节集长度 (a))
        c ＝ c ＋ 到文本 (a [b])
    .如果真结束
.计次循环尾 ()
c ＝ c ＋ “}”
返回 (c)


'----------------------------------------------------


.版本 2
.子程序 字节集文本到文字, 文本型
.参数 字节集文本, 文本型
.局部变量 a, 文本型, , "0"
.局部变量 b, 整数型
.局部变量 c, 字节集
.如果真 (寻找文本 (字节集文本, “{”, , 假) ≠ -1)
    字节集文本 ＝ 子文本替换 (字节集文本, “{”, “”, , , 真)
.如果真结束
.如果真 (寻找文本 (字节集文本, “}”, , 假) ≠ -1)
    字节集文本 ＝ 子文本替换 (字节集文本, “}”, “”, , , 真)
.如果真结束
a ＝ 分割文本 (字节集文本, “,”, )
.计次循环首 (取数组成员数 (a), b)
    c ＝ c ＋ 到字节集 (到字节 (a [b]))
.计次循环尾 ()
返回 (到文本 (c))

cui17012076

万分感谢您的分享！祝您好运连连！

吾名楠

论坛居然屏蔽老师的名字~~~~~~~~~