Equivalent $2 en tclRésolu

Question

Bonjour,
Je suis une développeur et je n'arrive à trouver sur aucun site, l'équivalent de $1, $2, $3,etc.. (deuxième,trois[...] mot ou caractère d'une phrase) en TCL.

Si quelqu'un pourrait m'aider se serait super, merci d'avance.


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_KiNdErMaXi · Accepted Answer

Hello,

Admettons que tu ais une phrase "bonjour je suis ScriptingBen".
Tu cherches le $1, $2, $3 et $4.
Il faut considérer la phrase comme une liste (en tcl) et lire (grâce à lindex) le nème élément.

Si tu veux avoir le $1, tu utilises donc :
[lindex "bonjour je suis ScriptingBen" 0]
Ça va te retourner bonjour
Pour le $2,
[lindex "bonjour je suis ScriptingBen" 1]
Ça va te retourner je

Etc...

Tu as pu voir que la liste commence à 0, contrairement au mIRC qui comment à $1.


J'espère avoir été clair

cs_ScriptingBen · Answer

*Faute de phrase "un développeur et non pas une développeur" :)


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_ScriptingBen · Answer

Pour ceux qu'il n'auraient pas trouvé ma question claire je la reformule:

Je cherche l'équivalent de $1, $2, $3, etc.. (mIRC) en TCL.

Merci pour vos réponses.


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_ScriptingBen · Answer

Et par la même occasion de: $1-, $2-, $3-, etc... (qui reprend tout le text après le Nème mot) 


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_PaDa · Answer

Les fonctions tcl ne marchent pas de la même façon qu'en scripting mirc (à ma connaissance). Tu n'as qu'à regarder les exemples ici : http://www.csadmin.net/aidetcl.php

cs_ScriptingBen · Answer

Oui j'ai déjà vu ce site mais ça ne m'a pas aidé :/


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_ScriptingBen · Answer

Bonjour KiNdErMaXi,

Ton aide m'a été précieuse, encore un grand merci et bonne continuation 


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_ScriptingBen · Answer

J'ai encore une question, donc le problème de rechercher un mot j'ai comprit mais maintenant ce que j'aimerais c'est qu'il prenne par exemple le deuxième mot, c'est à dire, le mot juste après la !commande qui serait un pseudo donc il me manque une variable pour définir le texte entré par la personne qui fait la commande.

Merci d'avance. 


~ScriptinG_Ben~ Bonne continuation à tous ;)

cs_KiNdErMaXi · Answer

Si c'est déclenché par l'évènement "pub" (donc sur un salon), il faut récupérer la variable text ou arg.

Par exemple, si tu veux que ton bot réagisse à la commande !pouet, il te faudra ce code :
bind pub - !pouet procdetacommande
proc procdetacommande { nick hand host channel arg } {
putspeed "PRIVMSG $channel :$arg"
}

Donc ici, $arg retourne tout ce qu'il y a après !pouet

cs_PaDa · Answer

@Kindermaxi: donc en fait, je me plantais dans ce que j'ai dit, tu peux confirmer ? La partie "données" du message est toujours gérée par une seule variable (nommée arg dans nos exemples), c'est ça ?

cs_KiNdErMaXi · Answer

Oui

cs_ScriptingBen · Answer

Merci beaucoup pour vos réponses 


~ScriptinG_Ben~ Bonne continuation à tous

cs_ScriptingBen · Answer

Merci pour vos réponses vous m'avez beaucoup aidé 


~ScriptinG_Ben~ Bonne continuation à tous

cs_ScriptingBen · Answer

Oups bug dsl pour le double message


~ScriptinG_Ben~ Bonne continuation à tous

uaip · Answer

Salut,
Pour ta deuxième question (du style $2-) c'est [lrange $var 1 end] , tu peux donc récupérer des groupes de tokens (ex: [lrange $var 3 7]).

Ca fait un bon moment que je ne touche plus au TCL, mais d'après mes souvenirs, j'aurais tendance à dire que la méthode de kindermaxi n'est pas bonne.
Binder plusieurs commandes une par une, c'est peut-être plus simple, mais pas top niveau optimisation. Pour ma part, je bindais le '!' et je switchais pour récupérer les commandes dans la proc associée.

putspeed existe depuis lontemps ? Je connaissais uniquement putquick, putserv et puthelp.


Cordialement, uaip.

cs_KiNdErMaXi · Answer

Je pense pas que cela existe, c'est juste que j'ai confondu quick & speed quand j'ai copié ça

Equivalent $2 en tcl

16 réponses

Votre réponse

Discussions similaires