Ayuda !! Romper texto cada 50 caracteres

[jorge1644]

Hola tengo esto este texto Y ME ESTOY DESESPERANDO... POR FAVOR AYUDA

"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. "


QUIERO QUE CADA 50 CARACTERES SE ROMPA LA LINEA (SIN CORTAR UNA PALABRA CON UN <BR>

DEBERIA QUEDAR POR LO TANTO ASI
"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"

COMO LO PUEDO HACER ???


MIL GRACIAS!

[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

[jorge1644]

Gracias por la ayuda !!!

Pero solo me da como respuesta....

"El ácido acetilsalicílico se administra principalmente"

EL resto del texto no lo muestra ... alguna sugerencia?

[Myakire]

Claramente ese código tiene un error de lógica, y solo por que u_goldman lo advirtió sino era digno de ser insultado ()

Mi sugerencia es que hagas una prueba de escritorio, detectes el error y lo corrijas, la verdad es que cuando no se ven ganas de la otra parte de hacer las cosas, no motiva a resolverles el problema.

[u_goldman]

La verdad es que no leí bien el requerimiento...pensé que lo que pretendías era truncar el texto hasta 50 caracteres, perdon.


Sacale el exit for al ciclo:

Código ASP:

for i = 0 to uBound(arr)
   if len(temp) <= caracteres then
       temp = temp & arr(i) & " "
   else
       temp = temp & "<br>"
   end if
next
 

A ver si eso si funciona.

Saludos

[jorge1644]

Hola!! ... sigue sin funcionar ....

me sale solamentente "El ácido acetilsalicílico se administra principalmente"
el resto de la frase no la escribe

[u_goldman]

Esta bien, me vas a obligar a probarlo

Probando....

Edit: Ok, así quedó, fíjate si te sirve:

Código ASP:

<&#37;
Dim cadena
Dim arr
Dim temp
Dim caracteres
Dim cadenaFinal
Dim agregaCaracter
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)
    temp = temp & arr(i)
    if len(temp) <= caracteres then
        agregaCaracter =  " "
    else
        agregaCaracter = "<br>"
        temp = ""
    end if
    cadenaFinal = cadenaFinal & arr(i) & agregaCaracter
next
 
Response.Write(cadenaFinal)
%>
 

Saludos

[Myakire]

Iniciado por u_goldman

Esta bien, me vas a obligar a probarlo

Dice un dicho méxicano: No tiene la culpa el índio, sino quien lo hace compadre

[jorge1644]

Gracias! Ahora si funciona !!! :)

[akmadrid]

Iniciado por myakire

dice un dicho méxicano: no tiene la culpa el índio, sino quien lo hace compadre

+1

[Adler]

Hola

Ya sé que está solucionado pero mientra leía este post se me ocurrido esta otra manera. Es usando expresiones regulares

Código ASP:

strl = ""
str = "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"
 
Set objRegExp = new RegExp
With objRegExp
.Pattern ="([\wáéíóúÁÉÍÓÚñÑ\s\.,]{50}\b)"
.IgnoreCase = True
.Global = True
End With
strl = strl & objRegExp.replace(str, "$1<br />")
Set objRegExp = nothing
 
Response.Write strl