Discussion :

[urbanspike]

Bonjour à tous,

Je cherche à extraire une chaine de caractère entre deux sigle |
En faite dans un mémo que je lis ligne par ligne, j'ai des lignes où je souhaite extraire le contenu.
Exemple:
dans la ligne ci-dessous
RES|GR(Hémoglobine (mmol/L))|NGR-HB-MML|N|8,0|mmol/l|8.1|10.6|L|F

je veux extraire ce qui se trouve entre le 2ème et 3ème | puis entre le 4ème et 5ème |
donc je devrais récupérer NGR-HB-MML et 8,0

pour corser le tout, les lignes ne contienne jamais le même nombre de caractère puisque sur cette autre ligne je vaux les même infos (entre 2 et 3 et 4 et 5ème |) :
RES|PLAQUETTES(Indice de Distribution Plaquettaire)|PQ-IDPS|N|13,2||8.7|16|N|F

j'imagine qu'il faut déterminer la position des | dans la ligne puis extraire avec copy mais je bloque étant débutant.

merci de votre aide précieuse.

[Paul TOTH]

plusieurs solutions

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
 
var
  s: TStringList;
begin
  s := TStringList.Create;
  s.Delimiter := '|';
  s.DelimitedText := 'un|deux|trois';
  ShowMessage(s[1]); // 0, 1 ou 2
  s.Free;
 
  s := TStringList.Create;
  Classes.ExtractStrings(['|'], [], 'un|deux|trois', s);
  ShowMessage(s[1]); // 0, 1 ou 2
  s.Free;
end;

[urbanspike]

Voilà ce que j'ai écrit, erreur access violation sur le s.delimiter :

Code :

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

1
2
3
4
5
6
7
 if (debut_ligne_lue = 'RES') and (fin_ligne_lue = 'F')  then
      s := TStringList.Create;
      s.Delimiter := '|';
      s.DelimitedText := ligne_lue;
      ShowMessage(s[1]);
      s.Free;
  end;

[urbanspike]

Super MILLE MERCI, j'ai corrigé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if (debut_ligne_lue = 'RES') and (fin_ligne_lue = 'F')  then
      begin
      s:= TStringList.Create;
      s.Delimiter := '|';
      s.DelimitedText := StringReplace(ligne_lue,' ','',[rfReplaceAll]);
      ShowMessage(s[2]);
      ShowMessage(s[4]);
      ShowMessage(s[5]);
      ShowMessage(s[6]);
      ShowMessage(s[7]);
      s.Free;
end;