.版本 2 .支持库 commobj .支持库 iext2 .程序集 窗口程序集_窗口1 .子程序 _按钮1_被单击 .局部变量 文件号, 整数型 .局部变量 长度, 整数型 .局部变量 快速文本, 快速文本对象 .局部变量 i, 整数型 .局部变量 窗口句柄, 整数型 通用对话框1.过滤器 ＝ “文本文件|*.txt” 通用对话框1.打开 () .如果真 (通用对话框1.文件名 ≠ “”) 窗口句柄 ＝ 超级编辑框1.取窗口句柄 () 文件号 ＝ 打开文件 (通用对话框1.文件名, #读入, #无限制) .如果真 (文件号 ＝ 0) 返回 () .如果真结束 移到文件首 (文件号) 长度 ＝ 取文件长度 (文件号) 超级编辑框1.内容 ＝ “” .循环判断首 () 快速文本.添加 (读入一行 (文件号) ＋ #换行符) 子程序1 (长度, 取读写位置 (文件号)) i ＝ i ＋ 1 .如果真 (i ＜ 10000) 到循环尾 () .如果真结束 SendMessageA (窗口句柄, 194, 1, 快速文本.取缓冲区 ()) 处理事件 () 快速文本.清除文本 () i ＝ 0 .循环判断尾 (是否在文件尾 (文件号, 真) ＝ 假) .如果真 (i ≠ 0) SendMessageA (窗口句柄, 194, 1, 快速文本.取缓冲区 ()) .如果真结束 关闭文件 (文件号) .如果真结束 .子程序 子程序1 .参数 总数 .参数 进度 .局部变量 进度1, 整数型 .局部变量 n, 整数型, 静态 进度1 ＝ 取整 (进度 ÷ 总数 × 100) .如果真 (进度1 ≠ n) n ＝ 进度1 标题 ＝ 到文本 (进度1) ＋ “%” 处理事件 () .如果真结束