下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
以下示例打开以前关闭的文件,使用以前的文件指针,并回调存储的文件指针保存位置。然后从该位置读入数据。以下说明如何使用“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。该变量在下一个操作者注释中显示。