Discussion :

[LaurentC33]

Bonsoir,

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

[chaine1]
[chaine2]
chaine3
chaine 4

Code :

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

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 !

[Roland Chastain]

Bonsoir !

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

Code :

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

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

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

Code :

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

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

Cela répond-il au besoin ?

[Roland Chastain]

Une proposition peut-être plus satisfaisante :

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
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 X :

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

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]          = ]