Ho uno script che mi serve per bandire le parole poco ortodosse e sostituirle con gli asterischi, ad esempio "fico" viene sostituito con "****".
Il problema dello script è che prende tutto senza un'analisi logica, quindi anche se io scrivo "grafico" lui mi scrive "gra****" senza lasciare la parola per intero.
Lo script è questo ed è un pò di tempo che ci sono sopra senza nessun risultato
codice:
function badwords(stext)
stringa = stext
 
words = array(elenco parole)
 
  for k = lbound(words) to ubound(words)
    stringa = replace(stringa, words(k), string(len(words(k)),"*"))
	stringa = replace(stringa, ucase(words(k)), string(len(words(k)),"*"))
	stringa = replace(stringa, lcase(words(k)), string(len(words(k)),"*"))
  next
 
  badwords = stringa
end function