Vos identifiants
Bienvenue
Voir tous les scripts
Pour mirc 6.1 et moins
Pour mirc 6.2
Pour mirc 6.3
Pour mirc 7.1
Top 10
Vous aimez ou détestez
Soumettre un script
Foire aux questions
Forum de discussion



Les bases du Scripting
Le virus "irc.worm.gen"
Le mIRC D'Or
ScreenShots
Le Défi du moment
Tag-moi-ça
Le Pire de l'IRC
L'IRC pour les nuls
Tutoriaux
Configurer UnrealIRCD
Configurer votre box
Attention à l'arnaque!
Usenet et les News
Arrêter de fumer
Un peu d'orthographe
Unreal/Anope Admin
mIRC Script Server
Proxy Web Chat
Magneto for Unreal
Super Poupées
Tour de cartes
L'Equipe
Partenariat
Administration

CodesWall: Déposer et coloriser des codes sources
Web Of Trust
www.chat.exolia.net (Francophone)
fantasya.org (Francophone)
hiersay (francophone)
JhdScript

                                            

$et()
Auteur(s): DixrouE
Date de soumission (Heure française): 13 janvier 2005 (04:55)
Taille du fichier: 729 Octets  
Type du fichier: snippet  
Déjà visualisé: 2202 fois
Poster un commentaire
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
}

Retour à la liste des snippets

De nightclub   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)) }

Si vous le souhaitez, vous pouvez laisser votre commentaire sur ce snippet:  
Vous identifier d'abord
 

Cette annonce est-elle crédible? Cliquez ici pour le savoir