少有人走的路

示例，将以下 两个元组分别写入表格中，元组a在第一行，元组b在第二行

a:= [1,2,3]

b:= [4,5,6]

1、读入文件，先判断是否存在，如果存在将内容清空

fileName:='E:/test.csv'

file_exists(fileName, FileExists)

if(FileExists)

   delete_file(fileName)

endif

*假如文件不存在，将重新创建一个新的

open_file (fileName, 'append', FileHandle)

2、将元组a、b中的内容按照顺序依次写入表中

for Index := 0 to |a|-1 by 1

    fwrite_string (FileHandle, a[Index] +',')

endfor

*换行

fwrite_string (FileHandle, '\n')  或者 fnew_line (FileHandle)

for Index := 0 to |b|-1 by 1

    fwrite_string (FileHandle, b[Index] +',')

endfor

close_file(FileHandle)