Re: [問題] 如何輸出連續的檔名？
以下程式，測試 OK
program VF0910
implicit none
integer i
character(len=20):: string
do i=1, 16
write(unit= string, fmt= "(I2, A4)")i, '.DAT'
if (string(1:1) .EQ. ' ') then
string(1:1)= '0'
end if
open(unit= 1, file= string)
write(1, fmt= '(1x, 3I12)')i, i*i, i*i*i
close(1)
end do
end
※ 引述《kobenein (哈哈哈)》之銘言：
: 例如迴圈從1跑到16
: 每跑一次就產生一個檔案
: 從 01.dat ~ 16.dat
: 謝謝！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.4.235
→
09/16 01:38, , 1F
09/16 01:38, 1F
→
09/16 01:40, , 2F
09/16 01:40, 2F
推
09/17 00:19, , 3F
09/17 00:19, 3F
→
09/17 08:56, , 4F
09/17 08:56, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 4 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
-4
30