Como restringir caracteres por linea.

[carlunchos]

Buenas Sres, como puedo hacer para restringir el numero de caracteres por linea que se mostraran por pantalla al levantar de una base access un campo memo?. Lo que pasa es que quiero mostrar el contenido del campo dentro de un <td></td> de una tabla de 70% de anchura, pero si el que ingreso el texto en la base puso todo en una sola linea (en el textarea), al haber muchos caracteres en linea la celda de la tabla se estira deformando el documento a imprimir.
La idea es que si los caracteres llegan hasta el largo de la celda de tabla envie los caracteres sobrantes a la linea de abajo.

Sugerencias?

Saludos.

[3pies]

Con javascript podrías hacer esto (yo lo uso a través de un fichero externo ".js"), poniendo en el HEAD:
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" SRC="loquesea.js"></SCRIPT>, y contendría esto:

<!--
//Validador de formulario
function validacion(formulario) {

//Miramos que no exista ninguna palabra de más de 20 caracteres para que no se deformen las tablas
//primero reemplazamos los saltos de linea por espacios en blanco
var cadenadetexto = document.firmarlibro.comentarios.value;
while (cadenadetexto.search("\n") != -1) {
cadenadetexto = cadenadetexto.replace("\n"," ");
}
//luego descomponemos la cadena en palabras, separadas por espacios en blanco
var matriz = cadenadetexto.split(" ");
//por último controlamos que los elementos de la matriz no superen 20 caracteres
for (i=0; i<matriz.length; i++) {
if (matriz[i].length > 20) {
alert("Escribiste una palabra demasiado larga, en el comentario.\n\nSe trata de esta palabra: "+matriz[i]+"\nLargo de la palabra: "+matriz[i].length+" caracteres.\n\nLa longitud máxima por palabra, no puede superar los 20\ncaracteres.");
firmarlibro.comentarios.focus();
return false;
break;
}
}
-->

luego en el form de enviar el mensaje al foro, al tablón, o a lo que sea, pones:


<FORM onsubmit="return validacion(this)" METHOD="POST" ACTION="firmarlibroonombredetupagina.asp" NAME="firmarlibro">

Desventajas:

Si alguien se baja la página con el formulario a su disco duro, quita el javascript, y en el ACTION pone la dirección de tu web, con esa página asp, te podrán meter textos largosd (el ejemplo es para palabras de +20 caracteres).

Quizás sea mejor hacerlo en asp, aunque no creo que hayan muchos usuarios tan cabroncetes como para hacer eso que te comento.

Salu2

[orharo2003]

Puedes restringir la entrada dese la página del cliente ya sea usando la propiedad maxlength de HTML, o si no desde ASP puedes poner :

mid(ob_rs("campo"),1,numeromaximoamostrardecaracte res)

Suerte!

[lexus]

hola, no recuerdo bien quien coloco est emensaje sorry por los creditos
aqui hay una funcion que te soluciona este problema de deformacion de las tablas.
chao


esta funcion corta palabras muy largas que veces nos dañan la estructura de nuestras tablas

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
--------------------------------------------------------------------------------

Lo que tu deberias hacer es usar esa funcion en un bucle, e ir cortando la cadena desde el caracter ultimo. Es decir, si dices que cortas los 500 primers, desde el uno, asi;
cortarHasta(1, variable, 500)
y luego hacer
cortarHasta(501, variable, 500)
y mas tarde
cortarHasta(1001, variable, 500)
y asi indefinidamente...
Te diria com hacer esto, pero es que ahora estoy un poco espeso, y no se me ocurre mas que esto "


Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = iif(enc>0,left(cadena,enc - 1),cadena)
Else
cortarHasta = cadena
end if
end function

[AlZuwaga]

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)
%>

[carlunchos]

A todos les digo gracias por la soga que me tiran, asi que chequeo cada cuestion y luego les comento.

Saludos.

[Muzztein]

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.

[AlZuwaga]

Gracias por los "piropos a mi código", Muzztein

:p