egghelp/eggheads community

topic with special formatted characters

2005-02-14T12:36:56-04:00

Maybe if you read 'The Manual' ? you would find all the help you need.

Try this

Code:

proc subst {text} {    regsub -all -- \\\\ $text \\\\\\\\ text    regsub -all -- \\\[ $text \\\\\[ text    regsub -all -- \\\] $text \\\\\] text    regsub -all -- \\\} $text \\\\\} text    regsub -all -- \\\{ $text \\\\\{ text    regsub -all -- \\" $text \\\\" text    return $text}

Thx

(I played with this few days ago but this made some problems, I will try once again.. )

Statistics: Posted by bofh — Mon Feb 14, 2005 12:36 pm

topic with special formatted characters

2005-02-14T12:31:56-04:00

For each opening bracket '[' there has to be a matching closing bracket ']'.

I know that, but didn't know how to fix...

Statistics: Posted by bofh — Mon Feb 14, 2005 12:31 pm

topic with special formatted characters

2005-02-14T12:19:30-04:00

Maybe if you read 'The Manual' ? you would find all the help you need.

Try this

Code:

proc subst {text} {    regsub -all -- \\\\ $text \\\\\\\\ text    regsub -all -- \\\[ $text \\\\\[ text    regsub -all -- \\\] $text \\\\\] text    regsub -all -- \\\} $text \\\\\} text    regsub -all -- \\\{ $text \\\\\{ text    regsub -all -- \\\" $text \\\\\" text    return $text}

Statistics: Posted by ^DooM^ — Mon Feb 14, 2005 12:19 pm

topic with special formatted characters

2005-02-14T12:09:53-04:00

For each opening bracket '[' there has to be a matching closing bracket ']'.

Statistics: Posted by Alchera — Mon Feb 14, 2005 12:09 pm

Re: topic with special formatted characters

2005-02-14T11:52:24-04:00

Well i fixed that (using [join [lrange [split $text] 0 end]] ), but not so well I wanted:

The problem is with this:

!topic {hello]

bot => Tcl error [pub:topic]: unmatched open brace in list

What to do with this? I have no idea...

Statistics: Posted by bofh — Mon Feb 14, 2005 11:52 am

topic with special formatted characters

2005-02-14T10:58:18-04:00

'split' the text before using list commands (like 'lindex' and 'lrange') on it.
Miss something bofh? Like the link so you can READ about the use of split?

Oh, I'm sorry, I understood that reply from user after I answered to him

Statistics: Posted by bofh — Mon Feb 14, 2005 10:58 am

topic with special formatted characters

2005-02-14T10:19:22-04:00

'split' the text before using list commands (like 'lindex' and 'lrange') on it.

Miss something bofh? Like the link so you can READ about the use of split?

Statistics: Posted by Alchera — Mon Feb 14, 2005 10:19 am

topic with special formatted characters

2005-02-14T09:37:19-04:00

'split' the text before using list commands (like 'lindex' and 'lrange') on it.

I think you didn't see the whole code I wrote, did you?
I'm using lindex and lrange, but doesn't help...

Statistics: Posted by bofh — Mon Feb 14, 2005 9:37 am

topic with special formatted characters

2005-02-14T09:35:26-04:00

addslashes

\{hello\} \\x01 \\x02 etc put a \ infront of every special character

Well that's not a solution...

Statistics: Posted by bofh — Mon Feb 14, 2005 9:35 am

topic with special formatted characters

2005-02-14T07:20:34-04:00

'split' the text before using list commands (like 'lindex' and 'lrange') on it.

Statistics: Posted by user — Mon Feb 14, 2005 7:20 am

topic with special formatted characters

2005-02-14T04:16:21-04:00

addslashes

\{hello\} \\x01 \\x02 etc put a \ infront of every special character

Statistics: Posted by ^DooM^ — Mon Feb 14, 2005 4:16 am

topic with special formatted characters

2005-02-14T02:07:04-04:00

Hello

I have a problem with the topic changing

I have this in my script:

bind pub -|- !topic pub:topic
bind pub -|- !t pub:topic

proc pub:topic { nick host handle chan text } {
global botnick

if { [botisop $chan] } {
if { [onchan $nick $chan] && [matchattr $handle o|C $chan] } {
set arg [lindex $text 0 ]
set newtopic [lrange $text 1 end]
if { $arg != "+" } {
set newtopic [lrange $text 0 end]
if { $newtopic == "" } {
putserv "TOPIC $chan :"
} else {
putserv "TOPIC $chan :[join $newtopic]"
}
} else {
set curtopic [topic $chan]
putserv "TOPIC $chan :$curtopic | [join $newtopic]"
}
} else {
putserv "NOTICE $nick : You haven't permission for this!"
}
flushmode $chan
} else {
putserv "NOTICE $nick : I'm not opped on $chan"
}
}

but when I do: !t \x01\x02 it will replace that binary codes with the representing characters, and I don't want that. Also when I do: !t {hello}
it will replace it with only hello...

How can I fix it?

P.S.:
Sorry for my english, and maybe too lame question, but I'm not very skilled at coding at all

Statistics: Posted by bofh — Mon Feb 14, 2005 2:07 am