Fortran文件读写--xdd

1.常规读写

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

2.删除文件

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

3.格式化输出

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

输出结果：

    

 

---

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

---

 

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