[eggdrop TCL]Récuperer mot entre crochet dans une variable..

Salut à tous

J'aimerai recupérer ce que dit une personne entre crocher sous une variable

Exemple:

< Henry >: [ TEST ] [ BONJOUR ] [ AUREVOIR ]

je voudrai donc recuperer le mot TEST dans une variable , le mot BONJOUR dans une autre et le mot AUREVOIR encore dans une autre... étant donné que ces mot sont aléatoir.. mais je n'arrive pas a cause des crochets...

Merci à vous

autant les supprimer tokenize 32 $remove($1-,$chr(91),$chr(93)) var %1 $1 , %2 $2 , %3 $3

fjxokt -> c'est du TCL

Je ne sais pas si on peux supprimer des caractères en TCL mais peut être que tu peux essayer un truc du genre:

set mot1  lindex [ lindex [ split $phrase "["  1 ] split $phrase "]" 0 ]
set mot2 lindex [ lindex [ split $phrase "[" 2 ] split $phrase "]" 1 ]
...


Cependant, je ne sais pas si la syntaxe est correcte

oups désolé je n'avais pas lu le titre du post -_-'

et pour le bind je met quoi ?

donc j'ai mis ça

proc proc_test{ nick uhost hand arg } {
  global chanbot
set mot1  lindex [ lindex [ split $phrase "["  1 ] split $phrase "]" 0 ]
set mot2 lindex [ lindex [ split $phrase "[" 2 ] split $phrase "]" 1 ]
putserv "PRIVMSG $chanbot : $mot1 $mot2"

}

seulement il met met ça

Tcl error [proc_test]: missing close-bracket

Salut,

essaie

regexp -- {\[ (.+) \] \[ (.+) \] \[ (.+) \]} $arg - test bonjour aurevoir

Et tu recupères avec $test , $bonjour et $aurevoir .

oui mais test bonjour et aurevoir sont aleatoire ... il change tout le temps

Je comprend pas trop ce que tu veux faire?

bind pubm - * proctest
proc proctest {n u h c a} {
 regexp blabla
putserv "privmsg $c :$test $bonjour $aurevoir"
}

??

Bah par exemple j'écris ça

[ TEST ]  [ BONJOUR ] LOL

Je voudrais que le TEST soit mis dans une variable, pareil pour le BONJOUR et pour le LOL
sachant que au lieu de TEST, BONJOUR et LOL je pourrais avoir sa

[ Plop ]  [ Gillo ] MDR

et sa me mettre plop dans une variable, gillo dans une autre et MDR dans une autr E...