Fortran Coder

查看: 11976|回复: 5
打印 上一主题 下一主题

[文件读写] simply fortran的文件批处理

[复制链接]

57

帖子

15

主题

0

精华

熟手

F 币
242 元
贡献
166 点
跳转到指定楼层
楼主
发表于 2020-2-16 11:40:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
有数个txt文件,其中储存着气象台站的经纬度,如何用程序将符合经纬度条件的文件筛选出来
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2020-2-16 14:37:41 | 只看该作者
群共享,fortran批量处理文件。

57

帖子

15

主题

0

精华

熟手

F 币
242 元
贡献
166 点
板凳
 楼主| 发表于 2020-2-16 15:11:04 | 只看该作者
我也是刚开始学习Fortran,所以懂得不是太多,想问一下,如果需要对经纬度添加限制,应该怎么添加,这是代码:
[Fortran] 纯文本查看 复制代码
program test
  integer i
  real s,a
  character(512)::filename
  call system('dir *.txt /b>1.dat')
  s=0.0
  open(10,file='1.dat')
  do
    read(10,'(a)',iostat=i) filename
    if(i/=0) exit
    open(11,file=filename)
    read(11,*) a
    close(11)
    s = s + a
  end do
  close(10,status='delete')
end program

101

帖子

0

主题

0

精华

大师

F 币
670 元
贡献
299 点

规矩勋章元老勋章新人勋章

地板
发表于 2020-2-16 17:53:42 | 只看该作者
循环读取,每次判断。
类似

do ....
  read(11,*) a
  if( a > ... ) then
    ...
  end if
end do
天之道,损有余而补不足

1

帖子

0

主题

0

精华

新人

F 币
10 元
贡献
3 点
5#
发表于 2020-12-1 21:14:26 | 只看该作者
li913 发表于 2020-2-16 14:37
群共享,fortran批量处理文件。

大佬,哪个群?qq吗?在哪里呀?

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

规矩勋章新人勋章元老勋章

QQ
6#
发表于 2020-12-2 20:39:36 | 只看该作者
本论坛官方QQ群:2338021
彼岸,有永恒的守候...
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-15 01:23

Powered by Tencent X3.4

© 2013-2024 Tencent

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