Discussion :

[SergioMaster]

Bonjour
Peut être peu d'entre nous savent qu'il y a une fonction Soundex (version anglaise) dans Strutils . Je voudrais utiliser celle-ci dans une recherche partielle de nom .
exemple
dans un fichier 'CLIENTS' contenant 3 champs

• CODE
• NOM
• SOUNDEXNOM

je voudrais faire une recherche dans la table (via SQL) selon un texte saisi
une recherche sur le nom ne pose pas de soucis

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

'SELECT CODE,NOM FROM CLIENT WHERE NOM LIKE %'+Edit1.text

(le Like est voulu si edit1.text='' alors j'ai ainsi tous les clients et bien sur j'utilise une requête paramétrée )
par contre je ne sais pas comment interroger sur SOUNDEXNOM
Si CODE='GIRARD' SOUNDEX aura la valeur 'G6630000' résultat de soundex('GIRARD',8)
en tapant 'GI' dans mon edit Soundex('GI',8)='G0000000' ce n'est donc pas par égalité que je vais faire ma requête .

Quelqu'un du forum connait-il 'l'Astuce' ?

[ShaiLeTroll]

En MySQL, SQL-Server, Oracle ... SoundEx existe nativement dans leurs variantes de SQL, PL/SQL, T-SQL...

Après bidouiller, un Soundex à la main dans le SQL, je ne sais pas, à coup de SUBSTR ?

[SergioMaster]

En MySQL, SQL-Server, Oracle ... SoundEx existe nativement dans leurs variantes de SQL, PL/SQL, T-SQL...

Sauf Firebird
Bon , j'ai bien lu l'excellent article de SQLPro sur le sujet L'art des soundex mais :
a- je ne voulais pas créer d'UDF
b- comme c'est pour une recherche anglophone je me suis dit qu'il y avait peut être moyen de travailler directement

il n'y semble pas y avoir de 'DIFFERENCE' proposé par certains des SGBD sus-cités

Après bidouiller, un Soundex à la main dans le SQL, je ne sais pas, à coup de SUBSTR ?

peut être pas tout a fait , mais c'est actuellement ma première direction de recherche :
1-Récupérer la première lettre
2-prendre la valeur numérique restante,re-formatter pour ôter les zéros non significatifs et un like ?

autre piste , implémenter (si elle n'existe pas) une fonction différence mais cela demanderais de changer la valeur du champ

enfin bien lire et appliquer ce que propose SQLPro , mais là , je suis pas trop chaud (ce serait pour mon usage je dis pas , mais pour un 'donation ware' je voudrais pas trop compliqué la sauce : UDF )

[SergioMaster]

En suivant ma première piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if Length(Edit1.Text)>0 then
  begin
    S:=soundex(Edit1.Text,8);
    for n:=length(S) downto 1 do
      if S[n]='0' then S[n]:=' '
      else break;
    Query1.Active:=False;
    Query1.ParamByName('SE').asString:=Trim(S);
    Query1.Active:=True;
  end;

Avec

Code SQL Query1 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SELECT CODE,NOM FROM CLIENTS WHERE SOUNDEX STARTING WITH :SE

Semble fonctionner
bien sur comme soundex fourni une chaine commençant par la première lettre de la chaine , ce ne sera pas phonétiquement parfait !
par exemple GIRARD et JIRARD
cependant si ma recherche est GIRA
j'aurais bien les :
GARAGE
GARDIN
GERARD
GIRARD
etc... c'est déjà pas mal
maintenant si quelqu'un connait un phoneex (en référence a l'article de SQL pro) anglais free , je pourrais bien être preneur

[BuzzLeclaire]

Salut Serge,

As-tu lu cet article :

soundex1

[SergioMaster]

Oui, merci Buzz , j'avais bien lu cet article entre autres

...une fonction différence... il ne semble pas y avoir de 'DIFFERENCE' proposé par certains des SGBD

(sous entendu en Delphi)

Cette fonction est implémentée dans certaines SGBD , mais ce qu'il me faudrait ce serait l'algorithme (je continue mes recherches) , et comme je ne veux pas faire une UDF (pour l'instant) je continue sur ma première piste

Déjà , si je comprend bien l'algorithme de Soundex mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    S:=soundex(Edit1.Text,8);
    for n:=length(S) downto 1 do
      if S[n]='0' then S[n]:=' '
      else break;

doit pouvoir "s'améliorer"
en utilisant un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
S:=soundex(Edit1.Text,8);
S:=StringReplaceStr(S,'0','',[rfReplaceAll]);

Pour ce qui est de l'histoire des sons identiques , j'ai commencé à m’intéresser a la phonétique (pêchée dans un vieux dico papier, mais je vais pas pousser le bouchon trop loin) j'en ai déduit que certains sons devaient se traiter en amont : par exemple X devient KS , j'ai même trouvé quelques tentatives dans ce sens (non garanties) ici mais ... je ne suis pas sur que ce ne soit déjà fait dans la fonction de Delphi (à vérifier )

[edit] la fonction delphi (du moins D7) ne tient pas compte de la phonétique
ou du moins pas entièrement :
- PH ne deviendra jamais F
- X n'est pas transformé en KS
- par contre CHR donne déjà CR (la lettre H ayant une valeur <=0 dans l'algorithme utilisé)
ne reste plus qu'a trouvé ce 'english phonems'

merci

[SergioMaster]

Cette fonction est implémentée dans certaines SGBD , mais ce qu'il me faudrait ce serait l'algorithme (je continue mes recherches)

DIFFERENCE semble utiliser l'algorithme de Jaro Winkler pour ceux qui sont curieux wiki on peut en trouver une transposition Delphi sur certains forums (concurrents donc non cités ) bon

[GoustiFruit]

Récemment j'ai eu à utiliser un algorithme semblable (Ratcliff/Obershelp), trouvé ici: http://lazarus.freepascal.org/index.php?topic=11387.0
Un petit article intéressant qui parle de Soundex, Jaro Winkler, Ratcliff et autres:
http://alexandrerodichevski.chiappan...?n=222&lang=en

[SergioMaster]

big @goustifruit je n'arrivai pas atteindre ce lien , j'avais uniquement le nom de l'auteur

[GoustiFruit]

Dire que j'ai failli ne pas poster, par peur du hors sujet !