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 .
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
}