对从读取出来字符串中特定部分判断

言深深

顶楼上，情何以堪堪堪堪堪堪堪堪堪堪堪堪堪堪·······

试试if（）吧

wutongyu

mofangbao 发表于 2012-11-11 18:57

                               
登录/注册后可看大图

楼主的语法从哪里学的？你知道do while 为啥贴的图里面只有while？？好好看fortran的语法吧，你这种问题说实 ...

版主，不好意思，麻烦你一下，你看，我想从第一行顺序读取，查找到某一行的第61到73之间的字符为END OF HEADER，从这行之后，写入到一个新文件里面去，由于每天的格式不一样，只知道此行不能大于100，下面是我琢磨的程序，可是每次结果都是无法匹配，程序和文件如下，求指点一下[img]C:\Documents and Settings\Administrator\桌面C:\Documents and Settings\Administrator\桌面[/img]

wutongyu

C:\Documents and Settings\Administrator\桌面

wutongyu

为嘛图片都裂开了

wutongyu

open(unit=inputfileid,file=inputfile,status="old")
do i=1,100
read(inputfileid,"(A200)",iostat=error)kaitou
if(kaitou(61:73)=="END OF HEADER")then


open(unit=inputfileid,file=inputfile,status="old")
open(unit=outputfileid,file=outputfile,status="replace")
do while(.true.)
read(inputfileid,"(A200)",iostat=error)buffer
if(error/=0)exit
write(outputfileid,"(A)")trim(buffer)
end do
close(inputfileid)
close(outputfileid)
!end do
else
write(*,*)"没有匹配"
end if

end do
end do
stop
end program

wutongyu

下面是文件的一段
DIFFERENTIAL CODE BIASES                                    END OF AUX DATA     
                                                                           END OF HEADER      
     1                                                                    START OF TEC MAP