如何在Fortran的do循环中批量创建外部数据文件？

问题的核心是动态生成带序号的文件名——直接把循环变量i写在引号里，编译器只会把它当成字符串的一部分，不会解析成变量值。下面给你两种实用的实现方式：

方法1：用格式化字符串生成文件名（推荐） #

这种方式能灵活控制序号的格式（比如补零让文件名排序更整齐），代码可读性高：

program batch_files
    implicit none
    integer :: i, unit_num
    character(len=20) :: filename  ! 预留足够容纳文件名的字符串长度

    do i = 1, 500
        ! 格式化生成文件名，比如file_001.dat、file_002.dat...file_500.dat
        write(filename, '(A,I3.3,A)') 'file_', i, '.dat'
        
        ! 用newunit自动分配安全的文件单位号，避免手动指定的冲突问题
        open(newunit=unit_num, file=filename, status='replace', action='write')
        
        ! 写入指定内容，这里以"hallo world!"为例
        write(unit_num, *) 'hallo world!'
        
        ! 关闭当前文件，释放单位号
        close(unit_num)
    end do
end program batch_files

关键说明： #

• '(A,I3.3,A)'是格式化规则：A表示字符串，I3.3表示整数占3位，不足补零（如果要生成file_1.dat这种不带补零的格式，改成I0即可）。
• newunit是Fortran 2008及以后支持的特性，自动分配未被使用的单位号，比手动指定12、13这类固定值更安全。
• status='replace'表示如果文件已存在就覆盖，要是不想覆盖可以改成status='new'（但文件存在时会触发报错）。

方法2：字符串拼接（适合简单场景） #

如果不需要补零格式，也可以直接用字符串拼接的方式实现：

program batch_files_simple
    implicit none
    integer :: i, unit_num
    character(len=20) :: filename

    do i = 1, 500
        filename = 'file_' // trim(int2str(i)) // '.dat'
        open(newunit=unit_num, file=filename, status='replace', action='write')
        write(unit_num, *) 'hallo world!'
        close(unit_num)
    end do
end program batch_files_simple

! 辅助函数：把整数转换为字符串
function int2str(n) result(str)
    integer, intent(in) :: n
    character(len=10) :: str
    write(str, '(I0)') n
    str = trim(str)
end function int2str

批量读取文件的同理操作 #

后续要读取这些文件时，只需要把action='write'改成action='read'，然后在循环里用同样的方式生成文件名，再执行读取逻辑即可。

内容的提问来源于stack exchange，提问作者QuestionTheAnswer