fortran 读文件

bjer

一级文件

每个一级文件中的二级文件

每个二级文件中的三级文件

有这样一个文件（图1） 里面包括30个文件（图二）而每个图二中的文件夹又分别包括不确定数目的文档（图三）每个文档中的数据格式为（图四）行数不确定  现在要对每个图四的数据进行处理所以想把它存到矩阵里 该如何读取这样的文件啊！！！DO循环？ eof? 怎么写fortran代码 求大家帮忙啦

bjer

问题真是困扰我很久了 哭

四叶草

DO循环， eof判断都需要，数据存矩阵，再用个动态数组，最外层加上批量处理的框架即可

blnuist

每层目录都写为字符串，由外向内层层循环

bjer

四叶草 发表于 2019-3-10 12:02
DO循环， eof判断都需要，数据存矩阵，再用个动态数组，最外层加上批量处理的框架即可

C:\Users\LENOVO\Desktop\1.png
请问这样子对嘛 里面的数据是不是存入了数组a

四叶草

bjer 发表于 2019-3-11 09:52
请问这样子对嘛 里面的数据是不是存入了数组a

图片上传失败了

bjer

四叶草 发表于 2019-3-11 10:10
图片上传失败了

program wetPrf_PWV
    implicit none
    integer i
    integer j=1，n=0
    integer, allocatable :: a(:,:),num(:)
    open(10,file='C:\Users\LENOVO\Desktop\bjer\wetPrf_2010_02')
    do i=1:27
        read(10,*) filename(i)
        open(12,file=filename(i))
        do
          read(12,*,ios=iostat) num(j)
          open(14,file=num(j))
          do while (not(eof(10)))
          read(14,*)
          n=n+1
          end do
          do i=1,n
            read(14,*)(a(i,j),j=1,4)   
          end do
         j=j+1
        if (ios /= 0) exit
        close(14)   
        end do   
    end do
    print*,a(1,1)
    end
   
        
   

四叶草

bjer 发表于 2019-3-11 10:34
program wetPrf_PWV
    implicit none
    integer i

你这个程序肯定要报错，去看看动态数组的用法

bjer

四叶草 发表于 2019-3-11 10:42
你这个程序肯定要报错，去看看动态数组的用法

唔 好的吧 现在FORTRAN的license过期了我先弄弄还得 运行不了

张吉吉

楼主，你程序可以运行了吗？我也有同样的问题