Fortran实现批量处理的方法总结（读取一个目录下所有文件）(支持WIN7)

superxlsh · 发表于 2018-5-25 12:05:24

赞赞赞!!帮助太大了！

landu_cainingze · 发表于 2018-12-9 14:50:30

试了一下真的实现了，很神奇

snoopy-_- · 发表于 2019-5-5 13:18:39

终于找到一个，赶紧来试验一下，多谢了

DTyanyan · 发表于 2020-2-8 00:18:58

谢谢楼主解决燃眉之急，由于Matlab计算速度，将程序改为Fortran的时候，这个问题着实有点烦。利用大神给的这个，轻松获得了文件夹内文件名称。采用的是方法一，调用CMD命令就是用ListToFile子程序读取文件。对于不能输出的文件个数进而不能直接在程序中调用的缺点克服方法，想了想，利用了一个子程序：
n_file=GetFileN(1)             !输出文件内行数
!————————————判断数据行数-——————————————————
Integer Function GetFileN(iFileUnit)
Implicit None
Integer,Intent(IN)::iFileUnit
Integer::ios
Character(Len=1)::cDummy
GetFileN=0
Rewind(iFileUnit)
Do
      Read(iFileUnit,*,ioStat=ioS)cDummy
      if(ioS/=0)Exit
      GetFileN=GetFileN+1
End Do
end function
就可以获得文件内数目，进而循环读取文件就很方便啦~ 这个也是参考一个大神给出的方法，
具体见这里https://blog.csdn.net/sinat_32602421/article/details/88822150

杨豆 · 发表于 2020-7-29 10:12:04

太感谢啦开心~就很有用爱了爱了

奇缘相加 · 发表于 2020-11-30 14:20:15

太好了谢谢楼主分享

王小婷enjoy · 发表于 2021-3-10 14:49:08

帮助我很多！

奚言之梦 · 发表于 2021-4-13 21:17:56

好棒呀！！！！毕业论文刚好要用，特别及时！

xuehaograds · 发表于 2022-1-4 15:19:10

谢谢楼主，之前写代码还在为这个问题犯难

applewen · 发表于 2022-2-9 11:10:22

感谢分享，我怎么才能下载下来呀

		自动登录	找回密码
密码			立即注册

[经验总结] Fortran实现批量处理的方法总结（读取一个目录下所有文件）(支持WIN7)