Question

fortran 批量复制每个文件只写最后一行

program shengcheng
implicit none
character(len=80) :: filename,form
character(len=120),dimension(352)::B
integer :: i,j
open(20,file="D:\CN000001.gsx")
do j=1,352
read(20,"(A120)") B(j)
do i=1,486
select case (i)
case (1:9)
write(form,'(i1)') i
write(filename,*) "D:\spatial\a\CN00",trim(form),".gsx"
open(10,file=filename)
write(10,"(A120)") B(j)
case (10:99)
write(form,'(i2)') i
write(filename,*) "D:\spatial\a\CN0",trim(form),".gsx"
open(10,file=filename)
write(10,"(A120)") B(j)
case (100:486)
write(form,'(i3)') i
write(filename,*) "D:\spatial\a\CN",trim(form),".gsx"
open(10,file=filename)
write(10,"(A120)") B(j)
end select
close(10)
end do
end do
end

Answer 1

D:\CN000001.gsx
文件中有 352 行。你确定要的把每一行都复制一遍到486个文件中？而且下一次都是替换掉原来的文件？？

这样做的意义何在呢？

我认为完全跟只把最后一行复制到486个文件中一样，只复制 486 次，而不需要复制 352 * 486 次。

追问

不是啊我想全读进去，不知道那地方不对

追答

那你为啥不直接用复制文件的方法呢？

system( 'copy 源文件 新文件' )