小弟最近在整理一筆資料長度不一的檔案有點困擾
其中一段資料如下:
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
希望能不吝解答 感謝...