Re: [問題] 如何大量讀檔
※ 引述《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)
推
11/10 22:51, , 1F
11/10 22:51, 1F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
