サンプル: 連番の名前をつけたファイルを出力する

戻る

実行するとこのように連番の名前をつけたファイルが出力されます。

コード

renban.f

Chara.f と合わせてコンパイルしてください。

c Renban.f

      character*20 fname1, fname2
      character*10 ia
      character*100 fname
      character*100 text
      integer lg1,lg2
      integer i
      data fname1/'file'/,fname2/'.txt'/
      
      call ALGGN(fname1,lg1)
      call ALGGN(fname2,lg2)
      do 100 i=1,15
        call ITOAGN(i,ia,ilg)
        fname = ' '
        fname(1           :lg1      )=fname1(1:lg1)
        fname(lg1+1       :lg1+3    )='000'
        fname(lg1+3-ilg+1 :lg1+3    )=ia(1:ilg)
        fname(lg1+3+1     :lg1+3+lg2)=fname2(1:lg2)
        open( 20 , file=fname(1:lg1+3+lg2) )
ccc
        text = 'Hello, world!'
        call WRFILE(20,text)
ccc
        close(20,status='keep')
 100  continue
      stop
      end

戻る

© 2007 TAKAGI-1