在运行时将整数转换为字符串以创建输出文件名

Question

在运行时将整数转换为字符串以创建输出文件名

我在Fortran中有一个程序，它将结果保存到一个文件中。现在，我使用

OPEN (1, FILE = 'Output.TXT')

但是，现在我想运行一个循环，并将每次迭代的结果保存到文件中。'Output1.TXT', 'Output2.TXT', 'Output3.TXT'等等。

在Fortran中是否有一种从循环计数器构造文件名的简单方法？i?

Answer 1

您可以写入单元，但也可以写入字符串。program&nbsp;foo &nbsp;&nbsp;&nbsp;&nbsp;character(len=1024)&nbsp;::&nbsp;filename &nbsp;&nbsp;&nbsp;&nbsp;write&nbsp;(filename,&nbsp;"(A5,I2)")&nbsp;"hello",&nbsp;10 &nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;*,&nbsp;trim(filename) end&nbsp;program请注意(这是我刚才提到的第二个技巧)，您也可以通过编程方式构建格式字符串。program&nbsp;foo &nbsp;&nbsp;&nbsp;&nbsp;character(len=1024)&nbsp;::&nbsp;filename &nbsp;&nbsp;&nbsp;&nbsp;character(len=1024)&nbsp;::&nbsp;format_string &nbsp;&nbsp;&nbsp;&nbsp;integer&nbsp;::&nbsp;i &nbsp;&nbsp;&nbsp;&nbsp;do&nbsp;i=1,&nbsp;10 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;(i&nbsp;<&nbsp;10)&nbsp;then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;format_string&nbsp;=&nbsp;"(A5,I1)" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;format_string&nbsp;=&nbsp;"(A5,I2)" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;endif &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;write&nbsp;(filename,format_string)&nbsp;"hello",&nbsp;i &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;*,&nbsp;trim(filename) &nbsp;&nbsp;&nbsp;&nbsp;enddo end&nbsp;program