作者DavisX (Daily Live)
看板Fortran
标题Re: [问题] 如何大量读档
时间Tue Nov 10 21:06:46 2009
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
1F：推 sysrqli:谢谢D大 我在尝试看看 谢谢你^^ 11/10 21:13