Fortran的点点滴滴——批量生成文件

最新推荐文章于 2023-06-13 19:01:31 发布

weixin_30765475

最新推荐文章于 2023-06-13 19:01:31 发布

阅读量519

点赞数 1

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/fortran/archive/2010/07/25/1784503.html

本文介绍了一种使用Fortran编程语言批量生成文件的方法。通过内部文件和循环结构，能够自动生成从AA1到AA4000的文件名，并为每个文件添加对应的编号内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

　　设要生成4000个文件，文件名为AA1-AA4000，如何写循环生成文件,而不用写4000次write命令呢?!这时可以用内部文件来实现该功能：

PROGRAM MAIN
  CHARACTER(LEN=80) :: FILENAME,FORM
  INTEGER :: I
  DO I=1,4000
    SELECT CASE (I)
    CASE (1:9)
      WRITE(FORM,'(I1)') I
    CASE (10:99)
      WRITE(FORM,'(I2)') I
    CASE (100:999)
      WRITE(FORM,'(I3)') I
    CASE (1000:9999)
      WRITE(FORM,'(I4)') I
    END SELECT
    WRITE(FILENAME,*) "AA",TRIM(FORM),".TXT"
    OPEN(10,FILE=FILENAME)
    WRITE(10,*) I
    CLOSE(10)
  END DO
END PROGRAM