Gracias!
Aca publico un código que encontré que puede ser de utilidad:
Código:
Function filtrar(ByVal strYourString)
Dim arrBadLanguageWords(2)
Dim I '-------------[ Array of dirty words ]-----------------------
arrBadLanguageWords(0) = "badwords1"
arrBadLanguageWords(1) = "badwords2"
arrBadLanguageWords(2) = "badwords3"
'-------------[ /Array of dirty words ]-----------------------
For Each I in arrBadLanguageWords
strYourString = Replace(strYourString,I," " & String(Len(I) ,"*") & " ")
Next
filtrar = strYourString
End Function
Podrían mejorarse aspectos como :
1- Sacar las palabras prohibidas de la base de datos.
2- Detectar otras posibles palabras, como número de teléfonos, etc.
3- reemplazar palabras antes y despues de algunas prohibidas (como "arroba")
si el usuario escribe algo como "escribeme a fulano arroba hot mail", debería reemplazar también la palabra fulano, pues, se puede intuir o probar con hotmail, yahoo etc y dar con la dirección.
Si alguien quiere dedicarle un rato de su tiempo a esto y publicarlo sería genial, pues, es por el bien de todos...yo haré mi parte y lo publicaré.
Saludos, Luis