EOFEOL 的样例代码

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

以下代码可打开 test.txt 并读取文件。只要尚未到达文件的末尾(指定代码 WHILE/!EOF,PC-DMIS 即会逐字符读取此文件,并为 V1分配一个字符。

如果PC-DMIS运行到文件的一个命令行的结尾,PC-DMIS显示该命令行的最后一个字符。

这会重复,直到到达文件结尾。PC-DMIS显示文本“已达到文件末尾……”。

FPTR=文件/打开,D:\temp\test.text,读取

WHILE/!EOF("FPTR")

V1=文件/读取_字符,FPTR

IF/EOL("FPTR")

注释/操作者,否,“到达命令行结尾 。最后一个字符是:”

,V1

END_IF/

END_WHILE/

注释/操作者,否,“到达命令行结尾,最后一个字符是...”