Troncare le parole troppo lunghe

[puffetto]

Ciao a tutti

Come posso fare x troncare all'interno di un campo memo
le righe che contengono delle parole più lunghe della cella che accoglie il campo stesso?

Mi spiego meglio:
ho un guestbook impaginato con una tabella di 400 pt
succede che i miei utenti scrivano messaggi senza spaziare le parole oppure degli indirizzi web lunghissimi
la lunghezza di questi forzando la tabella mi rovina tutta l'impaginazione.
Quindi avrei la necesità di ritrovare un codice che permetta di
troncare le parole a 390 caratteri inserire un
e far continuare la parola e tutto il resto del messaggio chiaramente

mi potete aiutare?

[supergeniux]

Calcoli la lunghezza ed esegui un ciclo dove se la lunghezza totale e' maggiore di x inserisci un
dove vuoi (puoi usare LEFT e RIGHT) altrimenti lasci tutto come sta!

[puffetto]

saresti così gentile da farmiun esempio pratico?

Ho provato con if else

ma non riesco a coniugare il
e poi far continuare il resto della parola lunga e troncata

[Roby_72]

Se blocchi la larghezza della cella il testo dovrebbe essere forzato a proseguire sotto automaticamente...

Roby

[morphy79]

usa la mia funzione !!!!
La trovi qui :

http://www.aspcode.it/tips/tips.asp?...ow_tip&idx=103

é perfetta !!!

Ciao !!!

[supergeniux]

[morphy79]

??? why ???

è una funzioncina carina !!!

[supergeniux]

mica ho detto qualcosa di male

[puffetto]

forse non ho capito l'utilizzo della funzione
ma la mia necessità è avendo una parola piu lunga della lungh della cella poter inserire uno spazio dopo es: 390 caratteri e far continuare la parola esempio:

uno,due,tre,quattro,cinque,sei,sette,otto,nove,die ci

poterla spezzare con uno spazio in modo da poterla fare andare a capo
così:

uno,due,tre,quattro,cinque,sei, sette,otto,nove,dieci

[morphy79]

<%
'CON QUESTA FUNZIONE VENGONO SUDDVISE LE PAROLE ALL INTERNO DI
'UNA STRINGA PASSATA CHE SUPERANO UN LIMITE MAX DI CARATTERI

Function limitaCaratteri(frase, lunghMax)

estrattoBreve = ""
limitaCaratteri = ""
lunParola = 0

lunFrase = LEN(frase) 
contatore = 1

while lunFrase > 0

estrattoBreve = MID(frase,contatore,1)

if estrattoBreve <> " "
lunParola = lunParola + 1
else
lunParola = 0
end if

if lunParola > lunghMax then
lunParola = 0
limitaCaratteri = limitaCaratteri & "
" & estrattoBreve else
limitaCaratteri = limitaCaratteri & estrattoBreve
end if

lunFrase = lunFrase - 1
contatore = contatore + 1

wend

End Function
%>

Si è leggermente da sistemare... il mio era solo un esempio... qusta è un'altra versione che serve per mandare a capo ogni parola all'interno di una frase... insomma vuole essere solo uno spunto... non una soluzione..