Diciamo che hai una form con un campo che si chiama "testo". Nella pagina successiva fai una cosa del genere:
testo = request("testo")
arrayParole = split(testo, " ")
testoCorretto = ""
for i=0 to ubound(arrayParole)
if Len(arrayParole(i)) > 30 then ' <----- ho messo il limite a 30 caratteri
testoCorretto = testoCorretto & Left(arrayParole(i), 30) & "## "
else
testoCorretto = testoCorretto & arrayParole(i) & " "
end if
next
Nota che in questo caso, se la parola e' piu' lunga di 30 caratteri, ne mostri solo 30 + "##". Se invece la volessi spezzare in due pezzi, il primo di 30 caratteri ed il secondo dei restanti, fai cosi:
...
if Len(arrayParole(i)) > 30 then ' <----- ho messo il limite a 30 caratteri
testoCorretto = testoCorretto & Left(arrayParole(i), 30) & " " & Mid(arrayParole(i), 31) & " "
else
...
Nota ancora che in questo caso non c'e' un controllo che la parte restante della parola spezzata sia ancora piu' lunga di 30 caratteri (sta a te saperlo se puo' succedere...). Nel caso vuoi essere proprio tranquillo, fai in questo modo:
...
if Len(arrayParole(i)) > 30 then ' <----- ho messo il limite a 30 caratteri
parolaLunga = arrayParole(i)
do while Len(parolaLunga) > 30
testoCorretto = testoCorretto & Left(parolaLunga, 30) & " "
parolaLunga = Mid(parolaLunga, 31)
loop
testoCorretto = testoCorretto & Left(parolaLunga, 30) & " "
else
...
Ciao
Alex
