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
Usuarios que han visto este tema también han visto...
- Inyección SQL en ASP
- Paginar Datos en ASP
- Autenticación basada en formularios con ASP
- Validar usuarios con Sesiones con ASP
- Actualizar un registro existente con ASP
- Versión imprimible de este documento
- Enviar por e-mail este documento
Información legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.