fortran读取有缺失的数据问题

li913

把你的数据上传，只需要57418行前后几行的数据就行。

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

DO i = 1,row
if(i<57418) then
READ(3,*) data_read(i,:)
else
READ(3,*) data_read(i,7:)
end if
END DO

li913

看起来你的文件中数据是以tab分隔的，你可以用excel打开数据，检查一下是否有误，然后另存为csv格式。读取csv格式就方便了。

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

program test
  implicit none
  integer i
  INTEGER, PARAMETER      ::row=11,col=212
  character(40) dat(col-6, row)
  dat = 'undefined'
  open(10,file='1.csv')
  read(10,*)
  do i = 1, row
    read(10,*) dat(:,i)
  end do
  close(10)
end program

li913

daydaycode 发表于 2020-3-25 13:47
十分感谢，现在问题解决了。请问，像这种情况只能把txt转成csv吗，还有别的方法吗？ ...

有的，更麻烦。读取整行，以tab为分隔符，将一行分为多个记录，存入数组。