.版本 2
.程序集 窗口程序集1
.程序集变量 n, 整数型
.程序集变量 文本数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 i, 整数型
.局部变量 取文本数, 整数型
.局部变量 代码, 整数型
文本 = 到文本 (读入文件 (取运行目录 () + “\新建 文本文档 (2).txt”))
i = 1
清除数组 (文本数组)
.循环判断首 ()
代码 = 取代码 (文本, i)
.如果真 (代码 < 0)
代码 = 256 + 代码
输出调试文本 (代码)
.如果真结束
.如果 (代码 < 127)
取文本数 = 1
.否则
取文本数 = 2
.如果结束
加入成员 (文本数组, 取文本中间 (文本, i, 取文本数))
i = i + 取文本数
.循环判断尾 (代码 ≠ 0)
n = 1
时钟1.时钟周期 = 200
.子程序 _时钟1_周期事件
.循环判断首 ()
编辑框1.加入文本 (文本数组 [n])
n = n + 1
.循环判断尾 (文本数组 [n - 1] = “ ”)
.如果真 (n ≥ 取数组成员数 (文本数组))
时钟1.时钟周期 = 0
.如果真结束
模拟输入 本身系统支持库中就有 "模拟按键"的命令;重点是 如何判断系统当前进程是否是记事本。可以配合GetCurrentProcessId API 来实现。
编辑框1.内容=到文本 (读入文件 (你的TXT路径))