question debutant

[marawam]

je veux créer un script qui me permet de créer un fichier et écrire dedans la liste des utilisateurs qui joindre mon salon j'ai essayer avec ce script mais ca marcha pas

bind join - * join:join
proc join:join {nick uhost handle channel arg} {
set id [open $filejoin "a+"]
puts $id "$nick has joined $channel"
close $id
}

[CrazyCat]

Tu ne définis pas $filejoin dans ta procédure.

S'il est défini hors de la procédure, il faut faire:

tclcopier

set id [open $::filejoin "a+"]

Et merci d'utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces) pour écrire du code, ça le rend plus lisible.

[marawam]

voila c bon
bind join - * pub:join
tcl
proc pub:join { nick uhost handle channel } {
putserv "PRIVMSG $channel :$nick joindre votre canal"
set fichier "scripts/listejoin.txt"
set id [open $fichier a+]
set ch "$nick joindre la canal $channel"
puts $id $ch
close $id
}
putlog "le fichier join est téléchargé avec succés"
/tcl

[marawam]

svp puis je savoir si vous avez un lien qui me donne Les format des messages que reçois les serveurs et les clients irc?
merci

[CrazyCat]

svp puis je savoir si vous avez un lien qui me donne Les format des messages que reçois les serveurs et les clients irc?
merci

Pourrais-tu ne pas poster ta question sur des sujets où elle n'a rien à faire s'il te plait ?
Et pourrais-tu:
1) ouvrir un nouveau sujet
2) être plus clair sur ce que tu demandes

[marawam]

comment puis je chercher un élément (un mot) dans un fichier existe déja avec le langage tcl
merci

[CrazyCat]

J'imagine que tu parles de ce qui est sur cette page ?

[marawam]

bonjour puis je savoir si c possible ,avec tcl, de créer un tableau avec des lignes et des colonnes et de stocker la dedant des variables ensuite de chercher un élémen dans ce tableau en retournant son emplacemen exactement(ligne,colone)
si c possible j'aurais besoin d'un exemple svp

[marawam]

tcl:
#avec ce script tcl je veux créer un tableau qui contien 2 colones une pour id et l'autre pour pseudo
#et de remplir les colones id et pseudo à chaq foi que qlq1 tappe !tab (déclancheur) et d'afficher les contenu du tableau dans le canal( en respectant #le test if )
# ca marche pa, svp besoin d'aide

bind pub - !tab pub:testtab
proc pub:testtab { nick uhost handle arg channel } {
set i 1
set id 1
set [array size tabpseudo] 30
set pseudo 20
set pseudoch $arg
for {set i 1} {i<[array size tabpseudo]} {incr i} {
array set tabpseudo(i,1) $id
array set tabpseudo(i,2) $pseudo
set search [array get $tabpseudo (i,2)]
if { [string match $search $pseudoch] } {
array set tabpseudo([exper [array size tabpseudo] + 1],1) $id
array set tabpseudo([exper [array size tabpseudo] + 1],2) $pseudoch
putserv "PRIVMSG $channel : client avec l'id [array get $tabpseudo($i,1)] et de pseudo [array get $tabpseudo($i,2)]"
}
}
}