18/01/2006, 15:15
|
 | Colaborador | | Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses Puntos: 27 | |
| quitar enter's repetidos
he buscado en el foro y no he encontraro
probe con una funcion par aquitar espacios repetidos, pero tampoco me funciono
quisiera saber si me pueden ayudar
la rutina de los espacios es esta
<%
Function QuitaEspacio(CadentaTXT)
frase = CadentaTXT
'Quitamos todos los espacios extras
For quita_espacios = 10 to 2 Step -1
For espacio = 1 to quita_espacios
mete_espacio = mete_espacio & " "
Next
frase = Replace(frase,mete_espacio," ")
mete_espacio = ""
Next
QuitaEspacio = frase
End Function
%>
lo que necesito es quitar los enters repetidos en una mensaje antew de guardarlo en la base de datos.
gracias
__________________
JuanRa Pérez
San Salvador, El Salvador |