visualizzare una parte di testo

[puddu]

Salve a tutti.

Ho una variabile $testo (non presente in un database) di cui vorrei visualizzare solo una piccola parte parte come incipit.

La cosa di per sè non è complicata, ma io avrei bisogno che la stringa stampata si concludesse solo quando arriva il primo punto (.) presente dopo un numero minimo di caratteri da visualizzare (da me impostato). Non so se sono stato molto chiaro.

Cmq qualche tempo fa, spulciando questo forum, ho trovato il codice inserito da un utente (non ricordo il suo nick) che funzionava proprio come voglio io. Ho dovuto apportarvi qualche modifica per adattarlo alle mie esigenze, ma purtroppo non funziona.

Ecco il codice:

    $Testo1 = $testo;      // Dentro questa variabile metto la variabile $testo
    $CharPg = 100;        // caratteri minimi da stampare.
    if (!$Beg) $Beg = 0;
    $Act = "Start";
    while ($Act!="Stop") {
     $Point = 0;
     $Char = $CharPg+$Beg;
     if ($Char<strlen($Testo1)) {
      $Target = $Char+$Point;
      while ($Testo1[$Target]!=", ") {
       $Point++;
       $Target = $Char+$Point;
      }
      $Point++;
     }
     $offSet = $CharPg+$Point;
     $Finale = $Char+$Point;
     if (($Finale+3069)>=strlen($Testo1)) {
      $Finale = strlen($Testo1);
      $offSet = $Finale - $Beg;
      $Act = "Stop";
     }
     $arTesto = substr($Testo1,$Beg,$offSet);
     $Beg = $Finale;
    }
    $anteprima = $arTesto; 

... la variabile $anteprima sarebbe poi inserita in un apposito campo del db.

Come detto prima, purtroppo il tutto non funge in quanto come anteprima mi viene preso il testo completo.

Qualcuno di voi sa dirmi dove sbaglio?

Grazie anticipatamente.