.版本 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)