createList

//HEADER: (texte,separateur, real);

/*DESCRIPTION:
 * Sript qui permet de creer une liste
 * à partir d'une chaine de mots/chiffres sépararé
 * par un sépérateur défini.
 */

/*ARGUMENTS:
 * 0: Texte à disséquer.
 * 1: Séparateur.
 * 2: real, indique s'il sagit de chiffres ou d'une chaine.
 */


var text, separator, list, length, word;

text=argument0; //Le texte à séparer.
separator=argument1; //On récupére le caractère qui sert de séparateur.
list= ds_list_create(); //On creer la liste à renvoyer.
length=string_length(text); //La longeur du texte.
word=''; //Variable qui sert à stocker les mots.


//On parcourt tout les caractères du texte.
for ( i=1; i<=length; i+=1 ) {
   
    //On récupére le caractère parcourut.
    character = string_copy(text,i,1);
   
    //Si le caractère n'est pas le séparateur on l'ajoute à la chaine "word".
    if(  character!=separator )
        word+=character;
    else{
    //Sinon on ajoute la chaine/chiffre "word" à la list et on la vide.
        if(argument2) word=real(word);
        ds_list_add(list,word);
        word='';
    }
}
//On retourne la liste creée.
return list;

ma_liste_de_fruits=createList(
'Fraise|'+
'Framboise|'+
'Banane|',
'|',
0);

ma_liste_de_proportions=createList(
'2|'+
'5|'+
'120|',
'|',
1);