Fortran Coder

查看: 11741|回复: 5

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

[复制链接]

57

帖子

15

主题

0

精华

熟手

F 币
242 元
贡献
166 点
发表于 2020-2-16 11:40:30 | 显示全部楼层 |阅读模式
有数个txt文件,其中储存着气象台站的经纬度,如何用程序将符合经纬度条件的文件筛选出来

796

帖子

2

主题

0

精华

大宗师

F 币
3787 元
贡献
2266 点
发表于 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

98

帖子

0

主题

0

精华

大师

F 币
658 元
贡献
293 点

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

发表于 2020-2-16 17:53:42 | 显示全部楼层
循环读取,每次判断。
类似

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

1

帖子

0

主题

0

精华

新人

F 币
10 元
贡献
3 点
发表于 2020-12-1 21:14:26 | 显示全部楼层
li913 发表于 2020-2-16 14:37
群共享,fortran批量处理文件。

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

81

帖子

0

主题

0

精华

专家

F 币
471 元
贡献
232 点

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

QQ
发表于 2020-12-2 20:39:36 | 显示全部楼层
本论坛官方QQ群:2338021
彼岸,有永恒的守候...
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-4-19 07:03

Powered by Tencent X3.4

© 2013-2024 Tencent

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