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