写入块的样例代码

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

以下代码将用户输入的内容写入输入注释,附加一个冒号作为定界符。

C1=注释/输入,键入任意字符串。PC-DMIS 将追加一个冒号(用于分隔),并将字符串写入所选的文件。

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

,到(包括完整路径)。

FPTR=FILE/OPEN,C2.INPUT,APPEND

ASSIGN/WRITETHIS=C1.INPUT+":"

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

文件/写入行,FPTR,WRITETHIS

文件/关闭,FPTR

代码说明

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

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

FPTR=FILE/OPEN,C2.INPUT,APPEND
此行打开在 C2 注释中指定的文件以执行附加操作,并将其分配给文件指针 FPTR

ASSIGN/WRITETHIS = C1.INPUT + ":"
此行会将一个冒号附加到 C1.INPUT 中所包含的文本,并将新的字符串分配给用户定义的变量 WRITETHIS

FILE/WRITELINE,FPTR,WRITETHIS
此行将 WRITETHIS 中包含的值写入文件指针 FTPR 指定的文件。然后,您可以使用冒号作为定界符从文件中读入文本。