Respetar los saltos de línea en Textarea

[sifi]

Hola,

Me gustaría saber si existe una manera de escribir un texto en un textarea y que te mantengan los saltos de línea, los espacios,...Más o menos como cuando dejas un mensajes en FDW.Gracias,Sifi.

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Aston]

Es así:

&lt;textarea&gt;&lt;%=Replace(Texto, Chr(13), &quot;&lt;br&gt;&quot;)%&gt;&lt;/textarea&gt;

Un saludo, amigo. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

Muchas Gracias Astón,voy a probarlo en el día y a ver cómo va.Saludos, Sifi.

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Aston]

Seguro que te va a ir bien, Sifi. Un saludo, amigo y ¡Cuéntanos! :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

Hola Aston,

Pues no me ha funcionado, no sé por qué pero cuando pido que me presente los datos en pantalla, no me respeta los saltos de líneas, me presenta todas las frases seguidas. Necesito que me respete los saltos de línea porque estoy desarrollando un formulario donde los usuarios podrán escribir los ejercicios para los alumnos, con los textos necesarios para trabajar (canciones,etc...) y por eso me interesa que si alguien escribe una canción, que el texto aparezca como él lo escribió, respetando la forma que se le dió.¿sabes por qué no me ha funcionado?Gracias, Sifi.

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Aston]

Hola Sifi:

No puedo imaginar que estás haciendo mal, pero este código no te puede fallar, porque en realidad, es una cosa muy simple.

Intenta escribir la parte de código donde lo haces para intentar averiguar por qué te falla.

Saludos, Sifi. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

Hola Aston,

Ahí va la parte del código donde tengo lo que me distes, a ver si puedes averiguar por qué no funciona.Gracias de nuevo, Sifi.
-------------------
&lt;TR&gt;
&lt;TD vAlign=top width=&quot;100%&quot;&gt;&lt;FONT face=&quot;Times New Roman&quot;&gt;&lt;BR&gt;&lt;FONT
color=#333399&gt;&lt;B&gt;Textos: Escribe aquí los textos, canciones,etc.. necesarios para esta actividad.&lt;/B&gt;&lt;/FONT&gt;&lt;FONT size=4&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;FONT
size=2&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;FONT face=&quot;Times New Roman&quot;
size=3&gt;
&lt;TEXTAREA NAME=&quot;textos&quot; value=&quot;sin determinar&quot; COLS=40 ROWS=2&gt;
&lt;%=Replace(Texto, Chr(13), &quot;&lt;br&gt;&quot;)%&gt;
&lt;/TEXTAREA&gt;

&lt;/FONT&gt;&lt;/P&gt;&lt;/TD&gt;&lt;/TR&gt;

-------------------------

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[AlZuwaga]

Pero el ejemplo que te dió Aston sirve para recuperar el texto y ser mostrado dentro de un textarea.
Aunque, Aston, no creo que esto funcione ;):

<pre>&lt;textarea&gt;Hola&lt;br&gt;
mi nombre es diego&lt;br&gt;
&lt;br&gt;
saludos&lt;/textarea&gt; </pre>


Yo supongo, sifi, que lo que escriban en el textarea lo vas a guardar en una BD.

Si es así, guardalo como siempre (sin el &quot;replace&quot; y me parece que el value del textarea está de mas ):

<pre>&lt;TEXTAREA NAME=&quot;textos&quot; value=&quot;sin determinar&quot; COLS=40 ROWS=2&gt;&lt;/TEXTAREA&gt; </pre>

Luego viene el &quot;replace&quot;... al momento de mostrarlo en la página:

&lt;%
'conexiones a la base, etc
Response.Write &quot;&lt;p&gt;&quot; &amp; Replace(Texto, Chr(13), &quot;&lt;br&gt;&quot;) &amp; &quot;&lt;/p&gt;&quot;
'cerrás conexiones, etc
%&gt;


saludos
diego

[Aston]

Hola Sifi:

No me expliqué demasiado bien, perdona.

Esta función debes usarla cuando vas a ingresar en la base de datos el contenido de lo que has recibido en el formulario o al mostarlo en la siguiente página.

Cuando recibes los parámetros del formulario en la página siguiente debes hacer esto:

Replace(Request.Form(&quot;Textos&quot;), Chr(13), &quot;&lt;br&gt;&quot;)

o bien:

Dim cTexto
cTexto = Request.Form(&quot;Textos&quot;)
Response.Write(Replace(cTexto, Chr(13), &quot;&lt;br&gt;&quot;))

Espero que ahora te quede un poco más claro. Saludos. :)


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Ja ja :PBueno, se me adelantó dazuaga y además te lo ha explicado mejor que yo, así que espero que ahora ya no te queden dudas.

¡Suerte! :) ;) :P

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

:( :( :( :( :( :( :( :( No me sale.No sé que hago mal, pero algo hago que no va bien.Os paso el código de la página que va a presentar lo que hay en la bd.
&lt;%
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
Con.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=&quot; &amp; _
Server.MapPath(&quot;mibd.mdb&quot;))
sql = &quot;SELECT * FROM ejemplo WHERE id=&quot; &amp; Request.QueryString(&quot;id&quot;) &amp; &quot;&quot;

set result = Con.Execute(sql)
%&gt;
&lt;TR&gt;
&lt;TD vAlign=top width=&quot;100%&quot;&gt;&amp;nbsp;
&lt;HR color=#333399 noShade SIZE=1&gt;
&lt;/TD&gt;&lt;/TR&gt;
&lt;TR&gt;
&lt;TD vAlign=top width=&quot;100%&quot;&gt;&lt;FONT face=&quot;Times New Roman&quot;&gt;&lt;BR&gt;&lt;FONT
color=#333399&gt;&lt;B&gt;Descripción&lt;/B&gt;&lt;/FONT&gt;&lt;FONT size=4&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;FONT
size=2&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;FONT face=&quot;Times New Roman&quot;
size=3&gt;

&lt;DIV ALIGN=&quot;center&quot;&gt;&lt;%=result(&quot;tex tos&quot;)%&gt;&lt;/DIV&gt;

He tenido que cortar el código, no cabe entero, pero me interesaría que al presentar el resultado de TEXTOS sea cuando me respete el salto de línea. Gracias de nuevo a los dos.Sifi



<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Aston]

Hola, Sifi, modifica esto y nos cuentas:


cTexto = Replace(result(&quot;textos&quot;), Chr(13), &quot;&lt;br&gt;&quot;)
&lt;DIV ALIGN=&quot;center&quot;&gt;&lt;%=cTexto%&gt;&lt;/DIV&gt;

¡Cuéntanos! :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

Hola,

:(
Me sale un error: &quot;No coinciden los tipos de Result&quot; ¿y ahora?? Gracias de nuevo, Sifi.

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[sifi]

Hola,

¿Nadie puede ayudarme?? :( :(

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[pramos]

Hola sifi !

Hacía tiempo que quería solucionar ese mismo problema y he aprovechado los consejos que he visto por aquí y he sacado unas conclusiones muy claras:

En la página que recibe los datos enviados por el formulario donde el usuario escribirá el texto:

--------------------------------------------
&lt;%
Texto=Request.Form(&quot;Texto&quot;)
Texto=Replace(Texto, chr(13) &amp; chr(10), &quot;#*&quot;)
...
db.execute(&quot;INSERT INTO Tabla (Texto) VALUES ('&quot; &amp; Texto &amp; &quot;')&quot;)
...
%&gt;
--------------------------------------------

En la página donde mostrarás ese texto:

--------------------------------------------
&lt;%
Texto=rst(&quot;Texto&quot;)
Texto=replace(Texto, &quot;#*&quot;, &quot;&lt;br&gt;&quot;)
response.write(Texto)
%&gt;

--------------------------------------------

Explicación:

Antes de guardar en la base de datos, remplazo los intros (chr(13) &amp; chr(10)) por 2 caracteres (#*) que es poco probable alguien escriba (por si acaso). Podrían ser más caracteres. Y después guardo el dato.

A la hora de mostrar el texto reemplazo los caracteres (#*) por el &lt;br&gt; que realiza el intro en HTML.

Eso es todo.

Espero te sirva.

[Aston]

Pero Pramos, Sifi, de verdad que no hace falta llegar a esos extremos.

Sifi, vuelve a poner el último código que te dio error, a ver si lo sacamos. ¡Debe funcionarte!

Un saludo.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Facu]

Aston, la verdad que eres un MAESTRO!!!! ese replace no lo conocía y es espectacular!!! mientras lo estaba probando se me cruzaron por la cabeza 2000000... de opciones más donde lo puedo usar
Muchas gracias


Facu

[borromeo]

Hola a todos

Uno de los grandes problemas q encontre con el textarea es q todo espacio q se deje entre la apertura y el cierre de la orden el hmtl lo considera valido, cosa q en otras ordenes no es asi
no es lo mismo el

&lt;textarea&gt;hola&lt;textarea&gt;

que

&lt;textarea&gt;
hola
&lt;textarea&gt;

la ruptura de linea la considera como un tab o algo asi.

espero q esto ayude en algo a todos los q nos volvimos locos con el &lt;textarea&gt; ;)

[Barraca]

Hola compañeros,pues yo hace meses tenia un post con el mismo problema,y no se pudo resolver,ahora lo resolvere por que no lo dejare pasar.
He probado y no funciona, os explico:
En la pagina de insercion no he puesto nada,y no ha funcionado, con lo cual puse:
&lt;textarea name=&quot;textfield2&quot; rows=&quot;20&quot; cols=&quot;50&quot; value=&quot;&quot;&gt;&lt;%=Replace(Texto, Chr(13), &quot;&lt;br&gt;&quot;)%&gt;&lt;/textarea&gt;
_____________
Y en la pagina de resultados pongo:
&lt;%
' FileName=&quot;Connection_odbc_conn_dsn.htm&quot;
' Type=&quot;ADO&quot;
' HTTP=&quot;false&quot;
' Catalog=&quot;&quot;
' Schema=&quot;&quot;
MM_dani_STRING = &quot;dsn=dani;&quot;
Dim cTexto
cTexto = Request.Form(&quot;Textos&quot;)
Response.Write(Replace(cTexto, Chr(13), &quot;&lt;br&gt;&quot;))
%&gt;
o tambien:
______________________________
&lt;%
' FileName=&quot;Connection_odbc_conn_dsn.htm&quot;
' Type=&quot;ADO&quot;
' HTTP=&quot;false&quot;
' Catalog=&quot;&quot;
' Schema=&quot;&quot;
MM_dani_STRING = &quot;dsn=dani;&quot;
Response.Write &quot;&lt;p&gt;&quot; &amp; Replace(Texto, Chr(13), &quot;&lt;br&gt;&quot;) &amp; &quot;&lt;/p&gt;&quot;
%&gt;
_____________________________
Algo estoy haciendo mal,por favor algun maestro podria orientarme un poco? :(
Perdonen las tildes,pero tengo un problema con mi controladora de teclado.
Un saludo! y gracias de antemano

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

[sifi]

Hola Astón,

El sistema funciona de la siguiente manera, hay un formulario (form.asp)normal donde recojo los datos y lo envío a una página que los recoge, (comprueba.asp)analiza que todos los datos sean correctos y que no haya ningún campo vacío y una vez esto lo envía a la bdd.Una tercera página se encargará de mostrar esos datos (mostrar.asp)
Código para Comprueba.asp:
&lt;%
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
Con.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=&quot; &amp; _
Server.MapPath(&quot;mibd.mdb&quot;))
sql = &quot;SELECT * FROM ejemplo WHERE id=&quot; &amp; Request.QueryString(&quot;id&quot;) &amp; &quot;&quot;

set result = Con.Execute(sql)
%&gt;
&lt;TR&gt;
&lt;TD vAlign=top width=&quot;100%&quot;&gt;&amp;nbsp;
&lt;HR color=#333399 noShade SIZE=1&gt;
&lt;/TD&gt;&lt;/TR&gt;
&lt;TR&gt;
&lt;TD vAlign=top width=&quot;100%&quot;&gt;&lt;FONT face=&quot;Times New Roman&quot;&gt;&lt;BR&gt;&lt;FONT
color=#333399&gt;&lt;B&gt;Descripción&lt;/B&gt;&lt;/FONT&gt;&lt;FONT size=4&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;FONT
size=2&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;FONT face=&quot;Times New Roman&quot;
size=3&gt;

&lt;DIV ALIGN=&quot;center&quot;&gt;&lt;%=result(&quot;tex tos&quot;)%&gt;&lt;/DIV&gt;

Yo supongo que de hacer algo habría que hacerlo en éste archivo, para que se grabe en la bd, pero todo lo que he intentado ha sido en vano.Espero que me puedan ayudar, un saludo, Sifi.



<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Aston]

Hola:

A Barraca y Sifi
A ver si os puediera ayudar, hombre. Esta es una función de VBScript que no reviste ninguna dificultad, con lo que os debe funcionar perfectamente.

Ahora voy a explicaros en qué se basa esta función:

Replace es una sencilla función a la que le decimos: Reemplaza en la cadena cTexto, una subcadena por otra, un ejemplo:

Replace(&quot;El cuerdo&quot;, &quot;cuerdo&quot;, &quot;loco&quot;) 'devolvería la cadena &quot;el loco&quot;

Replace(&quot;Aston&quot;, &quot;on&quot;, &quot;a mañana &quot;) 'devolvería la cadena &quot;Asta mañana &quot;

Chr() lo que hace es devolver el carácter Ascii dependiendo del valor que le pasamos. El 13 es el retorno de carro o Intro.
Así Chr(13) devuelve los intro del texto.

El Html NO reconoce estos caracteres y en consecuencia deberemos cambiarlos AL MOSTRAR el dato por el equivalente de nueva línea en Html, esto es &lt;br&gt;

Replace(cTexto, Chr(13), &quot;&lt;br&gt;&quot;)

Esta función la podeis usar siempre que os encontréis con este problema. Si al mostrar un campo de la base de datos así...

&lt;%=rsTabla(&quot;rsCampoTexto&quot;)%&gt;

vierais que no os reconoce los saltos de línea sólo teneis que hacer esto:

&lt;%=Replace(rsTabla(&quot;rsCampoTexto&quot;) , Chr(13), &quot;&lt;br&gt;&quot;)%&gt;

Bueno, espero que ahora podais ir haciendo prácticas con ella, para que os familiariceis con su uso. Si seguis estos apsos al pie de la letra, lo conseguireis.

Contadme si os funciona y si ya lo habeis entendido. Un abrazo, amigos. :) ;) :P


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Sifi, se me olvidó decirte que esto, lo normal es hacerlo al mostarlo, no cuando vas a insertar los datos.

Es una función que se usa todods los días a cada momento.

Un saludo.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Y por último, apra que veais su uso sencillo, sólo teneis que copiar y pegar esto en vuestra página y vereis cómo funciona:

dim ctexto
ctexto = &quot;Hola&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Hola&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Hola&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Hola&quot;

Response.Write ctexto &amp; &quot;&lt;br&gt;&quot;

'Esto devuelve:
'Hola Hola Hola Hola

Response.Write Replace(ctexto, Chr(13), &quot;&lt;br&gt;&quot;)

'Esto devuelve:

Hola

Hola

Hola

Hola

¿Sencillo, no? ¡Contadme! ;)


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[sifi]

Hola Aston,

Me da el siguiente error:

Error de Microsoft VBScript en tiempo de ejecución erreur '800a000d'

No coinciden los tipos: 'rsejemplo'

Este es el código que he puesto:

&lt;%
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
Con.Open(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=&quot; &amp; _
Server.MapPath(&quot;ejemplodb.mdb&quot;))
sql = &quot;SELECT * FROM ejemplo WHERE id=&quot; &amp; Request.QueryString(&quot;id&quot;) &amp; &quot;&quot;

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)

%&gt; &lt;FONT COLOR=&quot;#0066CC&quot;&gt;&lt;%=result(&quot;ma terialnec&quot;)%&gt;&lt;/FONT&gt;&lt;BR&gt;&lt;B&gt;
&lt;B&gt;Duración de la actividad en clase:&amp;nbsp;&amp;nbsp;&lt;/B&gt;&lt;FONT COLOR=&quot;#0066CC&quot;&gt;&lt;%=result(&quot;du racion&quot;)%&gt;&lt;/FONT&gt;&lt;BR&gt;
&lt;B&gt;Páginas de internet recomendadas:&amp;nbsp;&amp;nbsp;&lt;FONT COLOR=&quot;#0066CC&quot;&gt;&lt;A HREF=&quot;&lt;%=result(&quot;internet&quot;)%&gt; &quot;&gt;&lt;%=result(&quot;internet&quot;)%&gt;& lt;/A&gt;&lt;/FONT&gt;&lt;/B&gt;&lt;/TD&gt;

&lt;TABLE border=0 cellPadding=1 cellSpacing=2 height=40
width=&quot;100%&quot;&gt;&lt;TBODY&gt;
&lt;TR&gt;
&lt;TD align=right
width=&quot;11%&quot;&gt;&lt;/TD&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt; &lt;TABLE border=2 cellSpacing=0 width=&quot;100%&quot;&gt;
&lt;TBODY&gt;
&lt;TR&gt;
&lt;TD&gt; &lt;B&gt;Descripción de la actividad:&lt;BR&gt;&lt;/B&gt;

&lt;%=Replace(rsejemplo(&quot;textos&quot;), Chr(13), &quot;&lt;br&gt;&quot;)%&gt;

¿Qué hago mal?¿Por qué me da ese error?Saludos, Sifi




<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[sifi]

Hola a todos,

Después de releer los mensajes que me han dejado para solucionar el problema, y después de que me extrañase que me diese error, volví a mirar mi código y lo he conseguido :) :) :) Gracias a todos por vuestra ayuda.un saludo, sifi

<center><A HREF=" http://www.elenet.org"><IMG SRC="http://www.efrance.fr/somoswebmasters/GRAFICOS/ele468x60.gif"> </A> </center>

[Barraca]

Pues yo tambien lo consegui!!!; mil gracias aston y cia.
Acordaos de enviarme un email cuando vengais por mi pueblo, que teneis unas gambitas y unas cervecitas esperando! :P(En serio)

<img src="http://www.buscadata.com/imagenes/barraca.jpg">

[lechuga]

Pues a mi me salio mas facil de lo parecia solo puse esto:

noticia=request.form(&quot;noticia&quot;)
noticia= Replace(noticia, vbCrLf, &quot;&lt;br&gt;&quot;)

y mas a bajo en el addnew:

rs(&quot;noticia&quot;)=noticia