En esta ocasión vamos a ver cómo cortar un texto para reducirlo pero sin cortar la última palabra del texto reducido, de esta manera, podemos conseguir una vista prévia de una noticia o un artículo...

La forma de hacerlo será la misma, cortamos el texto por los espacios y lo reconstruimos añadiendo una palabra siempre y cuando no supere el tamaño permitido:

<%
i = 0
Maximo = 50       ' Tamaño máximo permitido
Cadena = "Este es el texto que se cortará para que no ocupe más de 50 carácteres"
If len ( Cadena ) > Maximo Then
    Cadena2 = Split ( Cadena, " " )
    Cadena = ""
    Do While len ( Cadena ) + len ( Cadena2 ( i ) ) < Maximo
       Cadena = Cadena & " " & Cadena2 ( i )
       i = i + 1
    Loop
End if
response.write ( Cadena )
%>

Si la cadena inicial supera el número máximo de carácteres, usamos la función split que nos creará un vector a partir de cortar una cadena dada a partir de un caracter señalado, también usamos la funcion len que nos devuelve el tamaño de una cadena de texto.

Artículo por cortesía de Eloi de San Martín
www.programacionweb.net