Troncare il testo senza troncare le parole

[mereo001]

Ciao a tutti:

Sto cercando uno script asp che mi permetta di troncare un testo preso da un database cosi da poter rinviare i miei utenti presso la pagina col testo completo.

Il problema di alcuni script che ho trovato in giro è che troncano anche le parole cosicché mi accade questo:

"Raggiungere una coesistenza pacifica tra uomini ed elefanti nello Zambia (Africa) è alquanto diffici "
-->(+ link all'articolo completo )


lo script che ho trovato in questa sezione :
<%
a=1
testomax = 0
for a = 1 to 100
response.write(Mid(stringa,a,testomax+1))
if Mid(testo,a,testomax+1)=" " then
if a > 90 then
response.write(Mid(stringa,a,testomax+1))
exit for
else
response.write ("ciao")
end if
end if
next
%>

tronca le parole..

Qualcuno mi sa aiutare? Sappiamo troncare il testo senza troncare le parole?

Grazie

[michele.santoro]

Questo è preso dal sito di byluciani.com e fà quello che vuoi tu:

<%
sText = "Questa è la stringa da troncare"
iMaxChar = 23
sResult = sText
If Len(sResult) > iMaxChar Then  
If InStr(iMaxChar, sResult, " ") > 0 Then    
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")) & "..."  
    End If
End If
Response.Write sText & "
" & sResult
%>

[Luca1317]

lo script di byliciani è ottimo ma presenta un problema:

tra la parola finale e i puntini sospensivi c'è un fastidioso spazio es.: parola1 parola2 ...

come faccio ad eliminare quello spazio?

[wallrider]

prova così

<%
sText = "Questa è la stringa da troncare"
iMaxChar = 23
sResult = sText
If Len(sResult) > iMaxChar Then  
If InStr(iMaxChar, sResult, " ") > 0 Then    
sResult = Left(sResult, InStr(iMaxChar, sResult, " ")-1) & "..."  
    End If
End If
Response.Write sText & "
" & sResult
%>

[Luca1317]

perfetto


grazie 1000