if {[file exists $cam_post_dir$t]} {
set f1 [open $cam_post_dir$t r+]
set buf ""
while { [gets $f1 buf] > 0 } {
set fbuf $buf
}
close $f1
} else {
set fbuf 0
}
set fbuf [expr $fbuf+1 ]
set f2 [open $cam_post_dir$t w+]
global tl
set tl 0
puts $f2 $fbuf
close $f2
一打开次数就清零了
发表于 2025-7-3 16:42:07
