易语言快速导入文本源码

.版本 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) ＋ “%”
    处理事件 ()
.如果真结束

@qq1101672929