Удаление незакрытых тегов

kiruxa_dnp

Новичок
Удаление незакрытых тегов

доброго дня -

у меня есть на сайте набор статей
и я сделал предросмотр для них...

статьи в хтмл формате -
выбираю первые 800 символов и режу по последнему пробелу.

$NewsBody = substr(stripslashes(strip_tags($NewsROW['body'],'<img>')),0,800);
$NewsBody = substr($NewsBody,0,strrpos($NewsBody," "));

возникла проблема когда на границе 800 символов есть рисунок.
тогда его рубит очень криво.

подскажите как оставить только один рисунок из статьи?
 
Сверху