作者snowanimal (依然動物先生)
看板Programming
標題Re: [請益] [fortran]迴圈open檔案的問題
時間Thu Feb 8 10:30:05 2007
※ 引述《mjckey ( 拉)》之銘言：
: 我想請問一下，open 檔案可以寫在回圈裡嗎?
: 我有寫一個簡單的程式來測試
: ./a.out的結果:目錄下會出現1.dat 2.dat ．．．10.dat的檔案
: 不過只有10.dat才有我要寫入的內容
: 其他檔案都是[New File]
: 是我有寫錯什麼，或是不能這樣open檔案呢?
: 謝謝回答 ^^
: character*6 out
: character*2 fn
: do i=1,10
: write(fn,'(i2)')i
: out=fn(1:2)//'.dat'
: open (unit=i,file=out)
: write(i,'(i2)')i
: enddo
: stop
: end
可以寫進迴圈裏面
program loop_open
integer i,j
character*6 name
name=' 1.dat'
do i=1,10
j=0
write (name(1:2),'(i2)') i !把filename的第一第二字用 i2格式寫入
write (*,*) "open ",name !看看檔名是否正確 顯示在螢幕上
j=i+20
open (j,file=name)
write (j,'(i2)') i
close (j)
enddo
stop
end
這樣應該就可以了
會有要開啟file unit 要變成 21~30
是因為unit 1-10 是Fortran內部本身就有定義的
所以盡量避開這些unit比較不會出錯
還有 開了要關!
--
●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼● ▲▲▲▲
▼ 我與我的酷企鵝 - 台客 ▲ 〒 〒
◆ 相本:
http://photo.xuite.net/animalion ◆ ▲
▲ 網誌:
http://blog.xuite.net/animalion ▼ ◣
▼ ◢
●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲● M A R U.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.83.177.177
※ 編輯: snowanimal 來自: 192.83.177.177 (02/08 10:41)
1F：→ snowanimal:最好連開檔的 format也寫[進去 192.83.177.177 02/09 14:22