Fortran Coder

标题: 读数据的问题 [打印本页]

作者: 云上 时间: 2015-5-14 15:51
标题: 读数据的问题
我有一个文件，文件行数不定
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 时间: 2015-5-14 20:46

[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

作者: 云上 时间: 2015-5-14 22:01
十分感谢你！对我很有用！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)