2楼: Originally posted by lurencyj at 2012-02-19 20:49:02:
嗯，简单。在linux下，使用:
cat -b 你的文件 | grep -v Printing > 新文件
[ 发自手机版 http://muchong.com/3g ]

楼: Originally posted by lurencyj at 2012-02-19 20:49:02:
嗯，简单。在linux下，使用:
cat -b 你的文件 | grep -v Printing > 新文件
[ 发自手机版 http://muchong.com/3g ]

program test
character(len=256) :: line
real :: data

do
   read(*,'(a)') line
   if (index('Printing Grid',line)  /= 0) then
      read(*,*) data
      write(*,*) data
   end if
end do

end program test