Sirve para cortar cadenas de caracteres muy largas (que no contengan espacios) y así evitar que desformen nuestras tablas al, por ejemplo, dejar un mensaje en un foro.
Importante: Hace uso de la función
txt2htm(txt) así que ésta también debe estar presente al momento de usarla.
Código:
<%
Function CortarLargos(a_cortar, Largo, Separador)
arrCadena = Split(a_cortar, " ")
For i = 0 to UBound(arrCadena)
If Len(arrCadena(i)) > Largo Then
Veces = (Len(arrCadena(i)) \ Largo) + 1
For j = 1 To Veces
Tmp = Mid(arrCadena(i),(j*Largo) - (Largo - 1), Largo)
Tmp2 = Tmp2 & Tmp & Separador
Next
Tmp2 = Left(Tmp2, Len(Tmp2) - Len(Separador))
arrCadena(i) = Tmp2
End if
Next
CortarLargos = Join(arrCadena)
CortarLargos = txt2htm(CortarLargos)
End Function
%>
Se la llama así
Código:
<% Response.Write CortarLargos(Fuente_de_datos, "Cantidad_de_caracteres", "separador_usado") %>
En donde:
-
Fuente_de_datos puede ser el campo de una BD, etc.. (variable)
-
Cantidad_de_caracteres es la cantidad máxima de caracteres permitidos para una palabra laaaaargaaaa (numerico)
-
separador_usado será lo que divida la palabra larga que se exceda de
Cantidad_de_caracteres (string)