求助大神！fortran可以处理这种每行都不规律有多少个数据吗？？

Inuyasha716 · 发表于 2016-7-7 16:50:24

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

do  while(1)
read(10,'(a)',iostat=ios) cLine
!print*,cLine
!pause
   do j=1,len_trim(cLine)
      if(cLine(j:j)==';')  then
      n=n+1
      endif
   enddo
do j=1,len_trim(cLine)
      if(cLine(j:j)=='/'.or.cLine(j:j)==':'.or.cLine(j:j)==';'.or.cLine(j:j)==',') cLine(j:j)=' '
enddo
!print*,cLine
   do i=1,n-1
   read(cLine,*)yy,mm,dd,hh,mi,ss,mn,num(i)??

程序先把符号这些去掉，然后计算了一下分号的个数，这样可以确定有多少个预报值，目的是要把分好前的数据求和按整小时求和，现在确实很崩溃不知道怎么读入然后求和？？

四叶草 · 发表于 2016-7-7 17:17:02

这个用excel处理起来更方便吧，楼主不妨试试

MeteoInfo · 发表于 2016-7-7 22:08:10

建议用Python，简单很多。

lqouc · 发表于 2016-7-8 10:00:48

完全没看明白楼主要干什么，如果会楼上两位说的方法不妨试试

言深深 · 发表于 2016-7-8 11:01:51

read(cLine,*)yy,mm,dd,hh,mi,ss,mn,((num(i,j),j=1,2),i=1,n)
你试试这样的语句，隐式格式，每次read两个，一个read到n个数据（n个分号），然后把后面的加起来，如：print*,sum(num(1:n,2))表示的是屏幕输出后面那个数，当然记得将num数组定义为real型的

Inuyasha716 · 发表于 2016-7-11 16:16:05

言深深发表于 2016-7-8 11:01
read(cLine,*)yy,mm,dd,hh,mi,ss,mn,((num(i,j),j=1,2),i=1,n)
你试试这样的语句，隐式格式，每次read两 ...

真感谢你！然而我已经被多方打击说FORTRAN不适合处理这个了，转头MATLAB好了

帅得被人砍 · 发表于 2016-7-12 00:03:48

cat filename | awk '{print NF}'

言深深 · 发表于 2016-7-12 11:05:23

Inuyasha716 发表于 2016-7-11 16:16
真感谢你！然而我已经被多方打击说FORTRAN不适合处理这个了，转头MATLAB好了

好的

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

[求助] 求助大神！fortran可以处理这种每行都不规律有多少个数据吗？？

登录后查看更多精彩内容~

回帖奖励 +50 金钱

浏览过的版块