Public Quotes System (version actuelle : 2.52)
#19
Moi je m'éatais codé sa et donc les infos sont renomé automatiquement de 1 a .... . il suffit de les add sans numero il sont numéroté a la lecture en utilisant incr .
et pour del il faut faire comme suit .

TCL
file rename "$NR(liste-prog)" "$NR(liste-prog).tmp"  
set fw [open "$NR(liste-prog)" a+]
set fo [open "$NR(liste-prog).tmp" r]
while {![eof $fo]} {
   set read [gets $fo]
   if {$read ne ""} {incr num 1 ; set numo "$num [lrange $read 0 end]"}
   if {![info exists numo]} {	
      set numo "0"
   }	 
   if {$numo!="" && [string equal -nocase $numb [lindex $numo 0]]} { 
      if {![info exists dejadit]} { 	 
         putquick "NOTICE $nick :L'info \[ [lindex $numo 0] \] => [lrange $numo 1 end] à Bien Eté Supprimée" 	 
         set infodel "ok"
         set dejadit "ok"	 
      }	 
   }
   if {$numo!="" && ![string equal -nocase $numb [lindex $numo 0]]} { 
      puts $fw $read
   }
}
close $fw
close $fo
file delete "$NR(liste-prog).tmp"	
if {![info exists infodel]} { 
   putquick "NOTICE $nick :L'info \[$numb\] N'existe Pas" 	 
} else {
   unset infodel
   unset dejadit	 
}


Répondre Avertir


Messages dans ce sujet
tcl quote - par bewess - 08/05/2009, 17:03
RE: tcl quote - par cestlemien - 08/05/2009, 18:33
RE: tcl quote - par bewess - 08/05/2009, 18:59
RE: tcl quote - par cestlemien - 09/05/2009, 14:05
RE: tcl quote - par bewess - 09/05/2009, 14:14
RE: tcl quote - par snoopy - 10/05/2009, 09:57
RE: tcl quote - par MenzAgitat - 11/05/2009, 15:02

Atteindre :


Utilisateur(s) parcourant ce sujet : 4 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté