回调文件位置的样例代码

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

以下示例打开以前关闭的文件,使用以前的文件指针,并回调存储的文件指针保存位置。然后从该位置读入数据。以下说明如何使用“FILE/RECALL_POSITION”命令。它继续“保存文件位置的示例代码”主题中给出的代码示例。

COMMENT/OPER, 已回调先前存储的文件位置。

FPTR=FILE/OPEN,C1.INPUT,READ

文件/倒回,FPTR

注释/操作者,要测试,文件已倒回。

,将读入第一行以测试倒回。

V3=文件/读取行,FPTR,{LINE}

注释/操作者,第一行为:

,行

文件/倒回,FPTR

文件/回调位置,FPTR

注释/操作者,以前存储的文件位置已回调。

,现在将输出该行存储位置的数据。

V4=文件/读取行,FPTR,{STORED}

注释/操作者,存储位置的文本为:

,已存储

代码说明

该代码与"倒回开头的样例代码"中所述类似。

下面仅介绍该示例独有的代码。

文件/回调位置,FPTR
该行回调文件流中为文件指针 FPTR 存储的文件指针位置。

V4=文件/读取行,FPTR,{STORED}
该行读入存储的文件指针位置之后的下一行,并将其赋给用户定义的变量 STORED。该变量在下一个操作者注释中显示。