Fortran文件读写--xdd

1.常规读写

program FileWriteRead
    implicit none
    open(unit=,file="F:\desktop\File.txt")
    !open(unit=,file="File.txt)
    write(,"(A20)") "Good Morning"
    read(*,*)
end program

2.删除文件

open(unit=,file="F:\desktop\File.txt")
close(unit=,status="delete")          !先打开，再这样关闭，可删除文件。

3.格式化输出

program FileWriteRead
    implicit none
    integer::i
    real::A(,)
    open(unit=,file="F:\desktop\StudentScore.txt")
    do i=,
        write(*,"('请输入第'I2'同学三科的成绩')")i
        read(*,*)A(i,),A(i,),A(i,)
        write(,"('次序：'F5.2  ',中文:'F5.2  ',数学:'F5.2  ',英语:'F5.2 )")i,A(i,),A(i,),A(i,)
    end do
    write(*,*)"按任意键退出"
    read (*,*)
end program

输出结果：

   

---

write by xdd　　2019-09-22　　19:28:45

---

暂时写到这里，以后用到再写吧！