Fortran

Fortran怎么实现文件读写

小亿
244
2023-11-09 12:43:13
栏目: 编程语言

在Fortran中,可以使用OPENREADWRITE以及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的整数。最后,程序会关闭文件。请注意,这只是一个简单的示例,实际使用时,您可能需要对文件打开、读取和写入操作进行错误处理。

0
看了该问题的人还看了