egghelp/eggheads community

escaping special characters in strings

2004-11-17T16:54:23-04:00

Maybe that will help:

Code:

set arg [string map {\\ \\\\ \{ \\\{ \} \\\} \[ \\\[ \] \\\] \" \\\"} $arg]

Statistics: Posted by KrzychuG — Wed Nov 17, 2004 4:54 pm

escaping special characters in strings

2004-11-17T16:55:15-04:00

Hmmm, ok.

Even with elaborate experimenting I couldn't get it right... so I changed my script like this, and it works perfectly:

Code:

bind pubm - "*" tr:reacttextbind pub M !addtextreact tr:addreactionbind pub M !deltextreact tr:delreaction## Configuration#set textReactionsFile "data/textreactions/textreactions.txt"set textReactionsSaveTimer 30## This needs executing at start to read the current binds#if { [file exists $textReactionsFile]} {        set fp [open $textReactionsFile r]        while {[eof $fp] == 0} {                set line [gets $fp]                if { [string length $line] > 0 } {                        set splitpos [string first "|" $line]                        if { $splitpos == -1 } {                                putlog "TEXTSTRINGS: Invalid entry in datafile: '$line'"                                exit                        }                        set trigger [string range $line 0 [expr $splitpos - 1]]                        set response [string range $line [expr $splitpos + 1] end]                        set textreactions($trigger) $response                        putlog "TEXTSTRINGS: Added '$trigger' => '$response'"                }        }        close $fp}## Set a timer for saving#timer $textReactionsSaveTimer tr:savereactions## Functions#proc tr:addreaction { nick uhost hand chan arg } {        global textreactions        set splitpos [string first "=" $arg]        if { $splitpos == -1 } {                puthelp "NOTICE $nick :You can't do it that way Dave... Correct syntax is !addtextreact trigger = reaction..."        } else {                set trigger [string trim [string range $arg 0 [expr $splitpos - 1]]]                set response [string trim [string range $arg [expr $splitpos + 1] end]]                set textreactions($trigger) $response                puthelp "NOTICE $nick :Oookaaay... I've added your weird idea... I'll now respond to it, too ;p"                putlog "TEXTTRIGGER: Added '$trigger' => '$response' by $nick"        }}proc tr:delreaction { nick uhost hand chan arg } {        global textreactions        set trigger [string tolower $arg]        unset textreactions($trigger)        putlog "TEXTTRIGGER: Deleted '$trigger'"        puthelp "NOTICE $nick :Hmm.. What did you say? I think I've forgotten something..."}proc tr:savereactions {} {        global textReactionsSaveTimer textReactionsFile textreactions        set fp [open $textReactionsFile w]        foreach trigger [array names textreactions] {                puts $fp "$trigger|$textreactions($trigger)"        }        close $fp        timer $textReactionsSaveTimer tr:savereactions        putlog "TEXTSTRINGS: Saving strings..."}proc tr:reacttext {nick uhost hand chan arg } {        global textreactions        foreach trigger [array names textreactions] {                if { [string match -nocase "*$trigger*" $arg] == 1 } {                        putchan $chan $textreactions($trigger)                }        }}

Statistics: Posted by Guest — Wed Nov 17, 2004 4:49 pm

escaping special characters in strings

2004-11-17T16:10:32-04:00

Any hints on how i should save this in the data file?

as user suggested, joined

Statistics: Posted by demond — Wed Nov 17, 2004 4:10 pm

escaping special characters in strings

2004-11-17T15:33:15-04:00

*Click*

Statistics: Posted by greenbear — Wed Nov 17, 2004 3:33 pm

escaping special characters in strings

2004-11-17T15:20:30-04:00

Hmmm. okay.

Any hints on how i should save this in the data file?

Currently, there are things in it like

Code:

"bad bot" bad humanoid

so that 'bad bot' is the trigger... Because I'm still getting the {}...

Statistics: Posted by Guest — Wed Nov 17, 2004 3:20 pm

escaping special characters in strings

2004-11-17T15:03:25-04:00

lindex and lrange expect a list as input and you feed it a string. Use split to turn your string into a list...and join to make the list returned by 'lrange' a string.

Code:

set args [split $arg]lindex $args N...

Statistics: Posted by user — Wed Nov 17, 2004 3:03 pm

escaping special characters in strings

2004-11-17T14:16:32-04:00

Hello all,

I'm fiddling a bit with TCL to create a script that allows the bot to trigger on any 'keyword' said in any sentence. Also adding 'add' and 'remove' binds for it.

Works like a charm, tho for some weird reason when using special characters, the bot replies them with { } around them, eg:

!addtextreact meow *purrrrr* ;)
meow
*purrrrrrrr* {;)}

Any idea how I can deal with that? Same happens with the strings read from the datafile...

Code:

bind pubm - "*" tr:reacttextbind pub M !addtextreact tr:addreactionbind pub M !deltextreact tr:delreaction## Configuration#set textReactionsFile "data/textreactions/textreactions.txt"set textReactionsSaveTimer 30## This needs executing at start to read the current binds#if { [file exists $textReactionsFile]} {        set fp [open $textReactionsFile r]        while {[eof $fp] == 0} {                set line [gets $fp]                set trigger [lindex $line 0]                set response [lrange $line 1 end]                set textreactions($trigger) $response        }        close $fp}## Set a timer for saving#timer $textReactionsSaveTimer tr:savereactions## Functions#proc tr:addreaction { nick uhost hand chan arg } {        global textreactions        set trigger [string tolower [lindex $arg 0]]        set reaction [lrange $arg 1 end]        set textreactions($trigger) $reaction        putlog "TEXTTRIGGER: Added '$trigger' => '$reaction'"}proc tr:delreaction { nick uhost hand chan arg } {        global textreactions        set trigger [string tolower $arg]        unset textreactions($trigger)        putlog "TEXTTRIGGER: Deleted '$trigger'"}# TODOproc tr:savereactions {} {        global textReactionsSaveTimer        putlog "SAVE"        timer $textReactionsSaveTimer tr:savereactions}proc tr:reacttext {nick uhost hand chan arg } {        global textreactions        foreach trigger [array names textreactions] {                if { [string match -nocase "*$trigger*" $arg] == 1 } {                        putchan $chan $textreactions($trigger)                }        }}

Statistics: Posted by Guest — Wed Nov 17, 2004 2:16 pm