展开全部
方法如下:
.版本 2
.子程序 子程序_字节集到文本, 文本型
.参数 参数_字节集, 字节集
.局部变量 文件号, 整数型
.局部变量 计次, 整数型
.局部变量 长度, 整数型
.局部变量 文本, 文本型
文件号 = 打开内存文件 ()
长度 = 取字节集长度 (参数_字节集)
移到文件首 (文件号)
写出文本 (文件号, “{”)
.计次循环首 (长度, 计次)
写出文本 (文件号, 到文本 (参数_字节集 [计次]))
.如果真 (长度 ≠ 计次)
写出文本 (文件号, “,”)
.如果真结束
.计次循环尾 ()
写出文本 (文件号, “}”)
移到文件首 (文件号)
文本 = 读入文本 (文件号, )
关闭文件 (文件号)
返回 (文本)
.版本 2
.子程序 子程序_字节集到文本, 文本型
.参数 参数_字节集, 字节集
.局部变量 文件号, 整数型
.局部变量 计次, 整数型
.局部变量 长度, 整数型
.局部变量 文本, 文本型
文件号 = 打开内存文件 ()
长度 = 取字节集长度 (参数_字节集)
移到文件首 (文件号)
写出文本 (文件号, “{”)
.计次循环首 (长度, 计次)
写出文本 (文件号, 到文本 (参数_字节集 [计次]))
.如果真 (长度 ≠ 计次)
写出文本 (文件号, “,”)
.如果真结束
.计次循环尾 ()
写出文本 (文件号, “}”)
移到文件首 (文件号)
文本 = 读入文本 (文件号, )
关闭文件 (文件号)
返回 (文本)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |