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