下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
以下代码要求输入文件名,然后检查该文件是否存在。
C1=注释/输入,请键入要检查的文件。
V1=FILE/EXISTS,C1.INPUT
如果/V1<>0
注释/操作者,文件存在。
END_IF/
ELSE/
注释/操作者,文件不存在。
END_ELSEIF/
代码说明
该代码大部分与读取字符的样例代码或读取行的样例代码中所述类似。
下面仅介绍该示例独有的代码。
V1=FILE/EXISTS,C1.INPUT
此行检查以确定指定的文件是否存在。此文件必须放于 PC-DMIS 所在的目录中,此代码方能工作,包含有文件的这一行还必须包含该文件完整的路径。V1 接收文件检查结果。如果存在,则为非零值;反之为零。