expresion regular para restringir letras

[lexus]

Hola
alguien sabe como hacer una expresion regular para
que en una cadena de caracteres solo permita lo siguiente

numeros del 0 al 9
espacios
estas letras mayusculas o minusculas (C, L, R, A, T, V, S)

de resto todo lo de mas no lo debe permitir.

gracias. espero puedan colaborarme.

[Wasper]

Se supone que recogeras eso de un formulario no?

Deberias hacerlo con Javascript de cara al usuario y tambien para asegurarte mas, tambien rematarlo con ASP de cara al servidor para impedir intentos malintencionados.

Confirmame que idea tienes para hacerlo y te ayudare mas profundamente

Saludos, Jose

[lexus]

necesito que sea de lado del servidor porque a veces no tendre el javascript activado en la intranet.
entonces si seria bueno hacer esa expresion regular para validar esos datos en el lado del servidor.
y si los traeria de un formulario. tienes alguna idea de como hacerla?

[Wasper]

Se me ocurre algo asi, haces una funcion, le envias la cadena y recibes validado, si validado es 1 es que hay ese caracter metido, si vale 0 es que no hay caracteres validos... pero a todo esto se me plantean otras dudas, si meto un caracter valido y otro no valido que se hace... tambien desconozco la ideas de permitir del 0 al 9 y solo unos tipos de letras... quizas si profundizaras un poco mas podria darte una solucion algo mejor... no he podido probarlo porque estoy en un ordenador algo cutre que se apaga constantemente... este ya es el 3er intento por postearte la solucion, jajajajaja...

dim Validado
validado = 0
if (Instr(cadena1,"C")>0 or Instr(cadena1,"c")>0) then
validado = 1
response.Write ("Hay una C o una c en la cadena")
end if

Espero que te sirva

Saludos, Jose

[lexus]

gracias portu colaboracion
la verdad es que estoy haciendo un sistema para google maps en una intranet
y el sistema de clientes va enlazado con el mapa.
lo qeu deseo hacer es que solo me ingresen direcciones validas.
por tal motivo permito, numeros, espacios y algunas letras.
si llegaran a ingresar una letra o caracter que no seapermitido debe retornar un error y el usuario debera volver a escribir la direccion.

por tal motivo debe ser una expresion regular para ser mas precisos con la validacion. porque es mas facil escribir lo qeu permito que lo que no permito.

[Wasper]

Prueba eso que te comento, haz las pruebas con una letra permitida a ver si te salen los resultados deseados, si los resultados son los esperados crea el sistema completo, no vayas a crear toda la funcion y despues no te sirva... jejeje...

Si necesitas ayuda, aqui toy.

Saludos, Jose

[lexus]

denuevo gracias por tu ayuda

quiero hacer algoa si mas o menos..
pero no entiendo mucho de expresiones regulares
este valida si un email es valido.

Código ASP:

function esValidoEmail(cadena)
set expReg = New RegExp
expReg.Pattern = "^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@_
[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*$"
esValidoEmail = expReg.Test(cadena) and len(cadena) < 256
set expReg = nothing
end function
 

[lexus]

como podria hacer una exprecion regular o funcion para
colocar en un vector o algo asi las letras y numeros que permito
y todo lo demas no sea permitido?

algo que me recorra letra a letra de una cadena y me diga si esta dentro de las permitidas y si no saque error..

[u_goldman]

Hola lexus, fijate si esto te sirve:

Código ASP:

<&#37;
function ereg(strOriginalString, strPattern, varIgnoreCase) 
    dim objRegExp : set objRegExp = new RegExp 
    with objRegExp 
        .Pattern = strPattern 
        .IgnoreCase = varIgnoreCase 
        .Global = True 
    end with 
    ereg = objRegExp.test(strOriginalString) 
    set objRegExp = nothing 
end function
 
Response.Write(ereg("153 clara", "^[0-9]*[c|l|r|a|t|v|s|\s]*$", true))
%>
 

La funcion me la robé de algún sitio, pero no tengo a la mano la URL

Los argumentos son el string que tiene que hacer match, el patron y si quieres o no ignorar las mayúsculas.

Saludos

[lexus]

,muchas gracias lo probare y te comento

[lexus]

gracias

mira que lo probe asi

Código ASP:

dim caracteres_permitidos
caracteres_permitidos= "^[0-9]*[c|l|r|a|t|v|s|\s]*$"
 
function ereg(strOriginalString, strPattern, varIgnoreCase) 
    dim objRegExp : set objRegExp = new RegExp 
    with objRegExp 
        .Pattern = strPattern 
        .IgnoreCase = varIgnoreCase 
        .Global = True 
    end with 
    ereg = objRegExp.test(strOriginalString) 
    set objRegExp = nothing 
end function
 

pero probandolo cai en cuenta que no me servira
yo lo necsito para que me ingresen direcciones validas

es que por ejemplo
tengo una direccion asi CL 27 4 B-08
esa seria una direccion bien escrita
una mala escrita seria asi CL 27 4 B-08 piso 2 apto 202

el problema es que no habia caido en cuenta que en la mitad de la direccion
tambien pueden haber letras 4 b
y guiones
entonces si permito todas las letras, cuando escriban piso o apto, lo permitiria y esta mal.
entonces ahi si no se que hacer para impedir que me escriban mal las direcciones.

[u_goldman]

Hola lexus

Necesitarías proporcionar específicamente cuales son ejemplos direcciones válidas, de lo contrario es imposible obtener un patrón.

Saludos

[lexus]

al parecer seria muy dificil obtener un patron porque las direcciones pueden ser escritas de muchas formas
crees que seria mas facil poner algunas palabras prohibidas mejor?
por ejemplo piso, apto, etc..? o no seria lo ideal.

tengo esta funcion que lo que hace es reemplazar palabras por algo..
sabrias como modificarla para que en lugar de reemplazar cuando encuentre al menos una de las palabras saque el error de que esta mal escrita?

Código ASP:

'''Funcion para prohibir ciertas letras en la direccion
Function filtrar_palabras(texto)
    Dim Temp, palabrasVector, palabras_prohibidas, reemplazar, i
    reemplazar = "***"
    palabras_prohibidas = "piso#apto#apartamento#oficina#"
    Temp = texto
    palabrasVector = Split(palabras_prohibidas, "#")
    For i = 0 To UBound(palabrasVector)
        Temp = Replace(Temp, palabrasVector(i), reemplazar, 1, -1, 1)
    Next
    filtrar_palabras = Temp
End Function
 

[u_goldman]

Bueno...se me ocurre algo como esto:

Código ASP:

'''Funcion para prohibir ciertas letras en la direccion
Function filtrar_palabras(texto)
    Dim Temp, palabrasVector, palabras_prohibidas, reemplazar, i, esCadenaValida
    reemplazar = "***"
    palabras_prohibidas = "piso#apto#apartamento#oficina#"
    Temp = texto
    palabrasVector = Split(palabras_prohibidas, "#")
    esCadenaValida = true
    For i = 0 To UBound(palabrasVector)
        'Temp = Replace(Temp, palabrasVector(i), reemplazar, 1, -1, 1)
        if instr(1,palabrasVector(i),texto) > 0 then
            esCadenaValida = false
            exit for
        end if
    Next
    'filtrar_palabras = Temp
    filtrar_palabras = esCadenaValida
End Function
 
Response.Write(filtrar_palabras("oficina") & "<br>")
Response.Write(filtrar_palabras("edificio") & "<br>")
 

Saludos

[lexus]

Hola gracias por ayudarme
lo probe asi con varias palabras y ambos me dieron verdadeero
lo cual deberia dar falso porque ingrese una palabra prohibida en el primer ejemplo

Código ASP:

'''Funcion para prohibir ciertas letras en la direccion
Function filtrar_palabras(texto)
    Dim  palabrasVector, palabras_prohibidas, i, esCadenaValida
    palabras_prohibidas = "piso#apto#apartamento#oficina#"
    palabrasVector = Split(palabras_prohibidas, "#")
    esCadenaValida = true
    For i = 0 To UBound(palabrasVector)
        if instr(1,palabrasVector(i),texto) > 0 then
            esCadenaValida = false
            exit for
        end if
    Next
    filtrar_palabras = esCadenaValida
End Function
 
Response.Write(filtrar_palabras("juan oficina") & "<br>")
Response.Write(filtrar_palabras("juan edificio") & "<br>")
 

[u_goldman]

Vamos, vamos lexus un poco de voluntad.

Código ASP:

'''Funcion para prohibir ciertas letras en la direccion
Function filtrar_palabras(texto)
    Dim  palabrasVector, palabras_prohibidas, i, esCadenaValida
    'La ultima almohadilla no es necesaria, esto ocasiona un string vacio
    palabras_prohibidas = "piso#apto#apartamento#oficina"
    palabrasVector = Split(palabras_prohibidas, "#")
    esCadenaValida = true
    For i = 0 To UBound(palabrasVector)
        'cambia el orden de los argumentos
        if instr(1,texto,palabrasVector(i)) > 0 then
            esCadenaValida = false
            exit for
        end if
    Next
    filtrar_palabras = esCadenaValida
End Function
 
Response.Write(filtrar_palabras("juan oficina") & "<br>")
Response.Write(filtrar_palabras("juan edificio") & "<br>")
 

Ahi debe quedar y si no me corto un....cabello