Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Loops 用Fortran从变量输入文件中读取数据_Loops_Variables_Fortran_Fortran90_Do Loops - Fatal编程技术网

Loops 用Fortran从变量输入文件中读取数据

Loops 用Fortran从变量输入文件中读取数据,loops,variables,fortran,fortran90,do-loops,Loops,Variables,Fortran,Fortran90,Do Loops,我试图从一个输入文件中读取多个文件的数据,然后对每个文件的数据执行某些操作,并将每个输入文件的输出打印到Fortran中的输出 所以是这样的 Open (20, file="a0001.csv) [perform operation on this file] print output0001.txt 输入文件:a0001.csv、a0002.csv、…a0100.csv outputfiles:output1.txt,output2.txt,。。。。output100.txt 我想这样做大约

我试图从一个输入文件中读取多个文件的数据,然后对每个文件的数据执行某些操作,并将每个输入文件的输出打印到Fortran中的输出

所以是这样的

Open (20, file="a0001.csv)
[perform operation on this file]
print output0001.txt
输入文件:a0001.csv、a0002.csv、…a0100.csv

outputfiles:output1.txt,output2.txt,。。。。output100.txt

我想这样做大约100个文件


我在考虑1-100的do循环,但我不知道如何循环变量输入文件,然后获得每个文件的输出。您也可以使用读写语句在数字和字符串表示之间进行转换。所以我会这样做:

character(len=len('a0001.csv')) :: infile
character(len=len('output100.txt')) :: outfile

do i = 1, 100
    write(infile, '("a", I4.4, ".csv")') i
    write(outfile, '("output", I0, ".txt")') i

    open(unit=20, file=infile, status="old", action="read", ...)
    open(unit=30, file=outfile, status="new", action="write", ...)

    !loop over contents of infile, write to outfile

    close(30)
    close(20)
end do

谢谢@chw21,它现在工作得很好。如何将此代码的所有输出打印到一个csv文件?