Code: Select all
regsub -all -- {[1code]
regsub -all -- {03[0-9]{0,2}(,[0-9]{0,2})?|17|37|02|26} $str "" str
[/code1]03[0-9]{0,2}(,[0-9]{0,2})?|17|37|[1code]
regsub -all -- {03[0-9]{0,2}(,[0-9]{0,2})?|17|37|02|26} $str "" str
[/code1]02|26} $str "" str
Code: Select all
bind pub - "!test" test:bind
proc test:bind {nick uh hand chan str} {
regsub -all -- {[1code]
bind pub - "!test" test:bind
proc test:bind {nick uh hand chan str} {
regsub -all -- {03[0-9]{0,2}(,[0-9]{0,2})?|17|37|02|26} $str "" str
blah blah
}
[/code1]03[0-9]{0,2}(,[0-9]{0,2})?|17|37|[1code]
bind pub - "!test" test:bind
proc test:bind {nick uh hand chan str} {
regsub -all -- {03[0-9]{0,2}(,[0-9]{0,2})?|17|37|02|26} $str "" str
blah blah
}
[/code1]02|26} $str "" str
blah blah
}