推 terryys:trim(adjustl(filename)) 03/02 14:30
→ jubilee2:write(fn,'('wave',i0,'eee.txt')') i 03/02 14:30
→ jubilee2:open(12,file=fn) 03/02 14:30
真抱歉 我想在問個問題 因為書上一直找不到
因為我設定輸出在.txt的檔名中的變數 是浮點數
檔名中常常會出現一堆空白(space)
如果我希望這個浮點數能夠自動"往左"以及"往右"縮併
就是希望這些空格能消失掉
請問我該怎麼更改下面的指令
謝謝
open(10, file='wave'//chracter//'eee.txt')
※ 引述《laa7352 (Laa)》之銘言：
: ※ 引述《pennyleo (我做了不可原諒的事)》之銘言：
: : 如果我要在一個fortran程式中輸出一個檔案xxxx.txt
: : 要用open(unit,'xxxx.txt')
: : 但我想問
: : 如果我希望這個輸出檔名包含變數integer i
: : 變成xxxxi.txt
: : (意思就是我想寫成一個能輸出不同檔名的迴圈)
: : 例如 xxxx1.txt xxxx2.txt xxxx3.txt....
: : 請問我該怎麼寫
: : 謝謝
: 我的用法跟原文推文一樣
: 把integer的i用格式寫到字串變數裡
: 再用字串變數去open
: character fout*8
: data fout /'????.txt'/
: do i=1,10
: write(fout(1:4),'(I4.4)')i
: open(11,file=fout....)
: 程式內容
: close(11)
: enddo
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 134.208.23.94
※ 編輯: pennyleo 來自: 134.208.23.94 (03/02 14:08)