回 帖 发 新 帖 刷新版面

主题:哪位大神帮忙写个程序啊

50136 1980 1 1 0 1 1845 2000 0 1 0940 1035 1042 1100 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 02 03 16 42 70 03,16,02,10,42 0940 1035'1042 1100,70 1845 2000,

我的数据是这样的,第一列是气象台站号,第二列是1980年,第三列是1月,第四列是1号,

之后是第5列的0代表没有天气现象,第6列的1代表有天气现象则后面的1845好2000是发生的时间,也就是蓝色的部分一共有26个(0或者1),我需要提取的是02 03 16 42 70  ,而后面的03,16,02,10,42 0940 1035'1042 1100,70 1845 2000,我也不需要,只需要提取02 03 16 42 70 


哪位大神会啊

回复列表 (共2个回复)

沙发

建议你把数据按照行和列排清楚,要不然我们连数据都看不懂,怎么帮你

板凳

character aaa*1000 

open(1,file='test.dat',status=old) 

read(1,981) aaa

981 format(a) 

do 10 i=1,1000-15+1

if(aaaa(i:i+14).eq.'02 03 16 42 70') then 

write(*,*) '找dao啦', i

endif 

10    continue 

end 




我来回复

您尚未登录,请登录后再回复。点此登录或注册