Censurar Palavras

[xanburzum 169]

Esta função remove palavras a partir de uma string. Censurado palavras e outras são mantidas em um arquivo de texto. O formato do arquivo de texto é simples: uma palavra restrita por linha. O sistema vai ler as palavras e se houver restrita será substituida por xxx com as palavras do mesmo comprimento que o removeu palavra na seqüência. Não há qualquer limite para a quantidade de palavras que podem ser substituídas.

 

 

<%
Private Function Censor(byVal string)
Const WordList = "C:\dirtywords.txt"
Dim objFSO, objFile, tmp, item, word, a, b, x, y, i, c, j
Set objFSO  = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile( WordList )
tmp = split( objFile.ReadAll(), vbCrLf )
objFile.Close
Set objFile = Nothing
Set objFSO  = Nothing
x = split( string, " " )
for i = 0 to ubound(x)
 a = x(i)
 For each item in tmp
  b = item
  if cstr(trim(lcase(a))) = _
	 cstr(Trim(lcase(B))) then
   c = Len(a)
   a = ""
   for j = 1 to c
	a = a & "x"
   next
   a = a & ""
   exit for
  end if
 next
 x(i) = a
next
Censor = Join( x, " " )
End Function
%>

[Ted k' 126]

Parabéns, só faltou colocar o BBCode CODE, mais uma vez!

[xanburzum 169]

valeu, na proxima ja vai com BBCode CODE

[Ted k' 126]

tranqüilo cara!!!

 

agora o bom é que se as palavras estivessem separadas por vírgula, hehe, mais está bom!!