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

Seznam témat:

řešení

Řešení

Skript ukazuje tři 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.

//způsob třetí - s dalšími možnostmi
var

 S: string;

 I: integer;

 List: TStringList;

begin

 S := 'aaa, bbb, ccc';

 List := TStringList.Create;

 try

   List.Delimiter := ',';

   List.StrictDelimiter := True; //zachovat mezery

   List.DelimitedText := S;

   for I := 0 to List.Count-1 do

     ShowMessage('"'+List[I]+'"');

 finally

   List.Free;

 end;

end.

Související témata