读取字符的样例代码

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

参考以下示例,从数据文件中读入一行,一次读取一个字符,直到遇到空格。

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
该行关闭打开的数据文件,以供其它系统进程访问。代码的剩余部分完成运行,并在操作者注释中显示数据文件中的第一个字。