ASP - Función para cortar una cadena
Función para cortar una cadena de texto hasta donde lo limitemos:
Variables: texto - cadena a cortar (texto - string)
max - Número de carácteres a mostrar (númerico - int)
function cortarcadena (texto,max)
m = 0
Maximo = max ' Tamaño máximo permitido'
cadena = texto
If len ( cadena ) > Maximo Then
cadena2 = Split ( cadena, " " )
cadena = ""
Do While len ( cadena ) + len ( cadena2 ( m ) ) < Maximo
cadena = cadena & " " & cadena2 (m )
m = m + 1
Loop
End if
response.write ( cadena )
end function
(p)Link
Comentarios
Historial
Imprimir
