*文件保存路径
file_name:='./学生信息.txt'
*判断文件是否存在:1:存在;0:不存在
file_exists (file_name, file_exist)
if(file_exist==1) //文件存在
delete_file (file_name) //删除文件重新写入
endif
file_exists (file_name, file_exist)
*若文件不存在,则创建一个含有表头信息的新文件
if(file_exist==0)
*'output':将打开一个新的输出文件,以便以ASCII格式写入。
open_file (file_name, 'output', FileHand)
*将字符串或数字写入文件中
fwrite_string (FileHand, ' 姓名\t')
fwrite_string (FileHand, ' 班级\t')
fwrite_string (FileHand, ' 电话\t')
*清空输出缓冲区并写入换行符
fnew_line (FileHand)
*关闭文件
close_file (FileHand)
endif
file_exists (file_name, file_exist)
*若文件存在,则将数据写入到文件中
if (file_exist==1)
*'append':将已存在的输出文件在文件末尾打开,以便以ASCII格式追加写入。
open_file (file_name, 'append', FileHand)
* 第n行第一列写入relative_mileage
fwrite_string (FileHand, '林晓霞'+'\t')
fwrite_string (FileHand, '七(1)班'+'\t')
fwrite_string (FileHand, '02156899'+'\t')
*清空输出缓冲区并写入换行符
fnew_line (FileHand)
*关闭文件
close_file (FileHand)
endif
04-10
03-30
1509
10-08
958
07-21
1398