岸边的鱼 发表于 2014-4-11 22:15
这个问题记得在群里有人问过，没想到他又到这里来问了，最没想到的是居然可以解决，我也一直想要有这么个功 ...

这个问题baidu就有答案啊 。。。。

这个问题记得在群里有人问过，没想到他又到这里来问了，最没想到的是居然可以解决，我也一直想要有这么个功能的，今天偶然发现，真是太好了

有赖幽趣 发表于 2014-4-3 18:17
[mw_shl_code=fortran,true]integer :: i
    character*80 :: filename
   

不错

[Fortran] 纯文本查看 复制代码

integer :: i
    character*80 :: filename
    
    do i=1,10
        write(filename,FMT='(I6.6,A4)') i,".txt"
        filename=trim(filename)
        open(1,file=filename,status="unknown")
        write(1,*)i
        close(1)
    end do

本站教学模块有文章。字符串的故事