Regex en delphi?

**mickael.be** · 18/02/2006, 13h39

Hello,

Je cherche un moyen équivalent aux expression régulière en delphi..

Mon but : trouver l'Artiste/Nom d'un path mp3.

exemple C:/Sons/Anastacia - Left Outside Alone.mp3

1er : Récupérer tout ce qui est après le dernier \
ensuite mettre en variable ce qui est du côté gauche du -
et mettre en variable ce qui est du côté droit du - sans le .mp3

Qq à une idée?
Merci

**sjrd** · 18/02/2006, 13h51

Si tu tiens à utiliser les expressions régulières, il y a la bibliothèque TRegExpr disponible dans la page Composants Delphi de Développez.com.

Cependant, je te conseille de programmer le filtre toi-même ici. C'est très simple et sera plus rapide que l'utilisation de reg expr.

Avec les deux routines ci-dessous, que tu peux trouver dans l'unité SjrdStrUtils de mon cru :

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
// Renvoie la première sous-chaîne de S délimitée par Token
// (si Token n'est pas dans S, renvoie S)
function GetFirstToken(S : string; Token : Char) : string;
var I : integer;
begin
  I := 1;
  // On parcourt la chaîne jusqu'à trouver un caractère Token
  while (I <= Length(S)) and (S[I] <> Token) do inc(I);
  // On copie la chaîne depuis le début jusqu'au caractère avant Token
  Result := Copy(S, 1, I-1);
end;
 
// Renvoie la dernière sous-chaîne de S délimitée par Token
// (si Token n'est pas dans S, renvoie S)
function GetLastToken(S : string; Token : Char) : string;
var I : integer;
begin
  I := Length(S);
  // On parcourt la chaîne à l'envers jusqu'à trouver un caractère Token
  while (I > 0) and (S[I] <> Token) do dec(I);
  // On copie la chaîne depuis le caractère après Token jusqu'à la fin
  Result := Copy(S, I+1, Length(S));
end;

Tu peux faire très facilement ceci :

Code :

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

1
2
3
4
5
6
procedure GetArtistAndTitle(FileName : string; out Artist, Title : string);
begin
  FileName := GetFirstToken(GetLastToken(FileName, '\'), '.');
  Artist := Trim(GetFirstToken(FileName, '-'));
  Title := Trim(GetLastToken(FileName, '-'));
end;