记住 4 步:
打开文件 准备数据 写入文件 关闭文件
!===========================================
open(unit=fileid, file=filename)
do i=1,students
write(*,"('请输入'I2'号同学的中文、英文及数学成绩')") i
read(*,*) s(i)%Chinese, s(i)%English, s(i)%Math
write(fileid,"('座号:'I2/'中文:'I3' 英文:'I3' 数学:'I3)") i,s(i)
end do
close(fileid)
【注】这是截取某程序一段
特别注意 open read write close 这四句,其他可以不管
其中 fileid 和 filename 都是自己设定的
unit=6 时默认输出到屏幕,所以这里你可以随便取除6外的数字,比如15
filename 就是你想保存数据到的文件,如果文件就在程序文件夹,直接写文件名,如果要保存到其他地方,需要带上路径
三步:
(1)打开文件, 用 open 语句
(2)输出数据, 用 write 语句
(3)关闭文件, 用 close 语句
比如把 5, 6, 7, 8 四个数输出到文件的程序
open(1, file='test.out', mode ='write') ! 打开名为test.out的1号文件
write(1,*)5, 6, 7, 8
close(1)