Utilizza questa funzione
codice:
function TagliaStringa(stringa,charConsentiti,delimitatore)
chars = charConsentiti
'Elimino gli spazi iniziali e finali
str = Trim(stringa)
parolaStralunga = false
'Se la stringa è + lunga del numero di caratteri allora tronca senno non serve
if len(str) > chars then
'Controllo se alla posizione indicata dai caratteri consentiti si trova uno spazio
tmpChar = mid(str,chars-1,1)
while not tmpChar = Chr(32) 'Spazio
'se non lo è controllo il carattere precedente e via via nel loop
chars = chars - 1
tmpChar = mid(str,chars-1,1)
' nel caso credo improbabile che non ci sia nemmeno uno spazio esco dal loop e stampo [CharConsentiti] caratteri
if chars < 0 then
tmpChar = Chr(32)
'parolaStralunga = true
end if
wend
end if
'Se vuota restituisce vuoto
if str = "" then
TagliaStringa = ""
'Se minore dei caratteri consentiti non serve tagliare
elseif len(stringa) <= chars then
TagliaStringa = str
else
'Altrimenti taglia
if chars > 0 then
TagliaStringa = Left(str,chars-1) & delimitatore
else 'nel caso sia un unica parola di [CharConsentiti] caratteri
TagliaStringa = Left(str,charConsentiti-1) & delimitatore
end if
end if
end function
La funzione taglia la stringa inserita come primo parametro alla lunghezza espressa dal secondo parametro ed aggiunge il delimitatore espresso dal 3
esempio:
FraseLunga = "mamma mia come è lunga questa frase sara' meglio che la tagli un pochino senno mi scombina tutto il lauyout del sito?"
Response.Write(TagliaStringa(fraseLunga,50,"..."))
output = "mamma mia come è lunga questa frase sara' meglio ..."
nel tuo caso (ho messo 300 caratteri)
<%=TagliaStringa(testo,300,"...continua")%>
Rispondi quotando
