Mantener formato de texto al cargar de base de datos?

[roroland]

Hola, estoy armando tipo una revista que carga las noticias desde una base de datos, el texto de la noticia lo ingreso obviamente con puntos aparte, saltos de linea, etc...Pero cuando lo cargo de la base de datos me lo muestra todo de corrido sin respetar los saltos de linea ni los punto aparte... (en este momento uso access 2000, pero solo para probar, en realidad el proyecto va a estar montado sobre MySql)

Que puedo hacer para remediarlo ?

Gracias

[FiNo]

Hola, podrias usar la funcion Replace("campo",vbCrlf,"<br>"), cuando ingresas el dato a las BD le indicas campo_con_formato = Replace(nombre_campo,vbCrLf,"<BR>"), y guardas el campo. Espero que eso sea lo que buscas.

[roroland]

Pero ese codigo debo ponerlo antes de ingresarlos a la BD o cuando lo recupero...Porque encontre por internet este codigo

<%
Function ArreglaSaltos(cadena)
cadena = Replace(cadena,vbCrLf,"<BR>")
ArreglaSaltos = cadena
End Function
%>

Y luego dice que agregue esto:
<%texto = ArreglaSaltos(texto)%>

Todo esto lo puse en la pagina donde leo la base de datos....debo aplicarlo ahi o antes de ingresarlo a la BD...si debo hacerlo antes como lo aplico a este formulario...?:

<form name="form1" method="POST" action="<%=MM_editAction%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td width="138" height="20">Tu Nombre</td>
<td width="134" valign="top"> <input name="tunombre" type="text" id="tunombre"></td>
<td width="18"></td>
<td width="183"></td>
</tr>
<tr>
<td rowspan="3">Comentario</td>
<td rowspan="3" valign="top"> <textarea name="tucomentario" cols="20" rows="2" id="tucomentario"></textarea></td>
<td height="34"></td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="12"></td>
<td valign="top"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><em>*MAXIMO
200 CARACTERES</em></font></td>
</tr>
<tr>
<td height="4"></td>
<td></td>
</tr>
<tr>
<td height="14"></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="23"></td>
<td valign="top"> <input name="Submit" type="submit" value="Publicar Comentario"></td>
<td></td>
<td></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>

Cualquier idea por favor

GRACIAS

[AlZuwaga]

Conviene reemplazar los VBCrLf por <br> al momento de mostrar la información, no al guardarla en la BD.

[roroland]

ok, pero como lo hago ??

porque hice la prueba de agregar la funcion
<%
Function ArreglaSaltos(cadena)
cadena = Replace(cadena,vbCrLf,"<BR>")
ArreglaSaltos = cadena
End Function
%>

Y luego antes que se cargue el campo que tomo de la BD (se llama comentario) copie lo siguiente...

<%comentario = ArreglaSaltos(comentario)%> <%=(Recordset1.Fields.Item("comentario").Value)% >


Pero no modifica nada....

[Neuron_376]

Otra forma, es que cuando la guardas haces esto:

noticia = 'Renglon1\nRenglon2'

Y cuando la muestras, usas es replace como:

Replace(cadena, "\n","<BR>")

No se si en tu caso funcione, a lo que me refiero específicamente es a guardar las noticias siguiendo un formato, ya sea HTML o TEXTO, pero cuando lo muestras tu sabes como segun el caso, ejemplo:

Si lo guardas como:

noticia = 'Renglon1<br>Renglon2' -->Modo HTML

Si lo vas a mostrar en un html, entonces no haces ningun replace, pero si lo vas a mostrar en un TextArea, entonces haces un replace como:

Replace(cadena, "<br>", vbCrlf)

Bueno, debes hacer pruebas y mirar que formato debes seguir.

Suerte!!

[Neuron_376]

Prueba asi:

<%comentario = ArreglaSaltos(Cstr(Recordset1("comentario")))%>

[roroland]

Perdon...no debo haberme explicado bien...

EL sistema es asi:

Tengo una pagina con un form para que se cargue en una BD la noticia:

http://www.rocklatinoonline.com/comentarios.asp

Luego voy a esta pagina (todo esto es un demo no esta terminado) y quiero leer el comentario que ingrese previamente repetando los saltos de linea, punto y aparte, etc.

http://www.rocklatinoonline.com/eom/indtest.asp

Pueden hacer la prueba si quieren y veran que no respeta los puntos ni nada que uno escribe en el Form.

Mi pregunta es cual codigo debo ingresar y en donde para que me reconozca esto

[FiNo]

De esta forma me funciona,no se sí sera la mejor.

Response.Write(Replace((Recordset1.Fields.Item("co mentario").Value),vbCrLf,"<BR>"))

[AlZuwaga]

ya te lo dijerooooon! :)

Si el campo se llama "comentarios", sólo hacés un response.write así:

response.write replace(recordset("comentarios"), VBCrLf, "<br>")

Si querés usar la función, entonces:

response.write ArreglaSaltos(recordset("comentarios"))

[roroland]

GRACIAS A TODOS ....FUNCIONA :):):):):)

AQUI PUEDEN VER EL CODIGO ANDANDO EN OTRA PAGINA
http://www.rocklatinoonline.com/eom/indtest2.asp

GRACIAS POR LA PACIENCIA....

[nicomonjes]

alguien podría poner un ejemplo de eso porque tambien lo necesito
eso va en la pagina de resultado o en la pagina de carga?

[Fabu_dina]

esta funcion a mi no me funciona en un campo longtext de mysql me podrian decir porque?

[Adler]

Hola

Iniciado por nicomonjes

alguien podría poner un ejemplo de eso porque tambien lo necesito
eso va en la pagina de resultado o en la pagina de carga?

En la página donde imprimes los registros

Iniciado por Fabu_dina

esta funcion a mi no me funciona en un campo longtext de mysql me podrian decir porque?

Ya te respondí aquí

Suerte a ambos