倒回开头的样例代码

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

参考以下示例,从外部文件中读入数据,一次读入一行。在每一行之后,您可以选择从头开始,从文件的开头读取。以下说明如何使用“文件/倒回”命令。

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 代码块。