myquote2 error - now solved

[merryweather]

ok I dont understand anything to do with tcl , but i edited the file and all i get when i try to add a quote is this.
Tcl error [mq:addquote]: invalid command name "replace"

can someone tell me why ? , its driving me nuts

[merryweather]

Well the probelm was solved, heres what got changed , its at the bottom of the tcl file

Code: Select all

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
}

hope it helps a few people , and my thanks to a friend called Ixelion who solved it.

[Sir_Fz]

Why make it so complicated.

Code: Select all

proc mirc_strip arg { 
 regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?} $arg "" arg 
 set arg [string map {\002 "" \017 "" \026 "" \037 ""} $arg] 
}

[merryweather]

jeesus , are you bitching at the reply or the code, maybe you want to read - I HAVE NO IDEA about tcl, or did you miss that point ?, how the hell am i or the anyone else with no experience supposed to make elite code like you expect ?. Maybe next time you would paste YOUR solution BEFORE those in need solve it . People like you who come in and make replys with sarcastic comments to those who dont understand code AFTER the fact, make me sick.

I wont be back to see a reply , have fun with the narcisistic attitude you have

[Sir_Fz]

jeesus , are you gonna bitch for pasting a reply when no one else would !!. funny how the ONLY reply is to whine at a paste. NOT EVERYONE understands tcl and so it was easier to paste the whole section in case they fubar it editing.

Yeah, I am gonna it's not so funny though

Next time, read the sticky post in the scripting help forum, and post with valid info which we can use to help you. And learn how to spell.