Suche ähnlich wie Google

[nahpets]

Hallo,

Soundex hat für meine Begriffe den Nachteil, dass der erste Buchstabe übernommen wird und die Länge auf vier Zeichen begrenzt ist. Er ist ursprünglich auf englische/amerikanische Namen optimiert (im Jahre 1918).

Soundex bei Wikipedia

Schaut euch die Beispiele dort an und ihr merkt quasi sofort, wo die Schwachstellen liegen. Chaos und Kaos würden nie als identisch oder auch nur ähnlich erkannt.

[Andreas L.]

Zitat:

Zitat von nahpets

Hallo,

Soundex hat für meine Begriffe den Nachteil, dass der erste Buchstabe übernommen wird und die Länge auf vier Zeichen begrenzt ist. Er ist ursprünglich auf englische/amerikanische Namen optimiert (im Jahre 1918).

Soundex bei Wikipedia

Schaut euch die Beispiele dort an und ihr merkt quasi sofort, wo die Schwachstellen liegen. Chaos und Kaos würden nie als identisch oder auch nur ähnlich erkannt.

Die Funktion SoundEx erwartet als zweiten Parameter eine Längenangabe als Integer. Hier könnte man die Länge des Input-Strings nehmen und angefügte Nullen nachher entfernen.

Delphi-Quellcode:

ShowMessage(StringReplace(SoundEx(Edit1.text, Length(Edit1.text)), '0', '', [rfReplaceAll]));

[nahpets]

Zitat:

Zitat von Andreas L.

Die Funktion SoundEx erwartet als zweiten Parameter eine Längenangabe als Integer. Hier könnte man die Länge des Input-Strings nehmen und angefügte Nullen nachher entfernen.

Delphi-Quellcode:

ShowMessage(StringReplace(SoundEx(Edit1.text, Length(Edit1.text)), '0', '', [rfReplaceAll]));

Diese Variante entspricht aber dann nicht dem patentierten SoundEx, was sicherlich im Bezug auf die Vergleichbarkeit bei längeren Vergleichswerten vorteilhaft ist. Das Problem mit dem Anfangsbuchstaben bleibt. Gerade bei Worten die mit c oder k, v oder w... ist SoundEx nicht wirklich hilfreich.

Nehmen wir mal die Wikipediabeispiele:

Code:

Britney => BRTN => B635, 
Spears => SPRS => S162, 
bewährten => BRTN => B635, 
Superzicke => SPRZCK => S16222 => S162.

Von klanglicher Ähnlichkeit oder Schreibfehlern, wie Google sie erkennt, ist man hier weit entfernt.

[QuickAndDirty]

In diesem Link gibt es eine Abwandlung fürs slawische und jiddische
http://www.jewishgen.org/infofiles/soundex.html

Die kodieren auch den Anfangsbuchstaben

[QuickAndDirty]

Hier gibts was dazu
http://www.delphipraxis.net/internal...ct.php?t=41897

[Andreas L.]

Zitat:

Zitat von nahpets

Zitat:

Zitat von Andreas L.

Die Funktion SoundEx erwartet als zweiten Parameter eine Längenangabe als Integer. Hier könnte man die Länge des Input-Strings nehmen und angefügte Nullen nachher entfernen.

Delphi-Quellcode:

ShowMessage(StringReplace(SoundEx(Edit1.text, Length(Edit1.text)), '0', '', [rfReplaceAll]));

Diese Variante entspricht aber dann nicht dem patentierten SoundEx, was sicherlich im Bezug auf die Vergleichbarkeit bei längeren Vergleichswerten vorteilhaft ist. Das Problem mit dem Anfangsbuchstaben bleibt. Gerade bei Worten die mit c oder k, v oder w... ist SoundEx nicht wirklich hilfreich.

Nehmen wir mal die Wikipediabeispiele:

Code:

Britney => BRTN => B635, 
Spears => SPRS => S162, 
bewährten => BRTN => B635, 
Superzicke => SPRZCK => S16222 => S162.

Von klanglicher Ähnlichkeit oder Schreibfehlern, wie Google sie erkennt, ist man hier weit entfernt.

Ja, du hast recht. Die Ergebnisse werden aber besser wenn man die Routine SoundExInt verwendet. Bsp.:

Zitat:

Britney->34444754
Spears->497547233
bewährten->34444754
Superzicke->497553407
Khaos->277416350
Chaos->57177422
Briete->34336709
Breite->34336709
Brite->34336709
Mach mal->333318833
Macht->332929871
Geländer->170254232
Gländer->170254232
Länder->308706182
Laender->308706182
Laendr->308706182
Ländr->308706182

Das ist nicht das Non-Plus-Ultra. Aber für einfache Suchen reicht das doch vollkommen, oder?

[Gausi]

Und wenn man das ganze ohne Soundex machen will, was für Buchstabendreher und/oder Vertipper nur bedingt geeignet ist, muss man sich da über Levenshtein was selber basteln.

Ich habe da mal was vorbereitet ;-) http://www.delphipraxis.net/internal...t.php?t=134539

Eine direkte Funktion "Meinten Sie" ist nicht dabei, aber die alternativen Schreibweisen werden auch gefunden. :D

[Andreas L.]

Zitat:

Zitat von Gausi

Und wenn man das ganze ohne Soundex machen will, was für Buchstabendreher und/oder Vertipper nur bedingt geeignet ist, muss man sich da über Levenshtein was selber basteln.

Ich habe da mal was vorbereitet ;-) http://www.delphipraxis.net/internal...t.php?t=134539

Eine direkte Funktion "Meinten Sie" ist nicht dabei, aber die alternativen Schreibweisen werden auch gefunden. :D

Wurde ja schon im 2 Post verlinkt. Sieht jedenfalls interessant aus :thumb: Sollte sich der Threadersteller mal reinziehen.

[Gausi]

Ups, das habe ich übersehen. Der ist aber auch kurz und versteckt. :wink:

[nahpets]

Hallo,

@Andreas L.

Zitat:

Zitat von Andreas L.

Ja, du hast recht. Die Ergebnisse werden aber besser wenn man die Routine SoundExInt verwendet. Bsp.:

Zitat:

Britney->34444754
Spears->497547233
bewährten->34444754
Superzicke->497553407
Khaos->277416350
Chaos->57177422
Briete->34336709
Breite->34336709
Brite->34336709
Mach mal->333318833
Macht->332929871
Geländer->170254232
Gländer->170254232
Länder->308706182
Laender->308706182
Laendr->308706182
Ländr->308706182

Das ist nicht das Non-Plus-Ultra. Aber für einfache Suchen reicht das doch vollkommen, oder?

Über SoundExInt bin ich noch nicht gestolpert :oops: , habe was ähnliches seinerzeit mit dBase und später mit Turbopascal realisiert, um größere Datenbestände zu überarbeiten (dBase IV war da noch ganz neu).
Ausgehend von Deinen Beispielen halte ich diese Variante für die gestellte Aufgabe für aussreichend, selbst für mein "Doppeltensuchprogramm" für unser CRM ist es eine Überlegung wert, dies noch zusätzlich mit einzubauen.

@Gausi:

Deine Routinen habe ich mir noch nicht angeschaut, werde es aber asap nachholen.

Die Kombination von Kölner Phonetik und Levenshtein, hat mir bisher die besten Ergebnisse gebracht.