Discussion :

[ddubois]

J'ai une chaine (ci-dessous) dont je désire extraire les différentes valeurs : après "TM=" jusqu'au ":" mais en l'ignorant puis "LM=" enfin, S=

ID=eb6c3fc28f97f4ba:TM=1238254479:LM=1238254479:S=x02Pm545vTLO1z

J'ai commencé par :

Code :

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

1
2
 
Position := pos("TM", machaine);

Merci,

Daniel

[Just-Soft]

Salut;

Pour cela faudrait utiliser la fonction Copy de l'unité System. la touche F1 te guide vers un exemple de l'utilisation de cette magnifique fonction.

Bonne chance.

[Andnotor]

Tu pourrais aussi passer par une StringList en spécifiant ":" comme Delimiter.

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
function GetValue(const aVarName, aData :string) :string;
begin
  with TStringList.Create do
  begin
    Delimiter := ':';
    DelimitedText := aData;
    Result := Values[aVarName];
    Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetValue('TM', 'ID=eb6c3fc28f97f4ba:TM=1238254479:LM=1238254479:S=x02Pm545vTLO1z'));
end;

[ddubois]

Merci AndNotor. Ca marche au poil !

Denis