egghelp/eggheads community

myquote2 error - now solved

2005-11-05T11:38:44-04:00

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.

Statistics: Posted by Sir_Fz — Sat Nov 05, 2005 11:38 am

myquote2 error - now solved

2005-11-05T11:40:32-04:00

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

Statistics: Posted by merryweather — Sat Nov 05, 2005 11:33 am

myquote2 error - now solved

2005-11-05T11:14:33-04:00

Why make it so complicated.

Code:

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] }

Statistics: Posted by Sir_Fz — Sat Nov 05, 2005 11:14 am

myquote2 error - now solved

2005-11-05T11:05:57-04:00

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

Code:

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.

Statistics: Posted by merryweather — Sat Nov 05, 2005 11:05 am

myquote2 error - now solved

2005-11-05T11:09:23-04:00

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

Statistics: Posted by merryweather — Wed Nov 02, 2005 9:22 pm