[Resolvido] Substituindo palavras em uma String

[xanburzum 169]

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 'm*****' ,'p****', 'f***' etc,são inaceitáveis e devem ser removidas.

 

Exemplo 1:

 

<%
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 m***** e substituí-lo com ****. O script obtém a primeira letra d palavrão e substitui todas as outras letras com *.

 

Exemplo 2:

 

<%
Dim sMimhaString
sMimhaString = ReplaceBadWords("isso é uma m***** , da p**** 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("m*****", "p****", "f***")
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
%>