[問題] 資料整理問題
最近在學怎麼整理一些資料
然後有一個問題想問板上各位
假設有一個檔案 檔案的格式大概是這樣
stano time temp
466920 2008010101 12.2
466920 2008010102 11.9
467540 2008073101 24.9
467540 2008073102 24.9
72S200 2008022718 12.6
72S200 2008022719 12.5
C0A870 2008062317 27.5
C0A870 2008062318 26.2
然後我想抓 有溫度紀錄的stano站名就好
所以我寫了下面的程式
program work1
implicit none
!---------------
character(len=6) :: station2
character(len=6) :: station1
integer status
station1="1"
status=0
!---------------
open(11,file="t2008.txt")
!---------------
do while (.true.)
read(11,"(A6)" , iostat=status) station2
if (status/=0) exit
if (station2/=station1) then
write(*,"(A6)") station2
end if
station2=station1
end do
end
我想要輸出結果為
466920
467540
72S200
C0A870
但是上面的程式 似乎因為字串無法運算
所以station1=station2 沒辦法成立
station1 的字串值一直是1
所以重複的站名還是會被寫出來
不知道有沒有辦法可以修改這個狀況
因為站名有英文字所以我把他宣告為字串
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.13.115
※ 編輯: terrylove12 來自: 140.112.13.115 (09/20 11:25)
推
09/20 11:30, , 1F
09/20 11:30, 1F
→
09/20 11:30, , 2F
09/20 11:30, 2F
→
09/20 11:35, , 3F
09/20 11:35, 3F
→
09/20 11:35, , 4F
09/20 11:35, 4F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
