Variable dans un fichier texte

Moya22 Messages postés 5 Date d'inscription jeudi 8 mai 2003 Statut Membre Dernière intervention 5 décembre 2014 - 3 juin 2008 à 07:48
uaip Messages postés 1466 Date d'inscription mardi 20 février 2007 Statut Membre Derniè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

5 réponses

uaip Messages postés 1466 Date d'inscription mardi 20 février 2007 Statut Membre Dernière intervention 7 février 2011
3 juin 2008 à 16:35
msg $chan $read(fichier.txt)

Cordialement, uaip.
0
uaip Messages postés 1466 Date d'inscription mardi 20 février 2007 Statut Membre Derniè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...

Cordialement, uaip.
0
uaip Messages postés 1466 Date d'inscription mardi 20 février 2007 Statut Membre Derniè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...)

Cordialement, uaip.
0
Moya22 Messages postés 5 Date d'inscription jeudi 8 mai 2003 Statut Membre Dernière intervention 5 décembre 2014
4 juin 2008 à 07:49
Merci uaip ... mais j'ai trouver ma reponse ;)

c'est avec la fonction
subst

ex :

puthelp"PRIVMSG $chan :[subst -nocommands $msg(bienvenue)]"

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
uaip Messages postés 1466 Date d'inscription mardi 20 février 2007 Statut Membre Derniè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...)

Cordialement, uaip.
0
Rejoignez-nous