Ayuda !! Romper texto cada 50 caracteres

[u_goldman]

Trata algo así, no lo probé, así que no me insultes si no funciona, la idea general es construir un arreglo a partir de la cadena proporcionada usando como separadores los espacios de dicha cadena.

- Iteras el arreglo
- Por cada iteración guardas en una variable temporal la palabra contenida en el índice de tu arreglo, si la longitud de tu variable temporal no es superior a 50 caracteres.
- Si es superior a 50 caracteres, entonces le pones el salto de linea y te sales del ciclo.

Código ASP:

<&#37;
Dim cadena
Dim arr
Dim temp
Dim caracteres
Dim i
 
caracteres = 50
 
cadena = "El ácido acetilsalicílico se administra principalmente _
por vía oral, aunque también existe para uso rectal _
y como terapia intravenosa. Los comprimidos de aspirina _
para administración oral se hidrolizan con facilidad _
cuando se ven expuestos al agua o aire húmedo, de modo _
que deben permanecer almacenados en sus envoltorios _
hasta el momento de su administración"
 
arr = split(cadena, " ")
 
for i = 0 to uBound(arr)
   if len(temp) <= caracteres then
       temp = temp & arr(i) & " "
   else
       temp = temp & "<br>"
       exit for
   end if
next
 
Response.Write(temp)
%>
 

Saludos