下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
参考以下示例,从外部文件中读入数据,一次读入一行。在每一行之后,您可以选择保存文件位置,以便以后回调。以下说明如何使用“文件/保存位置”命令。
C1=注释/输入,请键入要读取的文件
,(包括完整路径)
V1=FILE/EXISTS,C1.INPUT
如果/V1<>0
执行/
FPTR=FILE/OPEN,C1.INPUT,READ
C2=注释/是否,是否要保存文件位置,以便以后回调?循环将退出。
IF/C2.INPUT == "YES"
文件/保存位置,FPTR
转到/退出循环
END_IF/
V2=文件/读取行,FPTR,{LINE}
注释/操作者,"当前行为:" + LINE
UNTIL/V2 == "EOF"
END_IF/
文件/关闭,FPTR
退出循环=标号/
注释/操作者,您已停止读取。
ROUTINE/END
代码说明
该代码与"倒回开头的样例代码"中所述类似。
下面仅介绍该示例独有的代码。
C2=COMMENT/YESNO
此行询问您是否要保存当前文件位置并退出循环。它把“是/否”响应保存在变量 C2.INPUT 中。
文件/保存_位置,FPTR
该行将文件指针的位置存储在文件流中。
只要在同一测量例程中打开文件指针名相同的同一文件,您可以回调存储的文件位置,并在您离开的位置继续读取。要继续该示例,请参见“回调文件位置的样例代码”主题。