Discussion :

[joce21]

Bonjour!

J'ai un programme qui cherche à l'intérieur de dossier, comme la recherche de Windows.

J'utilise les méthodes FindFirst et FindNext pour ma recherche. Cependant, lorsque je cherche par exemple un fichier contenant "Établissement" dans son nom et que je tape "etablissement" dans mon programme, il ne trouvera pas le fichier.

Y-a-t-il solution pour qu'il ne prenne pas en considération les accents? Donc que e = é,è... a = à,â, etc...

Merci d'avance.

[Paul TOTH]

Bonjour!

J'ai un programme qui cherche à l'intérieur de dossier, comme la recherche de Windows.

J'utilise les méthodes FindFirst et FindNext pour ma recherche. Cependant, lorsque je cherche par exemple un fichier contenant "Établissement" dans son nom et que je tape "etablissement" dans mon programme, il ne trouvera pas le fichier.

Y-a-t-il solution pour qu'il ne prenne pas en considération les accents? Donc que e = é,è... a = à,â, etc...

Merci d'avance.

pas que je sache...reste la solution de prendre *.* et de filtrer les résultats après coup.

[GoustiFruit]

Peut-être avec un soundex ?

[ShaiLeTroll]

La Méthode de Paul Toth, est assez simple, comparer a posteriori sans accents le nom de fichier récupéré et le nom voulu
Un sujet utile : Y-a-t-il plus rapide pour enlever les accents ?

Tu pourrais utiliser le caractère ?
Je n'ai jamais testé mais cela permet d'avoir qu'une seule lettre substitué

remplace tous les accents par ?
etablissement devrait s'écrire établissement donc ?tablissement
Si c'est une recherche libre, il te faudrait un dictionnaire, cela semble peu pratique !
Sinon il faudrait limiter la recherche à une liste de mot prédéfini !

[Andnotor]

FoldString est la fonction à utiliser

MAP_COMPOSITE va "exploser" les caractères accentués. Idem pour les ligatures avec MAP_EXPAND_LIGATURES.
Une boucle de suppression des accents et le tour est joué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function PrepareString(aValue: string): string;
const
  MAP_EXPAND_LIGATURES = $00002000;
var
  i :integer;
  //
  function DoFoldString(aMapFlags :cardinal; aText :string) :string;
  var
    Len :integer;
  begin
    Len := FoldString(aMapFlags, PChar(aText), Length(aText), nil, 0);
    SetLength(Result, Len);
    FoldString(aMapFlags, PChar(aText), Length(aText), PChar(Result), Len);
  end;
  //
begin
  //Supprime les ligatures
  Result := DoFoldString(MAP_EXPAND_LIGATURES, aValue);
 
  //Explose la chaîne en caractères et accents
  Result := DoFoldString(MAP_COMPOSITE, Result);
 
  //Supprime les accents
  for i := Length(Result) downto 1 do
    if not IsCharAlpha(Result[i]) then
      Delete(Result, i, 1);
end;

L'avantage ? Ça fonctionne quelque soit la langue, y compris sur des chaînes unicodes

Edit: Depuis XE, on pourrait encore affiner la boucle de suppression en utilisant les fonctions de l'unité Character.

[ShaiLeTroll]

FoldString ! Fallait la connaître et avoir l'idée de nettoyer les accents après ! Joli !
En plus, j'ai fait une fonction en Delphi 3 qui transformait œ en oe
Si j'avais su ça en 2004 !

Faudrait voir les performances de FoldString rapport au meilleur code du sujet Y-a-t-il plus rapide pour enlever les accents ?


AndNotOr