写入行的样例代码

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

假定您要将某些测定 XYZ 值导出到数据文件。以下代码使您可以输入特征标号和数据文件,并将该特征的 X、Y 和 Z 数据发送到数据文件。

C1=注释/输入,键入要使用的特征的标号

,使用。

C2=注释/输入,键入要写入文件的文件名

,到(包括完整路径)。

FPTR=FILE/OPEN,C2.INPUT,APPEND

ASSIGN/FEATNAME=C1.INPUT

ASSIGN/ALLVALS=FEATNAME.X+","+FEATNAME.Y+","+FEATNAME.Z

COMMENT/OPER,"要写入的文本为:" + ALLVALS

文件/写入行,FPTR,ALLVALS

文件/关闭,FPTR

代码说明

该代码大部分与“读取字符的样例代码”或“读取行的样例代码”中所述类似。

下面仅介绍该示例独有的代码。

FPTR=FILE/OPEN,C2.INPUT,APPEND
此行打开在 C2 注释中指定的文件以执行附加操作,并将其分配给文件指针 FPTR。如将 APPEND 更改为 WRITE,会覆盖数据文件中现有的内容。

ASSIGN/FEATNAME = C1.INPUT
此行将 C1.INPUT 的特征标签字符串分配给用户定义的变量 FEATNAME

ASSIGN/ALLVALS=FEATNAME.X+","+FEATNAME.Y+","+ FEATNAME.Z
此行将 FEATNAME.X,FEATNAME.Y,FEATNAME.Z 的值分配给用户定义的变量 ALLVALS,换言之,即变量 ALLVALS 拥有键入到 C1 输入注释的特征标签的 X、Y 及 Z 的值。

FILE/WRITELINE,FPTR,ALLVALS
此行将 ALLVALS 中包含的值写入文件指针 FTPR 指定的文件。