09/05/2011, 20:44
ah en effet je te met le premier code sans les balises aussi.
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
}
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
}