Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 #@?$%~
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.
verifique se os dados obtidos estão no tipo string
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