作者laa7352 (Laa)
看板Fortran
标题Re: [问题] 如何大量读档
时间Tue Nov 10 22:04:47 2009
※ 引述《sysrqli ()》之铭言：
: 有爬过文
: 例如我读档案名称XXXXX.txt.00000
: XXXXX.txt.00001
: XXXXX.txt.00002
: .
: .
: .
: 要如何用do来写
: DO I=1,800
: OPEN(UNIT=I, FILE="这里要怎麽写"
: .
: .
: .
: END DO
: 小弟想请问各大大要如何写
: 还是有其他方法
: 谢谢
另一种方法
用格式 I5.5 把数字写进字串里第11格到第15格
character*20 fin0,fin1
c 1234567890 15
data fin0 /'XXXXX.txt.?????'/
do i=1,800
fin1=fin0
write(fin1(11:15),'(I5.5)')i
c print'(A20)', fin1 !可以试试print出来看是不是你要的档名
open(11,file=fin1,.......)
close(11)
enddo
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.137.32.160
※ 编辑: laa7352 来自: 140.137.32.160 (11/10 22:09)
1F：推 sysrqli:谢谢你^^ 11/10 22:51