Moya22
Messages postés5Date d'inscriptionjeudi 8 mai 2003StatutMembreDernière intervention 5 décembre 2014
-
3 juin 2008 à 07:48
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011
-
4 juin 2008 à 10:31
coucou :)
voila je voudrais savoir comment afficher le contenue d'une variable qui se trouve dans un fichier texte :
pour que mon egg affiche un message aleatoire qui se trouve dans un fichier texte et dans lequel il y a une variable genre :
Salut $nick
voila :)
ps : le script est dejas fait ;) c'est juste que je n'arrive pas a afficher le contenue de la variable :D
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 3 juin 2008 à 16:49
Ah merde, c'est un eggdrop (mal lu -_-)
Donc (en tcl) :
# Fichier à lire
set file fichier.txt
# Si le fichier n'existe pas, on annule (sécurité)
if {![file exists $file]} {return}
# On compte le nombre de lignes
set file2 [open $file r]
set lines 0
while {[gets $file2 line] != -1} { incr lines }
close $file
# On choisit une ligne à lire au hasard
set randline [expr {int(rand()*$lines)}]
# On la lit
set file2 [open $file r]
set nbr 0
while {[gets $file2 line] != -1} {
if {$randline == $nbr} {
putquick "PRIVMSG #salon :$line"
return
}
incr nbr
}
Ca fait un bail que je ne code plus de tcl, donc il y a peut-être des erreurs...
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 3 juin 2008 à 17:04
Putain je sais pas ce qui me prend aujourd'hui... encore gouré
Non seulement j'ai oublié close $file2 dans mon truc (+ une autre erreur) mais en plus, j'ai répondu à côté de la plaque...
Euh... personnelement, en tcl, j'ai jamais fait ca, mais tu peux feinter (même si c'est moche)
genre tu récupères la ligne de ton fichier dans $ligne et tu affiche: "$nick $line" (ou l'inverse)
SInon, je ne sais pas désolé (et je vais aller prendre un cachet d'aspirine...)
uaip
Messages postés1466Date d'inscriptionmardi 20 février 2007StatutMembreDernière intervention 7 février 2011 4 juin 2008 à 10:31
Merci Moya22, non seulement tu m'apprends ça (bien que je ne code plus en tcl ) mais en plus tu me sauves (j'étais en train de m'enfoncer dans mes posts précédents...)