如何循环读取多个文本文件内容

风花雪月

fortran中如何实现循环读取同一路径下的多个文本文件的内容吗？

分为两种情况
1. 文件名有规律
2. 文件名无规律

pengweicai

设要生成4000个文件，文件名为AA1-AA4000，如何写循环生成文件,而不用写4000次write命令呢?

用内部文件：
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   

stop
end

对于没有规律的文件，好像有软件可以修改文件名。最好该成有规律的，这样比较方便。



http://www.programfan.com/club/showbbs.asp?id=102851

风花雪月

对于没有规律的文件，好像有软件可以修改文件名。最好该成有规律的，这样比较方便。

如果不具备修改文件名的条件呢？呵呵

心灯

我提供一个自我认为可行的思路，就是在fortran中调用系统dos命令dir（或者写成一个bat批处理文件），把该文件夹下的文件名写到一个文本文件中，然后从文本文件中依次读取文件名，然后从文件中读取相关数据。
写出代码比较耗时，个人没时间了，只能提供想法。

风花雪月

dos有命令能够将dir返回的数据写入文件？

心灯

dir >a.txt 可以写到a.txt里面去，不过看了一下，txt文件里有头有尾，不只是文件名，哈，不好操作了。 :@(
下面是a.txt里的内容示例：

1. 驱动器 C 中的卷没有标签。
   
2. 卷的序列号是 487C-371C
   
3. 
   
4. C:\Documents and Settings\hitwdh 的目录
   
5. 
   
6. [.]                     [..]                    aa.txt
   
7. config.pro              [Contacts]              [EurekaLog]
   
8. [Favorites]             file.err                file.log
   
9. gsview32.ini            makebst.log             [My Documents]
   
10. PUTTY.RND               SciTE.recent            SciTE.ses
    
11. [tempfiles]             tryhitwdh.eps           trymakebst.bst
    
12. trymakebst.dbj          [WINDOWS]               writer2latex.xml
    
13. _BLOCK.WB4              _PersonalityVert1.WB4   _PersonalityVert2.WB4
    
14. [「开始」菜单]          [桌面]                  
    
15.               16 个文件        565,394 字节
    
16.               10 个目录  2,703,597,568 可用字节

复制代码

风花雪月

原帖由 心灯 于 2007-5-30 19:26 发表

                               
登录/注册后可看大图

dir >a.txt 可以写到a.txt里面去，不过看了一下，txt文件里有头有尾，不只是文件名，哈，不好操作了。 :@(
下面是a.txt里的内容示例：


驱动器 C 中的卷没有标签。
卷的序列号是 487C-371C

C:\Doc ...

对这个文件应该还是能够操作的，不过有点过于复杂

心灯

不知道如何进行操作了...

不知道别的网友有没有什么好的建议或者思路？