ASP – Troncare una stringa senza troncare le parole

<% Function limitaCaratteri(frase, lunghMax) dimMax = LEN(frase) if dimMax > lunghMax then estrattoBreve = “” ultimoCarattere = “a” contatore = lunghMax while ultimoCarattere <> ” “ estrattoBreve = LEFT(frase,contatore) ultimoCarattere = RIGHT(estrattoBreve,1) contatore = contatore – 1 if contatore = 0 then ultimoCarattere = ” “ end if wend if contatore <> 0 then estrattoBreve = LEFT(frase,contatore) & “…” else … Continua a leggere