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..
#2
C'est bon j'ai trouvé.

Fallait remplacer le w par le a.


tcl
proc fwrite {fi arg} {
        set f [open $fi a]
        puts $f $arg
        close $f
    }


w = réecrire Voila mon erreur x)


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

Forum Jump:


Users browsing this thread: 1 Guest(s)