
03/10/2006, 02:41
|
| | Fecha de Ingreso: octubre-2004
Mensajes: 230
Antigüedad: 20 años, 6 meses Puntos: 0 | |
problema con <br> 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,"<","<")
texto=replace(texto,">",">")
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 |