Re: [問題]請問如何用回圈開很多檔
※ 引述《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
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章