Spezzare parole troppo lunghe

[shineone]

Ho fatto una breve ricerca senza trovare alcun risultato in questo forum.
Dunque, per il mio sito sto realizzando un sistema di commenti alle news e mi sono accorto che quando un visitatore inserisce una parola lunghissima senza spazi (tipo "ciaooooooooooooooooooooooooooooooooooooooo"), una volta che vado poi a stamparlo a video estraendo il testo dal database mi sballa completamente il layout della pagina.
Esiste un modo per far sì che le parole così lunghe vengano spezzettate andando a capo oppure inserendo uno spazio dopo tot caratteri?
Ho notato che questo è un problema comune a molti blog/forum, sarebbe interessante trovare una soluzione.
Ciao e grazie

 

[lukeonweb]

Vedi come adattarlo...

<%
Dim stringa, arr_str, i
stringa = "Frase con una parolaaaaaaaaaaaaaaa troppo lunga"
arr_str = Split(stringa, " ")
i = 0
For i = 0 To UBound(arr_str)
If Len(arr_str(i)) > 10 Then
Response.Write Left(arr_str(i), 10) & " "
Else
Response.Write arr_str(i) & " "
End If
Next
%>

In sostanza se trova una parola maggiore di 10 caratteri la taglia mostrando solo i primi 10.

 

[shineone]

ottimo, stasera provo :fonzie:

 

[shineone]

questo è lo script adattato alle mie esigenze, magari può tornare utila anche ad altri:

<%
dim stringa, arr_str, i, record
stringa = request("testo")
arr_str = split(stringa, " ")
i = 0
for i = 0 to UBound(arr_str)
if Len(arr_str(i)) > 50 then
record = record & Left(arr_str(i), 50) & " "
else
record = record & arr_str(i) & " "
end if
next

Rs("Testo")=record
%>

Naturalmente la mia esigenza era quella di spezzettare le parole troppo lunghe e poi salvarle nel campo "Testo" di un DB

 

[daviduccio]

Rs("Testo")=record
%>

 

[Dusy]

Sí...sono quelle pennellate stilose da artista...

 

[daviduccio]

Muhahahahahahaha bella questa Dusy!

 

[shineone]

spiegate anche a me voi che possedete la conoscenza..