利用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
运行结果如下: