读取txt文件中指定列的数据

hpa

有一个18627行，15列的txt文件，需读取其中第5，6，7行的数据，如何用read语句实现

hpa

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

subroutine turn(year,mon,day)
  Implicit none
  integer :: y , m , d , t
  open(55,file='ztzl-1.txt')
  Do
    do
    read( 55 , * , ioStat = t ) y , m , d
    if ( t/= 0 ) exit
  End Do
  Close(55)
 
contains
    
  Integer Function DaysInYear( year , mon , day )
    Integer :: year , mon , day
    Integer :: DaysInMonth(12) = [31,28,31,30,31,30,31,31,30,31,30,31]
    if ( ( (MOD(year,4)==0).and.(MOD(year,100)/=0) ) .or. (mod(year,400)==0) ) then
      DaysInMonth(2) = 29
    else
      DaysInMonth(2) = 28
    end if
    DaysInYear = sum( DaysInMonth(:mon-1) ) + day
  End Function DaysInYear
 
End sunroutine turn

如上即为整段函数，读取后还需使用y，m，d进行如下操作

li913

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

 open(55,file='ztzl-1.txt')
  Do i=1,4
    read(55,*)
  End Do
  do i=5,7
    read( 55 , * , ioStat = t ) y , m , d
    if ( t/= 0 ) exit
    !调用函数
  End Do
  Close(55)

hpa

li913 发表于 2020-3-6 12:21
[mw_shl_code=fortran,true] open(55,file='ztzl-1.txt')
  Do i=1,4
    read(55,*)

谢谢您了，我想了挺长时间也没想到这么处理，还是懂的太少了