下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
参考以下示例,从数据文件中读入一行,一次读取一个字符,直到遇到空格。
V1=文件/存在,test.txt
如果/V1<>0
注释/操作者,可以读取数据文件。单击“确定”继续。
ASSIGN/V3=""
FPTR=文件/打开,D:\Program Files\pcdmis35\test.txt,读取
执行/
V2=文件/读取_字符,FPTR
ASSIGN/V3=V3+V2
UNTIL/V2==" "
文件/关闭,FPTR
COMMENT/OPER,"文件中文本行的第一个字为:" + V3
END_IF/
ELSE/
COMMENT/OPER, 不能读取数据文件。现在将退出例程。
转到/终止
END_ELSEIF/
终止=标号/
ROUTINE/END
代码说明
V1=文件/存在
该行检查指定的文件是否存在。文件必须位于 PC-DMIS 所在的目录,该代码才有效,否则,包含文件的行还必须包含文件的完整路径。V1 接收文件检查结果。如果存在,则为非零值;反之为零。
IF/V1<>0
此行取用 V1 的值,并检查以确定其结果是否为非零值。如为非零值,则会显示注释,表明已准备好开始读取过程。如为 0,则将结束测量例程。
ASSIGN/V3=""
该行创建一个空字符串,并将其赋给 V3。代码使用该变量,通过分别读入的字符构造字符串。如果不建立空字符串,则 V3 的默认值为 0。
FPTR=文件/打开
该行打开指定的文件进行读取,并将其分配给默认的文件指针 FPTR。
DO
该行开始 DO / UNTIL 循环。该行绑定 FILE/READ_CHARACTER 代码,以便可以一次一行连续读入行。循环在读入空格字符时退出。
V2=文件/读取字符,FPTR
该行从绑定到文件指针FPTR的打开文件中读入一个字符。字符存储在变量 V2 中。
ASSIGN/V3 = V3+V2
该行使用空的 V3 变量将字符串 V3 与 V2 串联,然后将值重新赋给 V3。所以,在以后运行 DO/UNTIL 循环时,V3 将增加一个字符。
UNTIL/V2 == " "
该行在FILE/READ_CHARACTER代码从打开的文件中遇到空格字符时终止 DO / UNTIL 循环。
文件/关闭,FPTR
该行关闭打开的数据文件,以供其它系统进程访问。代码的剩余部分完成运行,并在操作者注释中显示数据文件中的第一个字。