Parsing řetězců podle oddělovače

Seznam témat:

řešení

Řešení

Skript ukazuje dva způsoby získání podřetezců z řetězce za použití oddělovacího znaku (zde čárka).

var

 S,Token: string;

 I: integer;

begin

 S := 'aaa,bbb,ccc';

 //způsob první - přímočarý

 for I := 1 to TokenCount(S, ',') do

   ShowMessage(TokenExtract(S, I, ','));

 //způsob druhý - vhodný pro delší texty s mnoha podstringy

 I := 1;

 Token := TokenEnum(S, ',', I);

 while Token <> '' do begin

   ShowMessage(Token);

   Token := TokenEnum(S, ',', I);

 end;

end.

Související témata