Retourne du texte de la façon suivante: $et(mot1 mot2 mot3 mot4) retourne mot1, mot2, mot3 et mot4 (69.70.178.***)
;exemple: $et(DixrouE sax ClickHeRe) retourne DixrouE, sax et ClickHeRe
alias et {
;On itinialise les variables var %a = 1, %b = $numtok($1-,32), %c, %d
;Tant qu'un mot existe while ($gettok($1-,%a,32)) {
;Si on est rendu plus loin que le premier mot if (%a > 1) {
;Si c'est l'avant dernier mot un met "et" sinon ","
%c = $iif(%a < %b,$chr(44),$+($chr(32),et))
;On ajoute le mot a %d (avec le "et" ou la ",")
%d = $+(%d,%c) $gettok($1-,%a,32)
}
;Si on est au premier mot else %d = $gettok($1-,%a,32)
;On incrémante la variable pour passer au mot suivant
inc %a
}
;On retourne la nouvelle chaîne de caractère return %d
}
