Cita:
Iniciado por Al Zuwaga 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)
%>
de todas las soluciones propuestas esta fue la que mas me gusto, por ser la mas elegante.
Saludos.
