比如a从1，循环到100。要求输出 00001.txt , 00002.txt , 00003.txt 直到 00100.txt 如下：
character(9) :: cFilename
integer a
Do a = 1 , 100
write( cFilename , '(i05.5,a4)' ) a , '.txt'
Open ( 12 , File = Trim( cFilename ) )
!//写入文件
Close( 12 )
End Do
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024