如何在Fortran程序中读取CSV文件？解决EOF执行错误

核心问题根源 #

你遇到的EOF执行错误，本质是Fortran默认在遇到文件结束时会触发终止错误，而非温和的状态返回。同时处理逗号分隔符时的格式写法错误，也会加剧读取失败。以下是几种可靠的解决方式：

方案1：使用列表导向输入（最简便） #

Fortran的列表导向输入（用*作为格式符）会自动将逗号、空格、制表符视为字段分隔符，无需手动处理逗号，同时配合iostat捕获文件状态避免EOF错误。

示例代码：

program read_csv_list
    implicit none
    integer :: iostat
    real :: col1, col2, col3
    ! 打开CSV文件
    open(unit=10, file='data.csv', status='old', action='read')
    
    ! 循环读取直到文件结束
    do
        read(10, *, iostat=iostat) col1, col2, col3
        ! iostat<0表示EOF，iostat>0表示读取错误
        if (iostat /= 0) exit
        print *, "读取结果：", col1, col2, col3
    end do
    
    close(10)
end program read_csv_list

方案2：显式格式处理逗号（精确控制） #

如果需要严格匹配CSV格式，可在格式字符串中将逗号作为字面量（必须用单引号包裹），同时通过iostat处理EOF状态。

示例代码：

program read_csv_explicit
    implicit none
    integer :: iostat
    integer :: id, age
    character(len=20) :: name
    open(unit=11, file='user.csv', status='old', action='read')
    
    do
        ! 格式字符串中用','作为字面量分隔字段
        read(11, '(I3, ",", A, ",", I2)', iostat=iostat) id, name, age
        if (iostat < 0) exit
        if (iostat > 0) then
            print *, "读取错误，状态码：", iostat
            exit
        end if
        print *, "ID:", id, " 姓名:", trim(name), " 年龄:", age
    end do
    
    close(11)
end program read_csv_explicit

注意：格式字符串中的逗号必须用单引号括成","，否则编译器会判定为格式符分隔错误。

方案3：逐行读取后拆分（适配复杂CSV） #

如果CSV包含带引号的字段、换行的字段等复杂情况，可先读取整行字符串，再拆分逗号分隔的字段。

示例代码：

program read_csv_line_split
    implicit none
    integer :: iostat, pos
    character(len=256) :: line
    real :: val1, val2, val3
    open(unit=12, file='complex.csv', status='old', action='read')
    
    do
        ! 先读取整行
        read(12, '(A)', iostat=iostat) line
        if (iostat /= 0) exit
        
        ! 拆分第一个字段
        pos = index(line, ',')
        read(line(1:pos-1), *) val1
        line = line(pos+1:)
        
        ! 拆分第二个字段
        pos = index(line, ',')
        read(line(1:pos-1), *) val2
        line = line(pos+1:)
        
        ! 读取最后一个字段
        read(line, *) val3
        
        print *, "拆分结果：", val1, val2, val3
    end do
    
    close(12)
end program read_csv_line_split

关键注意事项 #

• 无论哪种方法，必须使用iostat参数：它会返回文件状态（0=成功，<0=EOF，>0=错误），避免Fortran触发默认的EOF终止错误。
• 确保CSV文件的每行字段数量、类型与读取变量完全匹配，否则会触发读取错误。
• 如果CSV末尾有空白行，iostat会自动捕获，不会引发错误。

内容的提问来源于stack exchange，提问作者Paul R. Sievert