String sString;
String[] Tableau;
 


sString = "1;21-5;6;7*;8-95;200;4+1";
Tableau = sString.split(";"); 

var separator = ";";
var string = "1;2;3-4;6";
var array = string.split(separator );

#include <stdio.h>
#include <string.h>
int main ()
{
  char s[] ="1;21-5;6;7*;8-95;200;4+1";
  char* delimiteur = ";" ; 
 
  char* p = strtok (s, delimiteur); 
  while (p != NULL) 
  { 
    printf ("[%s]\n",p); 
    p = strtok (NULL, delimiteur); 
  } 
 
  return 0; 
}

{
- perf 78..94 ms/100KCalls :: ~0.00086ms/Call
- Str : chaine delimitée 
- Delimiter : delimiteur a longeur variable (chaine ou caractere)
- Index : index d'interval 1..n de la sous-chaine a extraire
}
function GetStrPart(const Str, Delimiter: String; const Index: cardinal = 1): String;
var I,P1,P2 : integer;
begin
  Result := '';
  if (posex(Delimiter,Str[1]) = 1) and (Index <= 1) then exit;
  P1 := 1;
  for I := 1 to Index-1 do begin
      P1 := posex(Delimiter, Str, P1);
      if P1 = 0 then exit
      else P1 := P1 + length(Delimiter);
  end;
  P2 := posex(Delimiter, Str, P1);
  if P2 = 0 then P2 := length(Str) + 1;
  Result := copy(Str, P1, P2 - P1);
end;

/*********************************************************************************
Fonction d'éclatement d'une chaine de caractère en une table en fonction d'un séparateur
-----------------------------------------------------------------------------------
@PInStrSource :        Chaine de caractère source
@pInChrSeparator :    séparateur
**********************************************************************************/
CREATE FUNCTION [dbo].Split(
   @PInStrSource varchar(8000) = NULL, @pInChrSeparator char(1) = ';'
 )
 RETURNS @ARRAY TABLE (ItemValue VARCHAR(1000))
AS
BEGIN
DECLARE @CurrentStr varchar(2000)
DECLARE @ItemStr varchar(200)
SET @CurrentStr = @PInStrSource
WHILE Datalength(@CurrentStr) > 0
BEGIN
    IF CHARINDEX(@pInChrSeparator, @CurrentStr,1) > 0 
    BEGIN
        SET @ItemStr = SUBSTRING (@CurrentStr, 1, CHARINDEX(@pInChrSeparator, @CurrentStr,1) - 1)
        SET @CurrentStr = SUBSTRING (@CurrentStr, CHARINDEX(@pInChrSeparator,
            @CurrentStr,1) + 1, (Datalength(@CurrentStr) - CHARINDEX(@pInChrSeparator, @CurrentStr,1) + 1))
        INSERT @ARRAY (ItemValue) VALUES (@ItemStr)
    END
    ELSE
    BEGIN                
        INSERT @ARRAY (ItemValue) VALUES (@CurrentStr)    
        BREAK;
    END 
END
RETURN
END

var MyString:String = "1;21-5;6;7*;8-95;200;4+1";
var MySeparator:String = ";";
var my_array:Array = MyString.split(MySeparator);
for (var i = 0; i<my_array.length; i++) {
     trace(my_array[i]);
}

sString est une chaîne = "1;21-5;6;7*;8-95;200;4+1";
sVal est une chaîne
sResultat est une  chaîne
i est un entier
POUR TOUTE CHAINE sVal DE sString SEPAREE PAR ";"
    i++
    sResultat +=    sVal + RC
FIN
Info(sResultat)

f = lambda s,d=';': s.split(d)