28/10/2003, 13:31
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| Qué tal algo así:
<%
variable= "En un lugar cuyo nombre no quiero acordarme"
arrPalabra= split(variable, " ")
contar_caracter=0
maximo_numero= 30
mi_frase= ""
For i=0 to uBound(arrPalabra)
contar_caracter= contar_caracter + len(arrPalabra(i))
If not contar_caracter > maximo_numero Then
mi_frase= mi_frase & " " & arrPalabra(i)
Else
Exit For
End If
Next
Response.Write(mi_frase & "...")
%>
No lo he probado pero debería de funcionar
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |