15/09/2004, 10:03
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Acá te paso otro código:
<%
Cadena = "la siguiente es un palabra larga: AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA (que el foro la corta aplicando algo similar a esto :p)"
' Cantidad de caracteres permitidos
Largo = 25
' Separador utilizado
Separador = "_ "
arrCadena = Split(Cadena, " ")
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
Response.Write Join(arrCadena)
%>
__________________
...___... |