Фильтратор матерных слов, как подобное реализовать?

[kropotkina-alice]

Сообщение от Serge_Bliznykov

FleXik, про синонимы можете сразу забыть, идея очень плохая

Вы очень правы.
Если позволите мне мои 5 копеек (я так поняла - несколько "не ко двору" тут пришлась, в этом сугубо мужском коллективе, но тем не менее) - идея просто дурацкая...
По той простой причине, что ещё ни один из знающих предмет лингвистов не решился на такой подвиг - найти хотя бы просто все матерные слова...
А вы тут вокруг да около кружите... в тщетных надеждах осчастливить мир...
Ну не тянет это даже на курсовую, не говоря уж о диссертации...

[NIKOLAYY2]

FleXik
Фильтратор матерных слов, как подобное реализовать?

При помощи регулярки конечно

У кого какие идеи?

Одно стоп-слово (мат)- один шаблон

Просто беда в том что матерных слов огромное количество

Придумай хотя-бы больше 30 матерных слов?
Все твои остальные слова будут либо псевдоматы, либо попытки обхода мата от обнаружения, добавлением в мат спец-символов, точек звездочек и тд
Ну, маты здесь нельзя, я пример приведу по слову что ниже

к.озел
ко*зел
к*о*з*е*л
k0zel
ко3ел
коzёл

и тд, это список можно продолжать бесконечно, но от хорошего фильтра (да вернее простейшего шаблона!) не уйти от такого рода ухищрений.

Вобще суть такова я тебе накидал пример на одном шаблоне, которое уловит огромное количество плохих слов, но этого как бы мало, запиши все шаблоны в текстовой файл, вставляй в
r.Expression циклом
у тебя их будет 30- 40 мат-слов максимум и вылавливай "плохие" слова сотнями и даже тысячами из текста!
Шаблоны то что я в гугле нашел, они довольно слабы под каждое слово мат, поэтому спрашивай здесь, я тебе их напишу или другие напишут.

А так вобще учи регулярку- делай все сам, ей все можно делать и заменять даже слова, вставлять например в текст [censored] где был мат так же можно при помощи нее!
Пример смотри на картинке.

var
  r: TRegExpr;
begin
  r := TRegExpr.Create;
  r.InputString := RichEdit1.Text; //где ищем
  r.Expression := '([кk].?[оoаa0].?[зz3].?[еeё].?[лl])'; //шаблон
  if r.Exec then
  begin
    repeat
      RichEdit2.Lines.Add('[' + r.Match[1] + ']' + ' = мат');
      RichEdit1.SelStart := r.MatchPos[1] - 1; //начало позиции типа Pos
      RichEdit1.SelLength := r.MatchLen[1]; //длина
      RichEdit1.SelAttributes.Color := clRed; //выделим
    until not r.ExecNext;
  end;
end;

[kropotkina-alice]

Сообщение от NIKOLAYY2

Придумай хотя-бы больше 30 матерных слов?

Какой у вас скудный словарный запас...
Любой школьник выдаст вам пару сотен и без всяких синонимов...