[問題] 要如何將迴圈值分開存檔

作者: zx168zx (zx168zx)   2014-11-16 11:35:52
小弟想請問一下各位前輩們
我的程式結構如下
do aa=1,5
do bb=1,10
.
.
.
.
do while (條件)
.
.
write(126,"(3(F13.5))") aa,bb,X
.
.
enddo
enddo
enddo
但我跑資料時 這樣的存法讓我的檔案變很大
想問一下 是否能夠將檔案自動存成
aa-bb.txt 照我的迴圈編號分割儲存好我的檔案
就是1-1.txt 存的檔案是 aa=1,bb=1的資料
1-2.txt 是aa=1,bb=2 的資料
我試過這樣的寫法
character(len=20) :: string
do m=1,2
do aa=1,1
do bb=1,2
write(unit=string,fmt='((F13.5))')m,'.txt'
.
.
.
.
do while (條件)
open(unit=1 ,file= string)
write(1,fmt='((F13.5))')m, X
close(1)
enddo
enddo
enddo
但沒辦法成功 所以想請問一下各位前輩們
作者: jubilee2 (3321)   2014-11-16 12:59:00
每次開檔案會洗掉前面已經輸出的,所以可以迴圈外面先open 所有的檔案,另一法是看看有沒有接續寫檔案的指令
作者: blc (Anemos)   2014-11-16 15:14:00
open有個append,查一下吧
作者: zx168zx (zx168zx)   2014-11-16 16:16:00
append指令我知道 但我不太懂移到檔案結尾的意思
作者: fcuiii   2014-11-17 10:39:00
把OPEN放到do 裡面 將string 改為迴圈,如string=i.txti 要改為字元,就會切成很多檔案。
作者: zx168zx (zx168zx)   2014-11-17 13:52:00
i.txt我太不懂要怎麼定義 i如果是迴圈數 不是已經定義成integer了嗎 怎麼在定義成字元?
作者: terryys (terry)   2014-11-17 16:59:00
板上搜尋字串,例如這個: #19xRni2i
作者: rex0707 (我就是我)   2014-11-18 10:48:00
WRITE(string,*) integer
作者: zx168zx (zx168zx)   2014-11-18 13:28:00
r大 我不太懂你那樣的寫法....

Links booklink

Contact Us: admin [ a t ] ucptt.com