
29/03/2005, 03:00
|
 | | | Fecha de Ingreso: enero-2005 Ubicación: San Miguel de Basauri, muy cerquita de Bilbo
Mensajes: 42
Antigüedad: 20 años, 3 meses Puntos: 0 | |
Coge los 150 caracteres y comprueva que no terminen en " ",
si termina--->left(cadena,149)
sino--->ve restando hasta que termine en " ",
cuando lo encuentres restale uno mas y lo mismo.
algo hasi...
if len(cadena) < 150 then
Response.Write(cadena)
else
cont = 150
While mid(cadena,cont,1) <> " "
cont = cont - 1
wend
cont = cont - 1
Response.Write(left(cadena,cont) & "...")
end if
Prueba a ver, lo he hecho a batalla y sin comprovar, sera algo hasi.
Espero haberte ayudado. |