4楼: Originally posted by jiangxingge at 2014-09-10 13:27:34
如果 都是 文本文件，且每行的长度有限。可以做个程序。
character*300 ch
character*4 ccn
open(22,file='polymer.xml')
n=3  ! 有几个文件就改几
do i=1,n
write(ccn,'(i3)') i
filein='polymer'//adjustl ...

for id in `seq 1 6000`
do
  cat polymer$id.xml >> polymer.xml
done

2楼: Originally posted by fish.yfyh at 2014-09-08 23:38:18
在Linux系统下的话，直接用cat命令吧，不用写其他代码实现. 当然如果需要按顺序的话，写个循环

for id in `seq 1 6000`
do
  cat polymer$id.xml >> polymer.xml
done