Consejo sobre formateo campo memo

[almaluz]

Tengo un pequeño problema :(

Obtengo en la consulta a la base de datos campos memo muy muy largos, suficientes como para llenar tres o cuatro páginas "normales", sabeis algun "truquillo de maestros" para dividir esto en varias páginas?, sin dividir el articulo en registros distintos claro. Me interesa que siga siendo un solo registro en la base de datos ;)

Saludos.

[ariben]

mira te trata esto te puede servir
<form name="form2" method="post" action="">
<textarea name="memo" cols="30" rows="3"></textarea>
</form>
donde cols=30 es el numero de caractewres por linea y rows el numero de lineas asi ira cortando cada 30caracteres y pasara a la otra linea.
espero que te sirva

[almaluz]

Creo que lo que busco es justamente lo opuesto.
Los datos ya los tengo en una base de datos, por lo que no he de rellenar ningun formulario, el problema lo tengo al consultar la base de datos, que uno de los campos que me devuelve tiene muchas lineas por lo que es muy pesado de leer en una sola página, Ya sabeis, lineas y lineas de solo texto que nadie leerá ;) a no ser que esté muy interesado en el tema.

Busco algun truquillo para hacerlo mas agradable a la lectura :P

Gracias amig@ por tu respuesta :) :)

[zangano]

Hace tiempo inútil me paso este codigo y funciona muy bien..

<cita>


Intenta con este código. Cámbiale el valor a las variables "strCampoMemo" y "limite" según tus necesidades.

limite = cantidad de PALABRAS a desplegar por página.

<%
strCampoMemo = rs("CampoMemo")
limite = 500
longitud = len(strCampoMemo)
parrafo = ""
palabras = split(strCampoMemo," ")
contador = 0
j = 0
for each elemento in palabras
parrafo = parrafo & elemento & " "
contador = contador + 1
if contador = limite then
j = j + 1 %>
<a href="prueba.asp?texto=<%=parrafo%>&quo t;><%=j%></a>
<%
contador = 0
parrafo = ""
end if
next
if contador<>limite and contador<>0 then
j = j + 1
%>
<a href="prueba?texto=<%=parrafo%>"&g t;<%=j%></a>
<% end if %>
%>

El código te va a formar los links con una variable de 500 palabras cada link.
La recoges con Request.QueryString donde la quieras desplegar.

</cita>

[zangano]

Le dije que no me latía el texto en la barra de dir, por lo que el mismo lo cambio para..bah, te pongo el mensaje tal cual


<mensaje>

Si no quieres que salga el texto en la barra de direcciones, no lo pases en el href.
Mejor crea un campo hidden por cada 500 palabras.
Lo único que cambia es lo que está con negritas y quedaría así:


<%
strCampoMemo = rs("CampoMemo")
limite = 500
longitud = len(strCampoMemo)
parrafo = ""
palabras = split(strCampoMemo," ")
contador = 0
j = 0
for each elemento in palabras
parrafo = parrafo & elemento & " "
contador = contador + 1
if contador = limite then
j = j + 1 %>
<a href="prueba.asp?id=<%=j%>">&lt ;%=j%></a>
<input type="hidden" name="hdnParrafo<%=j%>" value="<%=parrafo%>">
<%
contador = 0
parrafo = ""
end if
next
if contador<>limite and contador<>0 then
j = j + 1
%>
<a href="prueba.asp?id=<%=j%>">&lt ;%=j%></a>
<input type="hidden" name="hdnParrafo<%=j%>" value="<%=parrafo%>">
<% end if %>
%>

Si te fijas, ahora se le pasa una variable "id" en la URL, para identificar el nombre del campo hidden.
Recoges el valor así:

<%
id = Request.QueryString("id")
if id<>"" then
texto = Request.Form("hdnParrafo"&id)
Response.Write texto
end if
%>


</mensaje>

[zangano]

La neta a mi con el hidden no me funciono, pero igual volvi a preguntar y he aquí la respuesta..

<mensaje>
El texto tienes que obtenerlo en otra página o en la misma, al hacer click en un link.

<%
id = Request.QueryString("id")
if id<>"" then
texto = Request.Form("hdnParrafo"&id)
Response.Write texto
end if
%>

Prueba en lugar del Request.Form("hdnParrafo"&id) nadamás con Request("hdnParrafo"&id)

</mensaje>

[zangano]

Jeje, haber si no te confundí, pero la respuestas eran buenas y el mendigo buscador de este sitio no sirve¡¡¡¡


....ya no seguí intentando con el hidden, pues no me imprime los resultados, así que si alguien lo compone pos gracias, ya que el texto solo se ve en el codigo fuente¡¡¡¡




en fin, ojala te ayude eso



saludos ;)

[almaluz]

Gracias Zangano :)

voy a intentar digerirlo :) poco a poco a ver.

Un Saludo.

[almaluz]

:( Creo que necesitaré mas ayuda de lo habitual, pues el primer codigo no me funciona. Me aparecen solo los distintos numeros de pagina, de texto, nada de nada, pero, cosa curiosa, no funcionan los enlaces, o sea, no hacen nada, solo el ultimo munero de los que aparecen se ejecuta, que me dirige a ( en este caso le he puesto la misma página donde están los enlaces) pero me da error.

Ahora digo

Seria mucho pedir el primer codigo comentado?
:P

Parece que quiere funcionar, pero seguro que me falta algo :(

[almaluz]

Me sigue faltando un poco.

No me muestra el texto en la pagina ( con el primer ejemplo de los tres de zangano) teneis idea?

Un empujoncito más ? :)

[zangano]

Que error te da???


..tienes que mostrar el texto con el querystring

saludos

[almaluz]

Lo que me ocurre es que solo me muestra en la pagina en que meto el codigo, los numeros de paginas que ha creado, en forma de enlaces, pero esos enlaces no funcionan (excepto el ultimo que da error al pinchar);

Alguna sugerencia, Tienes tu ese codigo funcionando ?

Gracias.

[almaluz]

Bueno hasta aqui es hasta donde llego.

El siguiente codigo que dejo tiene los siguientes fallos:

1º-Los enlaces de las primeras paginas no funcionan, sencillamente no hacen nada al pulsar sobre ellos. ( la ultima página si funciona)

2º- me divide el texto en paginas (bien) pero faltan caracteres entre pagina y pagina, o sea, el texto de la 2ª pagina no es la continuación de la primera, faltan palabras.

Ah, con este codigo se ve el texto que corresponde a la primera pagina directamente, sin tener que pulsar el 1.


<pre>
&lt;%
If request.QueryString(&quot;texto&quot;)&lt;&gt;&quo t;&quot; Then ' si recibo datos a traves del queryString los asigno a texto
texto=Request.QueryString(&quot;texto&quot;)
End If
filtro=Request.QueryString(&quot;id&quot;)
Dim con, rs, sql, campos
Set con=Server.CreateObject(&quot;ADODB.Connection&quo t;)
Set rs= Server.CreateObject(&quot;ADODB.RecordSet&quot;)
sql = &quot;SELECT * FROM articulos WHERE id=&quot;&amp;filtro&amp;&quot; ;&quot;
con.Open &quot;noticias&quot;
rs.Open sql, con


strCampoMemo = rs(&quot;noticia&quot;)
limite = 1000
longitud = len(strCampoMemo)
parrafo = &quot;&quot;
palabras = split(strCampoMemo,&quot; &quot;)
contador = 0
j = 0
for each elemento in palabras
parrafo = parrafo &amp; elemento &amp; &quot; &quot;
contador = contador + 1
if contador = limite then
j = j + 1
%&gt;
&lt;a href=&quot;ver.asp?texto=&lt;%=parrafo%&gt;&amp;id =&lt;%= filtro%&gt;&quot;&gt;&lt;%=j%&gt;&lt;/a&gt;
&lt;%
contador = 0
parrafo = &quot;&quot;
end if
next
if contador&lt;&gt;limite and contador&lt;&gt;0 then
j = j + 1 %&gt;
&lt;a href=&quot;ver.asp?texto=&lt;%=parrafo%&gt;&amp;id =&lt;%= filtro%&gt;&quot;&gt;&lt;%=j%&gt;&lt;/a&gt;
&lt;%
end if


If trim(texto)=&quot;&quot; Then

StrCampoMemo = replace(StrCampoMemo, chr(013),&quot;&lt;br&gt;&quot;)
StrCampoMemo = left(StrCampoMemo,1000)
Response.Write StrCampoMemo &amp; &quot;...&quot;
End If
rs.Close
Set rs=Nothing
con.Close
Set con=Nothing


%&gt;
Aqui mostramos el texto &lt;%= texto%&gt;

</pre>

En fin.,
Otro dia seguire intentandolo... :(

Juan.