Question

fortran批量创建文件，输入数据

已经批量创建了point.geo0,point.geo1......point.geo149共150个文件，需要向里面写入数据，每一个开始都是几行描述性头文件，然后有三个dat文件A,B,C，分别是3600x150行，3600x150行，3600行。现在需要将A的前3600行、B的前3600行、C的3600行写入point.geo0,将A的第二个3600行，B的第二个3600行，C的3600行写入point.geo1后面一次类推，所有数据均只有一列。。。。。。。。该怎么实现呢？急求啊，非常感谢

Answer 1

我建议你在程序中采用循环边创建文件，边写入数据，即Open一个文件，读取数据，写入数据，关闭文件，然后下一个。当然在循环之前，打开A、B、C三个文件。刚发现和天河流纹石思路一样。

Answer 2

character(len=80) :: filename,form //文件
integer :: i
do i=1,4000
write(form,*) i
filename="AA"//trim(adjustl(form))//".TXT" //打开文件名
open(10,file=filename)
write(10,*) i
close(10)
end do
stop
end

Answer 3

Program Main
Implicit None
character( Len = 3 ) :: cStr
integer :: i , j
Real :: a , b , c
Open( 11 , File = 'A' )
Open( 12 , File = 'B' )
Open( 13 , File = 'C' )
Do i = 0 , 149
write( cStr , '(i3)' ) i
Open( 20 , File = 'point.geo' // AdjustL(Trim( cStr ) ) )
write( 20 , * ) '描述性头文件'
Do j = 1 , 3600
read( 11 , * ) a
read( 12 , * ) b
read( 13 , * ) c
write( 20 , * ) a , b , c
End Do
Close( 20 )
End Do
End Program Main

追问

写入描述性头文件件时每行开头都有一个空格咋整捏？

追答

write( 20 , * ) '描述性头文件'
改为：
write( 20 , '(a)' ) '描述性头文件'