少有人走的路示例，将以下 两个元组分别写入表格中，元组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)
本文出自勇哥的网站《少有人走的路》wwww.skcircle.com，转载请注明出处！讨论可扫码加群：
