Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Création de fichier | écriture
#1
Bonjour tous le monde,

Je viens vers vous car je tente depuis quelques heures de créer un fichier .txt par le biais d'un script TCL.

Voici le contenu du script:


Code:
proc start:timer {} {
[llength [chanlist #....-fr]]
set f [open "...../user.txt" "w"]
puts $f [llength [chanlist #....-fr]]
close $f
timer 5 start:timer
return
}
start:timer
Merci pour votre aide si précieuse :)
#2
Je pense qu'utiliser un timer n'est pas une bonne idée... plutôt réagir à ce qui fait varier le nombre d'utilisateurs:

tcl
set canal "#canal"
bind join - "$canal *" log:join
proc log:join {nick uhost handle chan} { log:write }
 
bind part - "$canal *" log:part
proc log:part {nick uhost handle chan {msg ""}} { log:write }
 
bind kick - "$canal *" log:kick
proc log:kick {nick uhost handle chan target reason} { log:write }
 
bind sign - "$canal *" log:quit
proc log:quit {nick uhost handle chan reason} { log:write }
 
proc log:write {} {
   set fp [open "./usernb.$::canal" "w"]
   puts $fp [llength [chanlist $::canal]]
   close $fp
   return 1
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away


Possibly Related Threads…
Thread Author Replies Views Last Post
  problèmes de collision lors d'opérations d'écriture dans un fichier MenzAgitat 4 4,817 28/06/2011, 20:12
Last Post: djkenny

Forum Jump:


Users browsing this thread: 1 Guest(s)