下面的样本代码应该在编辑窗口的命令模式下键入,而不是在文件输入/输出对话框中。
假定您要将某些测定 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 指定的文件。