expresion regular para restringir letras

[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