Filtro de palabras no deseadas

[delorenzis]

Hola, tengo la siguiente duda,

La idea es hacer un filtro de palabras indeseadas, tengo una BD access con varias palabras no deseadas (grocerias)..

Alguna idea de como verificar si una cadena contiene alguna de las palabras que tengo en la base de datos? algun ejemplo de codigo?

Gracias.

[mc_quake]

function limpia(text,encode)
dim banned,i
limpia=text
banned = array("poto","cenos","maraca","feo","tonto","conch etumardre")
for i = 0 to uBound(banned)
limpia = replace(limpia, banned(i),"")
next
if encode=true then
limpia=server.htmlencode(limpia)
end if
end function

se usa asi

variable con palabras no deceadas

texto_a_limpiar = "esa mujer es tonta, y su madre es una maraca"

texto_limpio = limpia(texto_a_limpiar)

quedandoo asi texto_limpio = "esa mujer es , y su madre es una "

[Muzztein]

Iniciado por mc_quake

function limpia(text,encode)
dim banned,i
limpia=text
banned = array("poto","cenos","maraca","feo","tonto","conch etumardre")
for i = 0 to uBound(banned)
limpia = replace(limpia, banned(i),"")
next
if encode=true then
limpia=server.htmlencode(limpia)
end if
end function

se usa asi

variable con palabras no deceadas

texto_a_limpiar = "esa mujer es tonta, y su madre es una maraca"

texto_limpio = limpia(texto_a_limpiar)

quedandoo asi texto_limpio = "esa mujer es , y su madre es una "

excelente ejemplo !