Carissimo Mircov,
nonostante le lunghe ricerche non ho trovato risultati... e ringraziandoti per la tua "pronta" risposta ti comunico che mi sono risolto dal solo il problema.
$r2["testo"] = eregi_replace("(<a[^>]*>)(.{25})(.+)(.{10}</a>)","\\1\\2....\\4",$r2["testo"]);
Grazie
ciao