|
 |
|
;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
}
| |
|
Retour à la liste des snippets
|
|
| De le 10 février 2005 (15:04) (81.48.34.***) |
|
Pour un truc aussi simple pourquoi boucler quand ce n'est pas utile? J'aurais fait comme ça plutôt :
alias et { var %v = $replace($1-,$chr(32),$chr(44) $+ $chr(32)) ,%n = $numtok(%v,44) | return $iif(%n < 2, $1, $deltok(%v,%n,44) et $gettok(%v,%n,44)) }
|
| |
|
|
|
Cette annonce est-elle crédible? |
|
|
|
