[Recherche] messages fun dans un fichier .txt

[CrazyCat]

Et qu'as tu essayé ? Ou tu as juste regardé et pas vu exactement le code dont tu as besoin ?

tclcopier

set fichier "databases/mesphrases.txt"
set canal "#toncanal"

# Chargement du fichier dans $phrases
set fi [open $fichier "r"]
set phrases [split [read -nonewline $fi] "\n"]
close $fi
 
bind time - "00 23 * * *" randlecture
proc randlecture {mm hh dd mo yy} {
   set laphrase [lindex $::phrases [rand llength $::phrases]]
   putserv "PRIVMSG $::canal :$laphrase"
}