problema con <br>

[javihb]

Hola amigos vereis, tengo un problemilla al mostrar informacion de una db oracle, bien, cuando inserto los datos de un formulario tengo una funcion que me sustituye los caracteres

Código:

Function AcomodarTexto(texto)
texto=replace(texto,"á","á")
texto=replace(texto,"à","à")
texto=replace(texto,"Á","Á")
texto=replace(texto,"À","À")
texto=replace(texto,"é","é")
texto=replace(texto,"è","è")
texto=replace(texto,"É","É")
texto=replace(texto,"È","È")
texto=replace(texto,"í","í")
texto=replace(texto,"ì","ì")
texto=replace(texto,"Í","Í")
texto=replace(texto,"Ì","Ì")
texto=replace(texto,"ó","ó")
texto=replace(texto,"ò","ò")
texto=replace(texto,"Ó","Ó")
texto=replace(texto,"Ò","Ò")
texto=replace(texto,"ú","ú")
texto=replace(texto,"ù","ù")
texto=replace(texto,"Ú","Ú")
texto=replace(texto,"Ù","Ù")
texto=replace(texto,"ñ","ñ")
texto=replace(texto,"Ñ","Ñ")
texto=replace(texto,"¡","¡")
texto=replace(texto,"!","!")
texto=replace(texto,"¿","¿")
texto=replace(texto,"<","&lt;")
texto=replace(texto,">","&gt;")
texto=replace(texto,"º","°")
texto=replace(texto,"ª","ª")
texto=replace(texto,vbCrLf,"<br>")
texto=replace(texto,Chr(34),""")
texto=replace(texto,"'","''")
texto=replace(texto,"“",""")
texto=replace(texto,"”",""")
texto=replace(texto,"«",""")
texto=replace(texto,"»",""")
texto=replace(texto,"»",""")
AcomodarTexto=texto
End function

Bien, esto va perfecto, los saltos de linea me los mete como <br>...OK pero despues tengo la opción de modificar esos datos y me saca otro formulario en el cual en un textarea me saca la información pero me la saca incluyendo lo <br> que haya y cuando hago un cambio y le doy a insertar en la db me inserta los <br> literalmente asi que cuando voy a ver la informacion me sale totalmente descuadrada y con los <br> que hay .....No hay alguna forma de solucionar esto...
Gracias

[3pies]

Eso te pasa porque en algún lado, y justo antes de grabar los datos en la BD, estás haciendo un replace para que te sustituya el salto de línea por una etiqueta <br>.

Por tanto, si no hicieras ese replace, no tendrías el texto en la BD con la etiqueta <br>.

La idea es que el replace lo hagas pero solo cuando recuperas los datos en pantalla, mientras que en la BD el texto esté sin la etiqueta.

Salu2

[javihb]

Ok 3 pies...lo que tu dices me resuelve el problema a medias ya que ahora si que no me salen los <br> cuando muestro la información...pero.... tampoco me mete los saltos de linea sino que sale toda la información pero apelotonada..... como lo podria resolver?

[javihb]

Lo siento.....soy muy tontico..jejejeej ya lo tengo solucionado...Gracias 3 pies

[sjam7]

y como fue?

[javihb]

Si es verdad...perdonar..bueno pues tan facil como a la página que muestra la información y que tiene la funcion de marras

Código:

Function AcomodarTexto(texto)
texto=replace(texto,"á","á")
texto=replace(texto,"à","à")
texto=replace(texto,"Á","Á")
texto=replace(texto,"À","À")
texto=replace(texto,"é","é")
texto=replace(texto,"è","è")
texto=replace(texto,"É","É")
texto=replace(texto,"È","È")
texto=replace(texto,"í","í")
texto=replace(texto,"ì","ì")
texto=replace(texto,"Í","Í")
texto=replace(texto,"Ì","Ì")
texto=replace(texto,"ó","ó")
texto=replace(texto,"ò","ò")
texto=replace(texto,"Ó","Ó")
texto=replace(texto,"Ò","Ò")
texto=replace(texto,"ú","ú")
texto=replace(texto,"ù","ù")
texto=replace(texto,"Ú","Ú")
texto=replace(texto,"Ù","Ù")
texto=replace(texto,"ñ","ñ")
texto=replace(texto,"Ñ","Ñ")
texto=replace(texto,"¡","¡")
texto=replace(texto,"!","!")
texto=replace(texto,"¿","¿")
texto=replace(texto,"<","&lt;")
texto=replace(texto,">","&gt;")
texto=replace(texto,"º","°")
texto=replace(texto,"ª","ª")
texto=replace(texto,vbCrLf,"<br>")
texto=replace(texto,"<br>",vbCrLf)
texto=replace(texto,Chr(34),""")
texto=replace(texto,"'","''")
texto=replace(texto,"“",""")
texto=replace(texto,"”",""")
texto=replace(texto,"«",""")
texto=replace(texto,"»",""")
texto=replace(texto,"»",""")
AcomodarTexto=texto
End function

le quitamos la que está en negrita...y ya esta