.版本 2

.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

逐行读入_OpenDialog (通用对话框1, &CalacFunc_keyword)

.子程序 逐行读入_File, 逻辑型, , Calac函数处理逐行数据 参数只有1个 为一行文本

.参数 filePath, 文本型

.参数 Calac, 子程序指针

.局部变量 fid, 整数型

.局部变量 line, 文本型

fid ＝ 打开文件 (filePath, #读写, #无限制)

.如果真 (fid ＝ 0)

    返回 (假)

.如果真结束

.判断循环首 (是否在文件尾 (fid, 真) ＝ 假)

    line ＝ 读入一行 (fid)

    调用子程序 (Calac, , , line)

.判断循环尾 ()

关闭文件 (fid)

返回 (真)

.子程序 逐行读入_OpenDialog, 逻辑型, , Calac函数处理逐行数据 参数只有1个 为一行文本

.参数 OpenDialog, 通用对话框

.参数 Calac, 子程序指针

.局部变量 fid, 整数型

.局部变量 line, 文本型

.局部变量 filename, 文本型

OpenDialog.类型 ＝ 0

OpenDialog.初始目录 ＝ 取运行目录 () ＋ “\”

.如果真 (OpenDialog.打开 ())

    filename ＝ OpenDialog.文件名

    fid ＝ 打开文件 (filename, #读写, #无限制)

    .如果真 (fid ＝ 0)

        返回 (假)

    .如果真结束

    .判断循环首 (是否在文件尾 (fid, 真) ＝ 假)

        line ＝ 读入一行 (fid)

        调用子程序 (Calac, , , line)

    .判断循环尾 ()

    关闭文件 (fid)

    返回 (真)

.如果真结束

返回 (假)

.子程序 CalacFunc_keyword

.参数 line, 文本型

调试输出 (“这里是逐行的数据”, line)