下面的示例打开文件 input.dat,并向其中写入内容。在写入头两个字符串后,程序刷新缓冲区以保证字符串写入磁盘。然后再写入后两个字符串,再次刷新缓冲区,并关闭该文件。
if file('input.dat')
gntestfile = fopen('input.dat',2)
else
gntestfile = fcreate('input.dat')
endif
gniobytes = fwrite(gntestfile,'test output')
gniobytes = fwrite(gntestfile,' for low-level file i/o')
glflushok = fflush(gntestfile)
gniobytes = fwrite(gntestfile,'test output2')
gniobytes = fwrite(gntestfile,' for low-level file i/o')
glflushok = fflush(gntestfile)
glcloseok = fclose(gntestfile)
modify file input.dat nowait noedit