Page 1 of 1

[FR] Découper une chaine de caractères

Posted: 2008-08-19 22:20:32
by Darkgate
Bonjour à tous,

Existe t'il une fonction equivalente à explode en php dans le language de script de AMC. Si ce n'est pas le cas comment faire pour extraire les valeurs d'une chaine délimités par un caractère et appliquer un traitement a chacune de ces valeurs.

Merci d'avance

Posted: 2008-08-20 08:44:19
by antp
Soit il faut faire ça avec Pos et Copy pour rechercher et copier les éléments "manuellement", soit utiliser par exemple les fonctions dans StringUtils1.pas qui facilitent un peu ce boulot (TextBefore + variable RemainingText), soit utiliser l'objet TStringList dont la propriété Text permet de découper une chaîne ayant des retour à la ligne (#13#10) comme séparateurs :

Code: Select all

program NewScript;
var
  s: string;
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  s := 'test,2e élément,fin';
  SL.Text := StringReplace(s, ',', #13#10);
  for i := 0 to SL.Count - 1 do
  begin
    ShowMessage(SL.GetString(i));
  end;
end.

Merci

Posted: 2008-08-20 23:28:02
by Darkgate
Merci je vais essayer de m'en sortir avec tout ça.