小弟最近在整理一笔资料长度不一的档案有点困扰
其中一段资料如下:
Dm=341D,Sm=3.0M,Ta=29.1C,Ua=74.6P,Pa=996.2H,Rc=0.00M,Ri=9.2M
Dm=005D,Sm=3.2M,Ta=29.1C,Ua=75.6P,Pa=996.2H,Rc=0.00M,Ri=13.1M
Dm=063D,Sm=3.8M,Ta=28.9C,Ua=76.3P,Pa=996.3H,Rc=0.00M,Ri=61.4M
我的做法是把全部读成character然后给个FORMAT再读到文字的部分就给个空格
可是Ri设定为A4会读到M，我不想读到文字该如何是好呢?
附上程式码的一小段
20 format(a4,x,a2,x,a2,x,a2,x,a2,x,a2,8x,a3,5x
&a3,5x,a4,5x,a4,5x,a5,5x,a4,5x,a4)
30 continue
read(10,20,end=99,err=30)yy(i),mon(i),day(i),hr(i),min(i)
&,sec(i),wd(i),ws(i),t(i),rh(i),p(i),rc(i),ri(i)
write(11,20)yy(i),mon(i),day(i),hr(i),min(i)
&,sec(i),wd(i),ws(i),t(i),rh(i),p(i),rc(i),newri(i)
i=i+1
go to 30
99 continue
stop
end
希望能不吝解答 感谢...