字母组识别小程序

program zimuzu

 

character(len=500),allocatable,dimension(:) :: text

character(len=500),dimension(500) :: text1

integer :: i=0,n=0,io=0,j=0,jishu=0

character(len=50) :: filename

write(*,*) "请输入你要读取的文本名称"

read(*,*) filename

open(10,file=filename)

xunhuanduqu: do i=1,500

read(10,"(A500)",iostat=io) text1(i)

if(io/=0)then

exit

end if

n=i

end do xunhuanduqu

allocate(text(n))

print *,"你输入的文本是"

do i=1,n

text(i)=text1(i)

write(*,"(A100)")text(i)

end do

write(*,"(A20,I3,A10)")"你输入的文本一共有",i,"行"

xunhuanpanduan: do i=1,n

    neicengxunhuan: do j=1,len(text(i))-2

    if(text(i)(j:j+2)=="one")then

    write(*,"(A20,I3,A20)") "在你输入的文本的第",i,"行有字母组one"

    jishu=jishu+1

    end if

    end do neicengxunhuan

   

end do xunhuanpanduan

if(jishu==0)then

    write(*,*) "在你输入的文本中没有字母组one"

    end if

end program

!by xudong lee