Mostrando cadena demasiado larga....Ayuda please??

[cokete]

Hola que tal, ya estoy aqui denuevo... Tengo una tabla en la que un campo de un registro es de tipo memo y es larguisimo. Necesito mostrarlo en una pagina al ser tan largo se me descuadra todo, he utilizado esta sentencia que es fantastica y cuando hay un retorno de carro en la cadena se cambia de linea, pero aun asi es insuficiente.

strInterior=Replace(Snap.Fields("interior") &" ",VbCrLf,"<br>")

He probado a acortar la longitud de la caja de texto en el formulario donde es introducida esta informacion pero me baja de linea y cuando veo el resultado sigue metiendome el retorno de carro ene l caracter numero 100 mas o menos, y yo lo nocesito en el 50 o asi. Estoy seguro que hay alguna propiedad de la caja de texto en HTML q al llegar a los 50 caracterres de la linea automaticaente me mete un retorno de carro. Seguramente la solucion este en alguna funcion en ASP.

De todas maneras seguramente en ASP se podra hacer algo similar.... Bueno a ver si alguien me puede echar una mano. Muchas Gracias.

[AlZuwaga]

No te entiendo... ¿en donde lo querés mostrar? ¿En el cuerpo de la página o en una "caja de texto" -y si es ésta última, qué tipo de "caja de texto".. textarea o input type text-?

[cokete]

Tengo la cadena en StrInterior, todo el texto metido ya, sacado de un campo de un registro de una tabla.

Y lo muestro en una celda.. <td...><%=StrInterior%></td>

previamente he hecho lo siguiente:

strInterior=Replace(Snap.Fields("interior") &" ",VbCrLf,"<br>")

para que por cada retorno me pase de lenea.... pero ya digo que es insuficiente, que cada 50 caracteres mas o menos quiero que se pase a otra linea....

[u_goldman]

A ver si esto funciona:

Código:

var = cadena_original
strInterior = ""

For i = 0 to (len(var)/5)
  If i = 0 Then
    strInterior = strInterior & mid(var, 1, 50) & "<br>"
  Else
    strInterior = strInterior & mid(var, i * 50, 50) & "<br>"
  End If
Next

Salu2,