Fortran批量处理数据文件两种方法（1）

利用Fortran批量处理多个文件

第一种：适合文件名有规律的文件，如下图：

思路：利用文件名中的规律进行循环然后读取

代码：

program piliang_read
implicit none
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!                                                !
!批量读取文件                                    !
!                                                !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
integer,parameter :: start_n=101      !文件起始，如文件名是101-105，那么该数为101
integer,parameter :: end_n=109        !文件末尾，如文件名是101-105，那么该数为105
character(len=3) vs                   !
integer in_n                          !
character(len=80) filename_r          !

do in_n=start_n,end_n     !!!!!!!!!!do 起始

write(vs,'(i3)') in_n
write(filename_r,*) 'E:\****\co2_ba_',trim(vs),'.csv'
print*,filename_r

end do  !!!!!!!!!!!!!!!end终止

end

运行结果如下：