下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
以下代码可打开 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/
注释/操作者,否,“到达命令行结尾,最后一个字符是...”