如何用fortran将一个文件的内容全部靠到另一个文件中

huahua2005

不知文件本身是什么格式，如果是TXT或DAT 格式，可用字符将内容拷过来
如果是其它格式，我也不太清楚能否用FORTRAN 拷过来，下面是我编的一个程序，你可以试用看看。
      program main
;    L为该文件内每行的字符数
  character*1 a (L)
      open(1,file='newname.txt')
      open(2,file='oldname.txt',status='old')
；    m为该文件的行数
  m=100
  do 1 i=1,m
  read(2,100)a
  write(1,101)a
    1 continue
100  format(La1)
101  format(1x,La1)
  end

加分鼓励一哈

huahua2005

原来楼主的新文件内已有内容了，那就要加一些控制指针的语句了，我已经不太记得了，只能教你下面这个笨方法了！

     program main
c    n为旧文件内每行的字符数L为新文件内的每行字符数
  character*1 a(N),B(L)
      open(1,file='NEWNAME.txt',STATUS='OLD')
      open(2,file='OLDNAME.txt',status='old')
c    m为旧文件的行数LL为新文件内原文件的行数
  m=20
  LL=20
  DO 2 I=1,LL
2  READ(1,102)B
  do 1 i=1,m
  read(2,100)a
  write(1,101)a
    1 continue
100  format(Na1)
101  format(1x,Na1)
102  format(LA1)
  end

huahua2005

:-D开心！谢yp51920

yp51920

不用，有付出就有收获！谢谢关心论坛

苍山负雪

huahua2005 wrote:
原来楼主的新文件内已有内容了，那就要加一些控制指针的语句了，我已经不太记得了，只能教你下面这个笨方法了！

      open(2,file='OLDNAME.txt',status='old')

open(2,file='OLDNAME.txt',position='APPEND')

可以定位到文件最后