保存文件位置的样例代码

下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。

参考以下示例,从外部文件中读入数据,一次读入一行。在每一行之后,您可以选择保存文件位置,以便以后回调。以下说明如何使用“文件/保存位置”命令。

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
该行将文件指针的位置存储在文件流中。

只要在同一测量例程中打开文件指针名相同的同一文件,您可以回调存储的文件位置,并在您离开的位置继续读取。要继续该示例,请参见“回调文件位置的样例代码”主题。