fortran数据读入问题

黑夜的北极星

文件中的数据是规则的，每列数据之间的间隔是空格，但是其间存在多个空格，这样会不会导致fortran不能读入，求助如何读入这样的数据，导出的结果如下图

黑夜的北极星

这是我自己写的一个程序，但是读入好像有问题
character(len=100) :: strFileName,a,b,c,d,e,f
integer :: intIO
integer :: l,i,j=1,k
real, dimension (216,7) :: out
open(11,file='filelist.txt',status='old')
Open(12,file='out.txt')
do l=1,24
     read(11,*,iostat=intIO) strFileName
     if(intIO/=0) exit
     open(unit=13,file=strFileName,status='old')
   do i=1,670
           if((i.ge.139).and.(i.le.147))then
   
              read(13 ,*) a,b,c,out(j,:),d,e,f
                  write(*,*)out(j,:)
           j=j+1
           endif
   enddo
         close(unit=13)
enddo

Do k=1,216
  write(12,*) out(k,:)
End Do
Close( 12 )

end

zzhlrj

再仔细推敲推敲。看起来不复杂

lqouc

多个空格一般不影响读取。
程序有什么问题？报错给出来。这样别人不好帮助你。

黑夜的北极星

zzhlrj 发表于 2015-8-7 15:54
再仔细推敲推敲。看起来不复杂

主要是读入问题，貌似每列之间的多个空格也会被读入，导致不能正常读入每列的数据，这是我不知道怎么改的地方

lqouc

字符串abc设置100位的可能有问题。这里直接弄一个字符串就行，至于多少位可以手动数一下，能够到那个'A'就行了。

黑夜的北极星

lqouc 发表于 2015-8-7 16:13
字符串abc设置100位的可能有问题。这里直接弄一个字符串就行，至于多少位可以手动数一下，能够到那个'A'就 ...

程序运行没有问题，只是结果不是我需要的；如果手动数一下的话因为第一二列的汉字数不一样，一个汉字占三个字符，那每列到A的字符数都不一样啊

lqouc

黑夜的北极星 发表于 2015-8-7 16:23
程序运行没有问题，只是结果不是我需要的；如果手动数一下的话因为第一二列的汉字数不一样，一个汉字占三 ...

这样的话你就每行用一个超长的字符串读取所有信息，然后用index函数定位'A'的位置(函数用法自己查一下)，A之后的六个数据都是可以通过数位数来判断了吧，截取字符串之后read转换一下就行了。
虽然麻烦但是暂时只想到这个。

黑夜的北极星

lqouc 发表于 2015-8-7 16:29
这样的话你就每行用一个超长的字符串读取所有信息，然后用index函数定位'A'的位置(函数用法自己查一下)， ...

哦，好吧，我先试试看吧

黑夜的北极星

lqouc 发表于 2015-8-7 16:00
多个空格一般不影响读取。
程序有什么问题？报错给出来。这样别人不好帮助你。

对了，想问一下，多个空格既然不影响读入数据，那我写的程序应该可以读入啊，怎么读入后的结果错了呢，输出的结果是这样的