推 sysrqli:謝謝D大 我在嘗試看看 謝謝你^^ 11/10 21:13
filename = 'TEMP'
do i = 1, 500
j1 = mod(i,10) / 1
j2 = mod(i-j1,100) / 10
j3 = mod(i-j1-j2*10,1000) / 100
j4 = mod(i-j1-j2*10-j3*100,10000) / 1000
filename(5:) = char(j4+48)
filename(6:) = char(j3+48)
filename(7:) = char(j2+48)
filename(8:) = char(j1+48)
filename(9:) = '.txt'
open(1,file=filename)
close(1)
end do
把數字轉成字串 在filename的第幾位送進去
※ 引述《sysrqli ()》之銘言：
: 有爬過文
: 例如我讀檔案名稱XXXXX.txt.00000
: XXXXX.txt.00001
: XXXXX.txt.00002
: .
: .
: .
: 要如何用do來寫
: DO I=1,800
: OPEN(UNIT=I, FILE="這裡要怎麼寫"
: .
: .
: .
: END DO
: 小弟想請問各大大要如何寫
: 還是有其他方法
: 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.114.46.8