作者terrylove12 (空洞)
看板Fortran
標題[問題] 資料整理問題
時間Mon Sep 20 11:15:09 2010
最近在學怎麼整理一些資料
然後有一個問題想問板上各位
假設有一個檔案 檔案的格式大概是這樣
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)
1F：推 Cypresslin:你程式碼中是寫station2=station1而不是sta..1=sta...2 09/20 11:30
2F：→ Cypresslin:另外縮排一下會比較好閱讀，個人感想啦 09/20 11:30
3F：→ suzuke:station2=station1反了吧 station1=station2才對~ 09/20 11:35
4F：→ terrylove12:欸 對耶 我傻了 09/20 11:35