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


[Résolu]Fichier vide.
#1
Bonjour,

J'ai un soucis sur un traitement de fichier.
Je m'explique..

Lors d'un ajout le texte et bien dedans.
Mais lorsque je veut ajouter une autre ligne il me supprime la ligne précédente ..

Je comprend pas comment résoudre ce soucis..

Voici les code concerner :


tcl
bind pub o ".+autorise" [namespace current]::+ajout
    proc +ajout { nick host hand chan arg } {
        set temp [lindex $arg 0]
        if {$temp == ""} {
            putserv "NOTICE $nick :Utilisation: .+autorise <pseudo>"
            putserv "NOTICE $nick :Exemple .+autorise alias_angelius"
            return 0
        }
        if {[lsearch -exact "x $::autorise::fichier(pseudo)" "$temp"]!="0"} {
            fwrite $::autorise::fichier(pseudo) $temp
            putserv "NOTICE $nick :\002$temp\002 \0034a été ajouté\0034"
            putserv "PRIVMSG $::autorise::auto(back) :\002$temp\002 \0034est ajouté au pseudos autorisé\0034"
            return 0
        }
        putserv "NOTICE $nick :\002Erreur:\002$temp\002 \0034est déjà autorisé\0034"
        return 0
    }
 
proc fread {fi} {
    set f [open $fi r]
    set t [gets $f]
    close $f
    return $t
    }
    proc fwrite {fi arg} {
        set f [open $fi w]
        puts $f $arg
        close $f
    }


Si quelqu'un à une idée..


Messages In This Thread
[Résolu]Fichier vide. - by aliasangelius - 18/09/2012, 14:36
RE: [Résolu]Fichier vide. - by aliasangelius - 18/09/2012, 15:46

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Erreur lors de la lecture d'un fichier heretoc 3 5,199 25/12/2012, 23:12
Last Post: CrazyCat
  [Resolu] Ajout de couleur durant une lecture de fichier heretoc 0 3,527 16/12/2012, 02:10
Last Post: heretoc
  [Résolu]Une sauvegarde de fichier. aliasangelius 4 3,851 16/07/2012, 16:19
Last Post: aliasangelius
  [Topic vide] Badip/Badhost/Badnick IluZi0n 1 3,478 10/01/2010, 16:57
Last Post: IluZi0n

Forum Jump:


Users browsing this thread: 1 Guest(s)