completare parola

[nikasil]

ciao, supponiamo che debba visualizzare i primi , ad esempio, 250 caratteri di un testo inserito in un db mysql.

c'è un modo affinchè l'ultima parola non venga troncata?

ciao

[Santino83_02]

oddio cera gente che ha postato script per fare questo, se fai un aricerca magari trovi qualcosa...cmq con una sola funzione nativa, no

[maspar]

Questa funzione fa questo:

'Recupero i primi 150 caratteri
Function Testo_Short(testo, caratteri)
  'convertiamo per sicurezza testo e caratteri
  strTesto= CStr(testo)
  intCaratteri = CInt(caratteri)
 
  'controlliamo che la lunghezza del testo sia maggiore di 0
  If Len(strTesto) > 0 Then
   
    'controlliamo che la lunghezza del testo sia maggiore del numero
    'di caratteri da estrarre
    If Len(strTesto) > intCaratteri Then
     
      'controlliamo che l'ultimo spazio sia in posizione maggiore
      'del numero di caratteri da estrarre
      If InStrRev(strTesto, " ") > intCaratteri Then
        'estraiamo il Testo ed aggiungiamo i puntini
        Testo_Short = Left(strTesto, InStr(intCaratteri , strTesto, " ")) & "..."

      Else
        Testo_Short = strTesto & "..."
      End If

    Else
      Testo_Short = strTesto & "..."
    End If

  End If

End Function

Richiami la funzione così:

<%=Testo_Short(RS("CampoDb"),150)%>

[nikasil]

ok grazie mille!

ora provo

[nikasil]

funziona da 10.....grazie mille