Re: [問題] 如何大量讀檔

[laa7352 (Laa)]

※ 引述《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)
推 sysrqli:謝謝你^^