Foros del Web » Programando para Internet » ASP Clásico »

eliminar simbologia de los text

Estas en el tema de eliminar simbologia de los text en el foro de ASP Clásico en Foros del Web. hola como puedo eliminar los simbolos "%,#,',$" que ingresan los usuarios en los text de una sola vez con un replace combinado con un for...next ...
  #1 (permalink)  
Antiguo 24/06/2004, 20:28
Avatar de don_fransisco  
Fecha de Ingreso: junio-2004
Mensajes: 193
Antigüedad: 20 años
Puntos: 1
eliminar simbologia de los text

hola como puedo eliminar los simbolos "%,#,',$" que ingresan los usuarios en los text de una sola vez con un replace combinado con un for...next y con un split para no tener que hacerlo individualmente.

me explico

manualmente uno por uno:
captura=request("nombre")

nombre=replace(captura,"%","") // primera vezz para el simbolo "%"
nombre1=replace (nombre,"'","") // segunda vez para las comillas nombre2=replace (nombre1,"$","") // tercera vez para el simbolo peso
nombre3=replace (nombre2,"#","")// cuarta vez para el simbolo #

todo este paso solo lo quiero hacer solo una vez con algo como un for next o bien dentro de un array con un split.

por favor si alguien me puede ayudar con un ejemplo practico se lo agradeceria.
  #2 (permalink)  
Antiguo 24/06/2004, 21:27
Avatar de LeCLUB  
Fecha de Ingreso: abril-2003
Ubicación: Barcelona (España)
Mensajes: 205
Antigüedad: 21 años, 1 mes
Puntos: 1
Pon todos los carácteres que quieras en la variable ANULAR, separados por comas:


Código PHP:
<%
texto "hola, me llamo% pepito, $ y soy 'muy feliz#"
 
anular "%,#,',$"
matriz split(anular,",")
 
for 
0 to Ubound(matriz)
texto replace(textomatriz(i), "")
Next
 
response
.write texto
%> 
Este código reponde con este texto:

hola, me llamo pepito, y soy muy feliz

(como ves, ha eliminado los carácteres)


Por otro lado, si tienes que "Limpiar" muchos campos, lo mejor es crearte una función:

Código PHP:
<%
function 
limpiar(texto)
anular "%,#,',$"
matriz split(anular,",")
for 
0 to Ubound(matriz)
texto replace(textomatriz(i), "")
Next
response
.write texto
End 
function
%> 
Y luego, puedes ejecutarla tantas veces como quieras.

limpiar("hola, me llamo% pepito, $ y soy 'muy feliz#")
limpiar("hola, me llamo% Maria, $ y tengo 'las tetas muy grandes xDD#")
limpiar("adios, me voy% al super, $ a comprar 'naranjas#")


Un saludo ;)
__________________
Documentación de VBScript V5.6 en Español:
http://download.microsoft.com/downlo...ES/scd56es.exe

Última edición por LeCLUB; 24/06/2004 a las 21:42
  #3 (permalink)  
Antiguo 24/06/2004, 21:28
Avatar de Atonovich  
Fecha de Ingreso: diciembre-2002
Ubicación: ...
Mensajes: 117
Antigüedad: 21 años, 6 meses
Puntos: 0
Ahhh pos refácil mi amigo:

For i=1 to Len(strCadena)
varPuente = Mid(strCadena, i, 1)
for j=1 to 47
Do while Instr(1, varPuente, chr(j), 1) = 0
if Instr(1, varPuente, chr(j), 1) > 0 then
varPuente = ""
end if
loop
next

strRecursiva = strRecursiva + varPuente

next

response.write strRecursiva

Ojalá te sirva!
__________________
" El hombre es una invención de Dios o Dios es una invención del hombre..."
  #4 (permalink)  
Antiguo 24/06/2004, 23:06
Avatar de don_fransisco  
Fecha de Ingreso: junio-2004
Mensajes: 193
Antigüedad: 20 años
Puntos: 1
muchisimas gracias
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:43.