Validación de una cadena

Blakjac · #1 (**permalink**) 07/05/2009, 06:52

Saludos
Buen dia a todos

Tengo un problema en una pagina qeu estoy realizando al insertar datos necesito eliminar las cosas por lo tanto hice la función "ChecaCadeba" pero no funciona
Teniendo la duda de que estuviera mal hice "ValCadena" que si por ejemplo yo ingreso
"perra" me uestra "perre" pero si pongo con acento me la deja igual
alguien save porque no me funciona

asi los mando llamar
Call ValidaCadenaInvalida(varMATT)
Call ValidaCadenaInvalida(varPAT)
Call ValidaCadenaInvalida(varMAT)
Call ValidaCadenaInvalida(varNOM)
Call ChecaCadena(varMATT)
Call ChecaCadena(varPAT)
Call ChecaCadena(varMAT)
Call ChecaCadena(varNOM)

'-------------------------------------------------------------------------------------------
'Prueba Cadena
'-------------------------------------------------------------------------------------------
Function ValCad(strCadena)
strCadena = replace(strCadena,"a","e")
strCadena = replace(strCadena,"á","e")
strCadena = Trim(strCadena)
ValCad = strCadena
End Function
'-----------------------------------------------------------------------------------------------
' Funcion para quitar los acentos
'-----------------------------------------------------------------------------------------------
Function ChecaCadena(Cadena)
Cadena = Replace(Cadena,"Á","A")
Cadena = Replace(Cadena,"À","A")
Cadena = Replace(Cadena,"Ä","A")
Cadena = Replace(Cadena,"á","a")
Cadena = Replace(Cadena,"ä","a")
Cadena = Replace(Cadena,"à","a")
Cadena = Replace(Cadena,"É","E")
Cadena = Replace(Cadena,"Ë","E")
Cadena = Replace(Cadena,"È","E")
Cadena = Replace(Cadena,"è","e")
Cadena = Replace(Cadena,"é","e")
Cadena = Replace(Cadena,"ë","e")
Cadena = Replace(Cadena,"Í","I")
Cadena = Replace(Cadena,"Ì","I")
Cadena = Replace(Cadena,"Ï","I")
Cadena = Replace(Cadena,"ì","i")
Cadena = Replace(Cadena,"í","i")
Cadena = Replace(Cadena,"ï","i")
Cadena = Replace(Cadena,"Ó","O")
Cadena = Replace(Cadena,"Ò","O")
Cadena = Replace(Cadena,"Ö","O")
Cadena = Replace(Cadena,"ò","o")
Cadena = Replace(Cadena,"ó","o")
Cadena = Replace(Cadena,"ö","o")
Cadena = Replace(Cadena,"Ú","U")
Cadena = Replace(Cadena,"Ù","U")
Cadena = Replace(Cadena,"Ü","U")
Cadena = Replace(Cadena,"ù","u")
Cadena = Replace(Cadena,"ú","u")
Cadena = Replace(Cadena,"ü","u")
strCadena = Trim(strCadena)
ChecaCadena = Cadena
End Function

Thanks por la atención prestada

Adler · #2 (**permalink**) 07/05/2009, 07:18

Hola

Según comentas, es que no estás llamando a la función ValCad()

Cita:

Call ValidaCadenaInvalida(varMATT)
Call ValidaCadenaInvalida(varPAT)
Call ValidaCadenaInvalida(varMAT)
Call ValidaCadenaInvalida(varNOM)
Call ChecaCadena(varMATT)
Call ChecaCadena(varPAT)
Call ChecaCadena(varMAT)
Call ChecaCadena(varNOM)

Suerte

Blakjac · #3 (**permalink**) 07/05/2009, 07:30

Cita:

Iniciado por Adler

Hola

Según comentas, es que no estás llamando a la función ValCad()

Suerte

Ooo no esa es solo para ejemplo la que me interesa que funcione es ChecaCadena()

Cbas · #4 (**permalink**) 07/05/2009, 11:09

Es que me parece que deberías hacer

variable = ValidaCadenaInvalida(varMATT)

Adler · #5 (**permalink**) 08/05/2009, 06:15

Hola

Prueba así

Cita:

valor = Request("campo")
ChecaCadena(valor)

ó

ChecaCadena(Request("campo"))

Suerte

Blakjac · #6 (**permalink**) 08/05/2009, 18:17

Probare lo antes posible gracias por su ayuda

Blakjac · #7 (**permalink**) 10/05/2009, 07:48

No funciona : (

Adler · #8 (**permalink**) 10/05/2009, 12:00

Hola

Prueba así

Código asp:

Ver originalDim texto
texto ="CAMIÓN CAMIÖN CAMIÒN camión camiòn camiön"
 
Function ChecaCadena(Cadena)
Cadena = Trim(Cadena)
Cadena = Replace(Cadena,"Á","A")
Cadena = Replace(Cadena,"À","A")
Cadena = Replace(Cadena,"Ä","A")
Cadena = Replace(Cadena,"á","a")
Cadena = Replace(Cadena,"ä","a")
Cadena = Replace(Cadena,"à","a")
Cadena = Replace(Cadena,"É","E")
Cadena = Replace(Cadena,"Ë","E")
Cadena = Replace(Cadena,"È","E")
Cadena = Replace(Cadena,"è","e")
Cadena = Replace(Cadena,"é","e")
Cadena = Replace(Cadena,"ë","e")
Cadena = Replace(Cadena,"Í","I")
Cadena = Replace(Cadena,"Ì","I")
Cadena = Replace(Cadena,"Ï","I")
Cadena = Replace(Cadena,"ì","i")
Cadena = Replace(Cadena,"í","i")
Cadena = Replace(Cadena,"ï","i")
Cadena = Replace(Cadena,"Ó","O")
Cadena = Replace(Cadena,"Ò","O")
Cadena = Replace(Cadena,"Ö","O")
Cadena = Replace(Cadena,"ò","o")
Cadena = Replace(Cadena,"ó","o")
Cadena = Replace(Cadena,"ö","o")
Cadena = Replace(Cadena,"Ú","U")
Cadena = Replace(Cadena,"Ù","U")
Cadena = Replace(Cadena,"Ü","U")
Cadena = Replace(Cadena,"ù","u")
Cadena = Replace(Cadena,"ú","u")
Cadena = Replace(Cadena,"ü","u")
ChecaCadena = Cadena
End Function
 
Response.Write ChecaCadena(texto)

Suerte

David · #9 (**permalink**) 10/05/2009, 13:10

Como sugerencia, puedes almacenar en un array todos los valores a reemplazar, y en otro array todos los valores por las cuales reemplazar. Así, solo tienes que hacer un bucle For para realizar todos los reemplazos.