Advertisement
Guest User

Untitled

a guest
Apr 20th, 2017
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. proc ::testounet::-annonce {nick uhost handle chan text} {
  2.     set num [lindex $text 0]
  3.     if {$chan ne $::testounet::back} {return}
  4.     if {$num eq ""} {putserv "PRIVMSG $::testounet::back :\002Erreur :\002 !del <num>"; return}
  5.       ::testounet::effacer:donnee $::testounet::fichier(testounet) $num
  6. }
  7.  
  8. proc ::testounet::effacer:donnee {file arg} {
  9.         # $arg est le N° de la ligne, donc est 1 au minimum
  10.         set fileID [open $file r]
  11.  
  12.         while { ![eof $fileID] } {
  13.                 if { [set line [gets $fileID]] ne {} } {
  14.                         lappend lines_list $line
  15.  
  16.                 }
  17.         }
  18.        close $fileID
  19.         putlog "Before: $arg vs [llength $lines_list]"
  20.         # Ici, $arg est au maximum égal à llength
  21.         if {$arg > [llength $lines_list]} {
  22.           putlog "$arg n'existe pas "
  23.           return
  24.         } else {
  25.            incr $arg -1
  26.            putlog "After: position $arg"
  27.            # $arg est compris entre 0 et llength-1
  28.            set fileID [open $file w]
  29.            puts -nonewline $fileID [join [lreplace $lines_list $arg $arg] "\x0D\x0A"]
  30.            close $fileID
  31.            putlog "$arg supprimé. "
  32.         }
  33. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement