09/05/2011, 20:23
ok alors faudrait adapter un stripcodes à ton code dans c'est cas la.
je vais te donner deux codes tcl essaye les voir si celà fonctionne :
second code :
essaye peut-être que celà fonctionnera :)
je vais te donner deux codes tcl essaye les voir si celà fonctionne :
tcl
proc mirc_strip {{args ""}} {
set switches ""
if {$switches == ""} { set switches all }
set arg [lindex $args 0]
set all [expr {([lsearch -exact $switches all] >= 0) ? 1 : 0}]
set list [list \002 "" \017 "" \026 "" \037 ""]
regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $arg "" arg
#set arg [replace -- $arg [join $list]]
set arg [string map {\002 "" \017 "" \026 "" \037 ""} $arg]
return $arg
}
second code :
tcl
proc regul {arg} {
set arg [stripcodes abcugr $arg]
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
regsub -all "" $arg "" arg
set arg [stripcodes abcugr $arg]
return $arg
}
essaye peut-être que celà fonctionnera :)