Utilisation d'une regex simple

Bonsoir,

J'aimerais pouvoir détecter plusieurs chaines qui sont du style :

[chaine1]
[chaine2]
chaine3
chaine 4

Code:

---

1 2 3 4 5 6 7

RegEx := TRegExpr.Create; try Regex.Expression := '[A-Za-z0-9_ ]'; if Regex.Exec(Name) then begin // Mon code de traitement ...

---

Cela fonctionne, mais je ne pense pas que la syntaxe soit géniale. La valeur des chaîne peut être n'importe quel carractère, l'important c'est de détecter et traiter celles qui commencent par '[' et qui ce terminent par ']'

Merci pour tout aide !

Bonsoir !

Pour commencer, voici une proposition qui permet de capturer ce qu'il y a entre les crochets :

Code:

---

.Expression := '[A-Za-z0-9_ ]+';

---

Et une autre qui capture les crochets avec la chaîne :

Code:

---

.Expression := '\[[A-Za-z0-9_ ]+\]';

---

Cela répond-il au besoin ?

Une proposition peut-être plus satisfaisante :

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

program Crochets;   uses RegExpr;   var r: TRegExpr; f: textFile;   procedure Check; var i: integer; begin WriteLn(f, StringOfChar('-', 80)); with r do begin WriteLn(f, 'InputString = ', InputString); for i := 0 to SubExprMatchCount do WriteLn(f, 'Match[', i, '] = ', Match[i]); end; end;   const SAMPLE: array[0..1] of string = ( 'abc123', '[abc123]' );   var i: integer;   begin Assign(f, 'log.txt'); Rewrite(f);   r := TRegExpr.Create; r.Expression := '(\[?)([A-Za-z0-9_ ]+)(\]?)';   for i := Low(SAMPLE) to High(SAMPLE) do begin r.Exec(SAMPLE[i]); Check; end;   Close(f); end.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

-------------------------------------------------------------------------------- InputString = abc123 Match[0] = abc123 Match[1] = Match[2] = abc123 Match[3] = -------------------------------------------------------------------------------- InputString = [abc123] Match[0] = [abc123] Match[1] = [ Match[2] = abc123 Match[3] = ]

---