自动打txt文本里的字

.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
.如果 (取文本中间 (文件内容, 找到位置, 2) ＝ #换行符)
找到位置 ＝ 找到位置 ＋ 1
.否则
找到位置 ＝ 找到位置 ＋ 3
.如果结束

.否则
准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 2) ＋ “|”
找到位置 ＝ 找到位置 ＋ 2
.如果结束

.否则
.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 0)
找到位置 ＝ 找到位置 ＋ 1
.否则
准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 1) ＋ “|”
找到位置 ＝ 找到位置 ＋ 1