AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Eine Funktion zum Zensieren

Eine Funktion zum Zensieren

Ein Thema von robinWie · begonnen am 22. Jun 2006 · letzter Beitrag vom 22. Jun 2006
Antwort Antwort
Seite 2 von 3     12 3   
Benutzerbild von robinWie
robinWie
Registriert seit: 26. Okt 2005
Hallo,
ich habe mal zwei Funktionen (eine für ein TMemo und eine für ein TRichEdit) geschrieben, mit den man Texte Zensieren kann. Sind bisjetzt nicht sehr viele Wörter, aber mehr sind mir nicht eingefallen. Ich bin halt gut erzogen . Einiger Wörter werden nicht zensiert sonder ersetzt.
Ihr könnt die Liste ja erweitern.

Delphi-Quellcode:
 // Funktion fuers Memo
function CensorMemo(Memo: TMemo): Boolean;
var
 S: string;
 i: integer;
begin
  try
    Assert(Assigned(Memo));
    for i := 0 to Memo.Lines.Count-1 do
      begin
        S := UpperCase(Memo.Lines.Strings[i]);

        //English Words
        S := StringReplace(S, 'FUCK', 'F**K', [rfReplaceAll]);
        S := StringReplace(S, 'BITCH', 'B***H', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKER', 'F***ER', [rfReplaceAll]);
        S := StringReplace(S, 'ASSHOLE', 'A**HOLE', [rfReplaceAll]);
        S := StringReplace(S, 'SHIT', 'S**T', [rfReplaceAll]);
        S := StringReplace(S, 'NIGER', 'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'NIGGER', 'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKING', 'F***ING', [rfReplaceAll]);

        //German Words
        S := StringReplace(S, 'ARSCHLOCH', 'A****loch', [rfReplaceAll]);
        S := StringReplace(S, 'WIXER', '<PIEP>', [rfReplaceAll]);
        S := StringReplace(S, 'SCHLAMPE', 'PROMISKE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'PENNER', 'OBDACHLOSER', [rfReplaceAll]);
        S := StringReplace(S, 'KANAKE', 'UNSOZIALE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'PARASIT', 'UNSOZIALE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'HURRE', 'Prostituierte', [rfReplaceAll]);
        S := StringReplace(S, 'HURE', 'Prostituierte', [rfReplaceAll]);
        S := StringReplace(S, 'HURRENSOHN', 'SOHN EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'HURRENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'HURENSOHN', 'SOHN EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'HURENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'KAKKE', 'FÄKALIEN',        [rfReplaceAll]);
        S := StringReplace(S, 'KAKE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'KAGE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'WIXE', 'EJAKULAT',        [rfReplaceAll]);
        S := StringReplace(S, 'WIX', 'EJAKULAT',        [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISSE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISS', 'SCH***S', [rfReplaceAll]);
        S := StringReplace(S, 'ARSCH', 'A***H', [rfReplaceAll]);

        Memo.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
end;

//Funktion fuers TRichEdit

function CensorRichText(RTF: TRichEdit): Boolean;
var
 S: string;
 i: integer;
begin
  try
    Assert(Assigned(RTF));
    for i := 0 to RTF.Lines.Count-1 do
      begin
        S := UpperCase(RTF.Lines.Strings[i]);

        //English Words
        S := StringReplace(S, 'FUCK', 'F**K', [rfReplaceAll]);
        S := StringReplace(S, 'BITCH', 'B***H', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKER', 'F***ER', [rfReplaceAll]);
        S := StringReplace(S, 'ASSHOLE', 'A**HOLE', [rfReplaceAll]);
        S := StringReplace(S, 'SHIT', 'S**T', [rfReplaceAll]);
        S := StringReplace(S, 'NIGER', 'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'NIGGER', 'AFRICAN', [rfReplaceAll]);
        S := StringReplace(S, 'FUCKING', 'F***ING', [rfReplaceAll]);

        //German Words
        S := StringReplace(S, 'ARSCHLOCH', 'A****loch', [rfReplaceAll]);
        S := StringReplace(S, 'WIXER', '<PIEP>', [rfReplaceAll]);
        S := StringReplace(S, 'SCHLAMPE', 'PROMISKE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'PENNER', 'OBDACHLOSER', [rfReplaceAll]);
        S := StringReplace(S, 'KANAKE', 'UNSOZIALE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'PARASIT', 'UNSOZIALE PERSON', [rfReplaceAll]);
        S := StringReplace(S, 'HURRE', 'Prostituierte', [rfReplaceAll]);
        S := StringReplace(S, 'HURE', 'Prostituierte', [rfReplaceAll]);
        S := StringReplace(S, 'HURRENSOHN', 'SOHN EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'HURRENTOCHTER','TOCHTER EINER Prostituierten', [rfReplaceAll]);
        S := StringReplace(S, 'KAKKE', 'FÄKALIEN',        [rfReplaceAll]);
        S := StringReplace(S, 'KAKE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'KAGE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'WIXE', 'EJAKULAT',        [rfReplaceAll]);
        S := StringReplace(S, 'WIX', 'EJAKULAT',        [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISSE', 'FÄKALIEN', [rfReplaceAll]);
        S := StringReplace(S, 'SCHEISS', 'SCH***S', [rfReplaceAll]);
        S := StringReplace(S, 'ARSCH', 'A***H', [rfReplaceAll]);
        RTF.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
end;
[edit] Rechtschreibfehler berichtigt [/edit]
Ein Computer kann (fast) alles.... Man muss es ihm nur beibringen
 
Benutzerbild von robinWie
robinWie

 
Delphi 2005 Personal
 
#11
  Alt 22. Jun 2006, 18:49
Zitat:
*motz* Fäkalien schreibt man mit Ä
Danke für den Hinweis.
__________________________________________________ ___________________
So. Jetzt kommt bei "WordList" der Dateiname der Ini rein.
[edit]Es gibt noch eine Freiheit: Man kann die Section angeben und das beste
jetzt funktioniert es [/edit]
Delphi-Quellcode:
function CensorMemo(Memo: TMemo; WordList, Section: string): Boolean;
var
 S: string;
 i,i1: integer;
 F: TiniFile;
 List1, List2: TStringList;
begin
  try
    Assert(Assigned(Memo));
    List1 := TStringList.Create;
    List2 := TStringList.Create;
    F := TIniFile.Create(WordList);
    F.ReadSection (Section, List1);

     for i := 0 to List1.Count -1 do
      List2.Add(F.ReadString(Section, List1.Strings[i], '<PIEP>'));

    for i := 0 to Memo.Lines.Count -1 do
      begin
        S := UpperCase(Memo.Lines.Strings[i]);
        for i1 := 0 to List1.Count -1 do
          S := StringReplace(S, List1.Strings[i1], List2.Strings[i1], [rfReplaceAll]);
        Memo.Lines.Strings[i] := LowerCase(S);
      end;
    Result := True;
  except
    Result := False;
  end;
  List1.Free;
  List2.Free;
  F.Free;
end;
Robin W.
  Mit Zitat antworten Zitat
Benutzerbild von dahead
dahead
 
#12
  Alt 22. Jun 2006, 18:50
was ist denn ein/eine hurre?

sicherlich nicht "PROSTITUIRTE". wie wärs, wenn du bevor du ein "zensurprogramm" schreibst, dich über rechtschreibung informierst?

edit2: schön, dass du das e eingefügt hast. du könntest außerdem noch ein r entfernen, allerdings in dem "bösen" wort.
  Mit Zitat antworten Zitat
Benutzerbild von robinWie
robinWie

 
Delphi 2005 Personal
 
#13
  Alt 22. Jun 2006, 19:16
Zitat:
du könntest außerdem noch ein r entfernen, allerdings in dem "bösen" wort.
Robin W.
  Mit Zitat antworten Zitat
Benutzerbild von Khabarakh
Khabarakh
 
#14
  Alt 22. Jun 2006, 19:17
Erst einmal, warum setzt du nicht HawkEyes Vorschlag um? Außerdem solltest du wieder auf TStringList als Parameter umsteigen. Wenn dabei ein abstrakter Fehler kommt, hast du irgendwo einen Fehler gemacht .
Und nenn mir einen triftigen Grund, warum du die Exception abfängst .
Sebastian
  Mit Zitat antworten Zitat
Benutzerbild von Martin K
Martin K

 
Turbo Delphi für Win32
 
#15
  Alt 22. Jun 2006, 19:20
Zitat von robinWie:
Zitat:
du könntest außerdem noch ein r entfernen, allerdings in dem "bösen" wort.
Ohne Worte...
Miniaturansicht angehängter Grafiken
word_257.gif  
  Mit Zitat antworten Zitat
Benutzerbild von robinWie
robinWie

 
Delphi 2005 Personal
 
#16
  Alt 22. Jun 2006, 19:28
Ich habe das Wort jetzt mit einem r hinzugefügt. Fall der Anwender das mit rr schreiben sollte, wird es auch zensirt
Robin W.
  Mit Zitat antworten Zitat
Benutzerbild von Martin K
Martin K

 
Turbo Delphi für Win32
 
#17
  Alt 22. Jun 2006, 19:33
Zitat von robinWie:
Ich habe das Wort jetzt mit einem r hinzugefügt. Fall der Anwender das mit rr schreiben sollte, wird es auch zensirt
Dann bleibt noch Hurrensohn und Hurrentochter...
  Mit Zitat antworten Zitat
Benutzerbild von Stefan Hueg
Stefan Hueg

 
Delphi 2006 Professional
 
#18
  Alt 22. Jun 2006, 19:36
Möchte hier nur mit einwerfen, dass es doch evtl. besser wäre das ganze mit regulären Ausdrücken zu machen, oder nicht?

Ich weiss nicht inwiefern das umsetzbar ist, habe mich damit noch nicht beschäftigt, aber wäre ein denkansatz wenn du ernsthafte Zensur betreiben willst da deine Methodik sehr ungenau ist.
Stefan Hueg
  Mit Zitat antworten Zitat
Benutzerbild von robinWie
robinWie

 
Delphi 2005 Personal
 
#19
  Alt 22. Jun 2006, 19:49
Könnt ihr nicht mal die Augen zu machen Ich will nicht ständig was berichtigen
Robin W.
  Mit Zitat antworten Zitat
fLaSh11
 
#20
  Alt 22. Jun 2006, 20:03
wtf. ist ein Hurer im Word.gif
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz