Truncar texto en ASP cerrando tags

Tras buscar durante varios días, teniendo que trabajar  con otros asuntos entremedias, he encontrado una función que me ha arreglado bastante el asunto. No me ha dado tiempo a documentarla, pero como me ha servido, la dejo registrada.

function truncateText(txtMessage,intTruncateAt)

Dim lLen, lCtr, sChar, sAns, intSpaceAt

if intTruncateAt<=0 then
intTruncateAt = 32
end if

if len(txtMessage) > intTruncateAt Then
txtMessage = left(txtMessage, intTruncateAt)

lLen = Len(txtMessage)
For lCtr = lLen To 1 Step -1
sChar = Mid(txtMessage, lCtr, 1)
sAns = sAns & sChar
Next
intSpaceAt = instr(sAns, ” “)
intSpaceAt = intTruncateAt – intSpaceAt
txtMessage = left(txtMessage, intSpaceAt)
truncateText = txtMessage & ” (…)”

else
truncateText = txtMessage
end if

end function

Publicado en ASP, Programación web, XHTML. Etiquetas: . Leave a Comment »

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: