爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
楼主: mofangbao

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

  [复制链接]

新浪微博达人勋

发表于 2018-5-22 10:56:18 | 显示全部楼层
感觉应该是我需要的!但是作为Fortran小白的我,显然还需要认真阅读!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2018-5-22 16:38:58 | 显示全部楼层
请问,我需要把这些文件中的固定列写成grd该怎么改程序呢~数据分隔符是逗号
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2018-5-24 20:56:39 | 显示全部楼层
mk~~~~~~~~~~~~~~~~~~~~~~~~
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

新浪微博达人勋

发表于 2018-5-25 12:05:24 | 显示全部楼层
赞赞赞!!帮助太大了!
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2018-12-9 14:50:30 | 显示全部楼层
试了一下真的实现了,很神奇
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2019-5-5 13:18:39 | 显示全部楼层
终于找到一个,赶紧来试验一下,多谢了
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

发表于 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
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

发表于 2020-7-29 10:12:04 | 显示全部楼层
太感谢啦 开心~就很有用爱了爱了
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

发表于 2020-11-30 14:20:15 | 显示全部楼层
太好了谢谢楼主分享
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

发表于 2021-3-10 14:49:08 | 显示全部楼层
帮助我很多!
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表