批量处理文件的程序模块

smile2wind

看到版块里有求批量处理文件的代码。循环是一种办法。
要是文件名不规律，就略麻烦。
这里放一个可批量读文件的模块。对文件名规则不要求。
原理参考自ARWpost里的module_get_file_names.F90
其实也就是在fortran里调用'ls * > filelist.txt' 或者 'dir /B /ON  * > filelist.txt'，然后从这个filelist.txt里获取文件名列表。
使用方法也很简单：
      program main
      use module_filelist
      call get_filelist('E:\work\program\fortran\*.txt')
      do ifile=1,filenum
        print*,trim(filelist(ifile))
      enddo
      end