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

本文介绍了一种使用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
上面程序中字符变量FORM、FILENAME充当了内部文件,用来存储临时内容,通过格式化输出,可以对其内容灵活控制。

转载于:https://www.cnblogs.com/fortran/archive/2010/07/25/1784503.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值