文本逐字分割比较的例子

文件号 ＝ 打开内存文件 ()
数据 ＝ 到字节集 (编辑框1.内容)
长度 ＝ 取字节集长度 (数据)
time ＝ 取启动时间 ()
.判断循环首 (n ≤ 长度)
.如果 (数据 [n] ＞ 127)
写出数据 (文件号, 数据 [n], 数据 [n ＋ 1])
n ＝ n ＋ 2
.否则
写出数据 (文件号, 数据 [n])
n ＝ n ＋ 1
.如果结束
写出数据 (文件号, { 32 })
.判断循环尾 ()
time ＝ 取启动时间 () － time
移到文件首 (文件号)
编辑框2.内容 ＝ 到文本 (读入字节集 (文件号, 取文件长度 (文件号)))
关闭文件 (文件号)
编辑框2.加入文本 (#换行符 ＋ “原文本长度：” ＋ 到文本 (取文本长度 (编辑框1.内容)) ＋ “ 分割耗时：” ＋ 到文本 (time))