写入字符的样例代码

参考以下代码，将用户提供的字符串写入数据文件，一次写入一个字符。

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

,到（包括完整路径）。

FPTR=FILE/OPEN,C1.INPUT,WRITE

C2=注释/输入,键入要发送到文件的内容。

,这将发送字符串，一次发送

,一个字符。

ASSIGN/COUNT=0

ASSIGN/LENGTH=LEN(C2.INPUT)

执行/

ASSIGN/WRITETHIS=MID(C2.INPUT,COUNT,1)

文件/写入字符,FPTR,WRITETHIS

ASSIGN/COUNT=COUNT + 1

UNTIL/COUNT==LENGTH

代码说明

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

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

FPTR=FILE/OPEN,C1.INPUT,WRITE
此行打开 C1 注释中指定的文件以执行写入，并将其分配给文件指针 FPTR。只要文件指针是从数据文件的起始处开始，则文件中的所有数据均将被覆盖。

ASSIGN/COUNT = 0
该行为用户定义的变量 COUNT 赋予值零。用于循环，输出字符串，一次输出一个字符。

ASSIGN/LENGTH = LEN(C2.INPUT)
此行使用 LEN( ) 函数传回字符串长度。该函数取一个参数，即字符串。它会计算字符串中的字符数（包括空格），并传回字符数的整数值。在本例中，由用户定义的变量 LENGTH 保存该值。

DO/
该行开始 DO / UNTIL 循环。DO 和 UNTIL 语句之间的代码将执行到循环条件值为 True。

ASSIGN/WRITETHIS = MID(C2.INPUT,COUNT,1)
此行创建一个用户定义的变量 WRITETHIS，使用 MID( ) 函数传回 C2.INPUT 字符串的子字符串字符，并将其分配给 WRITETHIS。

MID( ) 取三个参数。

• 参数 1：要获取其值的字符串。在本例中，使用的是 C2.INPUT。

• 参数 2：是在字符串中获取字符的位置。字符串的第一个字符的位置为 0，第二个位置为 1，第三个位置为 2，依此类推。在该示例中使用变量 COUNT。

• 参数 3：是从第二个参数的位置开始获取的字符数。在该示例中使用值 1（该示例一次仅写入一个字符，所以不必获取更多字符）。

文件/写入_字符,FPTR,WRITETHIS
该行将 WRITETHIS 变量中存储的字符写入文件指针 FPTR 指定的文件。

ASSIGN/COUNT=COUNT+1
该行接受当前的 COUNT 值，以 1 为增量递增，然后将新值放回 COUNT。

UNTIL/COUNT == LENGTH
此行测试 DO / UNTIL 循环的条件。在该示例中，循环将不断递增 COUNT 变量，直到其值与 LENGTH 变量相同。然后循环将退出，终止例程。