→ DrStein:簡單講，技巧就是用write來寫檔名 09/16 01:38
→ blc:fmt="(I2.2, A4)" I2.2在整數少於兩位時會補0 09/16 01:40
推 kobenein:多謝 不過我向瞭解的更仔細 要看書的哪一部分 09/17 00:19
→ noway501:write, format, open 09/17 08:56
以下程式，測試 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