[xanburzum]

Abaixo são dois exemplos de como lidar com palavrões, ou palavras de baixo-calão. Exemplo 1 texto recebe em um textfield chamado 'txtComentarios'. cadastramos as palavras que serao trocadas na matriz "badChars ', temos que considerar as palavras 'merda' ,'porra', 'foda' etc,são inaceitáveis e devem ser removidas.

Exemplo 1:

CÓDIGO

<%
Dim sComments
sComments = ReplaceBadWords(Request.Form("txtComentarios"))
response.write sComentarios

Function ReplaceBadWords(InputComentarios)
Dim badChars, newChars, i
'create our array of bad words
badChars = array("rubbish", "crap", "shit")
newChars = InputComentarios
for i = 0 to uBound(badChars)
newChars = Replace(newChars, badChars(i), "")
Next
ReplaceBadWords = newChars
End function
%>

Ao invés de simplesmente remover apenas o palavrão ,abaixo é um script que terá um palavrão , como merda e substituí-lo com ****. O script obtém a primeira letra d palavrão e substitui todas as outras letras com *.

Exemplo 2:

CÓDIGO

<%
Dim sMimhaString
sMimhaString = ReplaceBadWords("isso é uma merda , da porra de palavrão")
response.write sMimhaString

Function ReplaceBadWords(InputComentarios)
Dim badChars, newChars, sLength, sAttachtoEnd, x, i
'criar uma série de palavrões, que deve ser filtrada
badChars = array("merda", "porra", "foda")
newChars = InputComentarios
'Loop através de nossa matriz de palavrões
For i = 0 to uBound(badChars)
'Obter o comprimento do palavrão
sLength=Len(badChars(i))
'Vamos manter a primeira letra do palavrão e substituir todos as outras
'letras com *, então precisamos descobrir quantos * para usar
For x=1 to sLength-1
sAttachtoEnd=sAttachtoEnd & "*"
Next
'Substituir todas as ocorrências do palavrão com a primeira letra do mesmo e no
'resto das cartas substituir com *
newChars = Replace(newChars, badChars(i), Left(badChars(i),1) & sAttachtoEnd)
sAttachtoEnd=""
Next
ReplaceBadWords = newChars
End function
%>