Program Main
Implicit None
Character(len=1024) :: c
integer :: k
Open(12,File="文件名.csv")
Open(13,File="输出文件名.csv")
Do
Read(12,'(a1024)',iostat=k) c
if( k /= 0 ) exit
if( index( c , '2017/3' ) > 0 ) write(13,'(a)') trim(c)
End Do
Close(12)
End Program Main