Filtrar palavrões

[lote14 0]

Galera peço mais uma vez HELP!

 

Tenho um fórum que começou a bombar e já não consigo mais moderar comentários (E a galera é feroz, solta o verbo mesmo).

 

Consegui essa função na net que filtra palavras indesejadas (palavrões):

 

texto="computador babaca "
response.write FiltraPalavras(texto)


Function FiltraPalavras(texto)

sFiltro = "babaca|#@?$%~"
sTrataPalavras = Split(sFiltro, "|")  

 For i = 0 to Ubound(sTrataPalavras)
   texto= Replace(texto, sTrataPalavras(i), String(Len(sTrataPalavras(i)),"*"), 1,-1,1)
 Next

 FiltraPalavras = texto
End Function

 

Só que essa função como todas as outras que achei na net corta a palavra, tipo:

 

computador fica assim: com****dor

 

Pesquisei e achei algumas coisas em inglês falando sobre FAZER COM EXPRESSÕES REGULARES, alguém sabe pelo menos como começar isso.

 

Com somente replace e nesta função já tentei de tudo.

 

Alguém tem alguma idéia?

 

OBS: O imasters fez o que eu quero filtrou P*** por #@?$%~

[xanburzum 169]

olha esta função sempre uso ela

 

[code]Function Replace_Bad_Words(Data As String) As String


   If Data = "" Then Exit Function
   '-------------------------------------

   'Dirt Words----------------------
   Bad_Word = Array("ass", "bitch", "biatch", "blowjob", "bukkake", "bullshit", "cunt", "cum", "dicked", "dickhead" _
            & "dickweed", "dildo", "fuck", "gangbang", "goddamnit", "handjob", "jackoff", "motherfucker", "motherfucking" _
            & "pissed", "pisses", "---o", "pussy", "pussified", "shit", "titties", "twat")
   '--------------------------------

   'Replace Bad Words-----------------
   For Bad = 0 To UBound(Bad_Word)
   Data = Replace(Data, Bad_Word(Bad), String(Len(Bad_Word(Bad)), "*"), , , vbTextCompare)
   Next Bad
   '----------------------------------


   Replace_Bad_Words = Data
   '--------------------------

End Function

 

altere os palavrões para sua escolha

[lote14 0]

Cara essa função é em ASP 3.0?

 

Erro:

 

Erro de compilação do Microsoft VBScript (0x800A03EE)
')' esperado

Function Replace_Bad_Words(Data as string) as string
-------------------------------^

 

Tá dando esse erro:

 

Você sabe se ela ao digitar computador ela resulta em isso com****dor senão não serve já testei várias na net e todas não conseguem reconhecer a palavra exata.

[xanburzum 169]

verifique se os dados obtidos estão no tipo string