Validación de una cadena

[Blakjac]

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]

Hola

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

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]

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]

Es que me parece que deberías hacer

variable = ValidaCadenaInvalida(varMATT)

[Adler]

Hola

Prueba así

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

ó

ChecaCadena(Request("campo"))

Suerte

[Blakjac]

Probare lo antes posible gracias por su ayuda

[Blakjac]

No funciona : (

[Adler]

Hola

Prueba así

Código asp:

Dim 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]

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.