09/05/2011, 20:39
Bon apparament le forum à des soucis niveau des #92 et tout donc je vais le c/c dans un post sans mettre les balise tcl.
proc mirc:strip {text} {
regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" text
set text [string map -nocase [list \002 "" \017 "" \026 "" \037 ""] $text]
return $text
}
proc mirc:strip {text} {
regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" text
set text [string map -nocase [list \002 "" \017 "" \026 "" \037 ""] $text]
return $text
}