.程序集 窗口程序集1 .子程序 文本到芓节集, 文本型, 公开 .参数 要转换的文本, 文本型 .局部变量 字节集变量, 字节集 .局部变量 循环次数, 整数型 .局部变量 字节型变量, 字节集 .局部变量 要输絀的文本, 文本型 .局部变量 文本数据, 文本型 文本数据 = 要转换的文本 字节集变量 = 到字节集 (文本数据) .计次循环首 (取字节集长度 (字节集变量), 循環次数) 字节型变量 = 取字节集中间 (字节集变量, 循环次数, 1) .如果 (循环次数 < 取字节集长度 (字节集变量)) 要输出的文本 = 要输出的文本 + 到文本 (取芓节集数据 (字节型变量, #字节型, )) + “,” 要输出的文本 = 要输出的文本 + 到文本 (取字节集数据 (字节型变量, #字节型, )) 返回 (要输出的文本) .子程序 字节集到文本, 文本型, 公开, 数据必须以“,”分割且无{} .参数 要转换的文本型数据, 文本型, , 数据必须以“,”分割,且无{} .局部变量 循环次数, 整數型 .局部变量 文本数据, 文本型 文本数据 = 要转换的文本型数据 文本数组 = 分割文本 (文本数据, “,”, ) .计次循环首 (取数组成员数 (文本数组), 循环次數) 加入成员 (整数数组, 到整数 (文本数组 [循环次数])) .子程序 字节集型文本到字节集, 字节集, 公开, 数据必须以“,”分割且无{} .参数 要转换的文本型数据, 文本型, , 数据必须以“,”分割,且无{} .局部变量 循环次数, 整数型 .局部变量 文本数据, 文本型 文本数据 = 要转换的文本型数据 文本数组 = 分割文本 (文本数据, “,”, ) .计次循环首 (取数组成员数 (文本数组), 循环次数) 加入成员 (整数数组, 到整数 (文本数组 [循环次数])) .子程序 _文本到字节集按钮_被单击 字节集编辑框.内容 = 文本到字节集 (文本编辑框.内容) .子程序 _字节集转换文本按钮_被单击 文本编辑框.内容 = 字节集到文本 (字节集编辑框.內容)