下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
参考以下示例,从外部文件中读入数据,一次读入一行。在每一行之后,您可以选择从头开始,从文件的开头读取。以下说明如何使用“文件/倒回”命令。
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
COMMENT/OPER, 例程正在退出。
代码说明
该代码大部分与“读取字符的样例代码”或“读取行的样例代码”中所述类似。
下面仅介绍该示例独有的代码。
C2=COMMENT/YESNO
此行询问您是否要从起始处开始读取文件。它把“是/否”响应保存在变量 C2.INPUT 中。
IF/C2.INPUT == "YES"
此行开始 IF / END IF 块。它测试 C2.INPUT 的条件是否具有值“是”。如条件为 True,则 PC-DMIS 会在以下 IF 语句中执行代码行。如条件为 False,则 PC-DMIS 会在以下 END_IF 语句中执行代码。
文件/倒回,FPTR
该行将文件指针倒回数据文件的开头。
END_IF/
该行退出 IF / END IF 代码块。