1

我正在使用 FORTRAN 从 ASCII 文本文件中读取数据。该文件每行包含多个数据值,但每行值的数量不是恒定的。

101.5 201.6 21.4 2145.5
45.6 21.2
478.5
...

通常在一个 read 语句之后,Fortran 会转到下一行。我想要做的是一次读取一个数据值。如果它到达行尾,它应该继续阅读下一行。这可能吗?

4

1 回答 1

3

正如 IRO-bot 在对您的问题的评论中指出的那样,MSB 已经给出了答案 下面我仅提供了一些代码来说明该答案(因为 MSB 的帖子不包含任何内容):

program test

   character(len=40) :: line
   integer           :: success, i, indx, prev, beginning
   real              :: value

   open(1,file='test.txt')

   do  
      read(1,'(A)',iostat=success) line
      if (success.ne.0) exit

      prev      = 1 
      beginning = 1 

      do i=1,len(line)

         ! is the current character one out of the desired set? (if you
         ! have got negative numbers as well, don't forget to add a '-')
         indx = index('0123456789.', line(i:i))

         ! store value when you have reached a blank (or any other 
         ! non-real number character)
         if (indx.eq.0 .and. prev.gt.0) then
            read(line(beginning:i-1), *) value
            print *, value
         else if (indx.gt.0 .and. prev.eq.0) then
            beginning = i 
         end if

         prev = indx
      end do
   end do

   close(1)

end program test

使用您提供的示例行运行此程序时,输出为

101.5000    
201.6000    
21.40000    
2145.500    
45.60000    
21.20000    
478.5000

我希望你会发现这很有帮助。

于 2011-09-28T08:36:53.927 回答