读数据的问题

云上

我有一个文件，文件行数不定
FFF
AX 11  22  GG  55
AX 67  97  GU  77
DDF
AX 33  66  GF  98
AX 38  87  GR  90
AX 36  60  GF  99
AX 67  97  GU  98
HFL
AX 33  66  GF  98
AX 38  87  GR  90
AX 36  60  GF  99
AX 67  97  GU  98
DDF
AX 33  66  GF  98
AX 36  60  GF  99
AX 67  97  GU  98
HFL
AX 33  66  GF  98
AX 38  87  GR  90
...........
想读出HFL及HFL以下的数据行
形如：
HFL
AX 33  66  GF  98
AX 38  87  GR  90
AX 36  60  GF  99
AX 67  97  GU  98
HFL
AX 33  66  GF  98
AX 38  87  GR  90
...........
HLF
........

云上

十分感谢你！对我很有用！

li913

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

program test 
character(80) sLine
logical IsHFL
integer i 

open(11,file='1.txt')
open(12,file='2.txt')

do 
read(11,'(a)',iostat=i) sLine 
if(i/=0) exit 
if(len_trim(sLine)==3) then 
	if(sline=='HFL') then 
		IsHFL = .true.
	else 
		IsHFL = .false.
	end if 
end if 
if(IsHFL) write(12,'(a)') sLine 
end do 
close(11)
close(12)
end