Re: [問題]請問如何用回圈開很多檔

[gdi2000520 (肥滋滋)]

※ 引述《mcslambob (...)》之銘言：
: 請問要如何開很多個有相同檔名但後面有不同編號
: ex:
:   a1.dat
:   a2.dat
:   a3.dat
:     .
:     .
:     .
:   a60.dat
: 謝謝摟~感恩

PROGRAM MAIN
IMPLICIT none
CHARACTER*7 :: Fname
INTEGER :: LW3

Do LW3 = 1, 60
        Write(Fname,10) "a",LW3,".dat"
        10 Format(A1,I2.2,A4)
        Open(LW3, File=Fname)
ENDDO

END PROGRAM MAIN


應該就行哩

--

        Change your mind, also change your life

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 115.43.129.156