在Fortran中,可以使用OPEN
、READ
、WRITE
以及CLOSE
等语句来实现文件的读写操作。下面是一个简单的示例,演示了如何使用Fortran读取和写入文件:
program file_io
implicit none
integer :: i, n
character(len=20) :: filename
character(len=100) :: line
! 打开文件以供读取
print *, "请输入要读取的文件名:"
read *, filename
open(10, file=trim(filename), status='old', action='read')
! 逐行读取文件内容,并打印到屏幕上
print *, "文件内容如下:"
do i = 1, 10
read(10, '(A)') line
print *, line
end do
! 关闭文件
close(10)
! 打开文件以供写入
print *, "请输入要写入的文件名:"
read *, filename
open(20, file=trim(filename), status='replace', action='write')
! 向文件中写入数据
print *, "请输入要写入文件的整数个数:"
read *, n
write(20, '(A)') "写入的整数如下:"
do i = 1, n
write(20, '(I4)') i
end do
! 关闭文件
close(20)
end program file_io
在这个示例中,用户首先需要输入要读取的文件名,然后程序会打开该文件,并逐行读取文件内容并打印到屏幕上。接下来,用户需要输入要写入的文件名,并输入要写入文件的整数个数n。程序会打开该文件并向其中写入从1到n的整数。最后,程序会关闭文件。请注意,这只是一个简单的示例,实际使用时,您可能需要对文件打开、读取和写入操作进行错误处理。