egghelp.org community

[tomcat]

Hi i have some problems with ² ³ and ° i want to replace them with \² \³ and \° but for example
regsub -all -- \\\³ $data \\\³ data does not work
some guys told me to use
regsub -all -- {(\\|\[|\]|\&|\{|\}|"|'|\262|\263)} $data {\\\1} data
to remove all special characters. It works fine with []{}&\'" but not with ², ³ or °
Can anyone help me and tell me what to do to get what i need ?

[tomekk]

did u try?

[tomcat]

does not work

[user]

Make sure your script has the right encoding (check '.tcl encoding system'), or, if you're using Tcl >= 8.5, use the -encoding option when loading the script.

[tomcat]

proc filt {data} {
regsub -all -- {(\\|\[|\]|\&|\{|\}|"|'|\262|\263)} $data {\\\1} data
return $data

or

proc filt {data} {
regsub -all -- {(\\|\[|\]|\&|\{|\}|"|'|\²|\³)} $data {\\\1} data
return $data

does not work -.-

Its an eggdrop script how to use the -encoding option ?

[user]

[tomcat]

source -encoding iso-8659-1 scripts/scanner.tcl
results in crash...

[tomekk]

[tomcat]

8.5.5

[tomekk]

[tomcat]

I tried iso 8859 the other is not known and utf-8

it doesnt matter ² ³ ° still dont get replaced with \² \³ \°

[tomekk]

damn, I have no problem with this char on my bot

u can always try to change this char to its code number, and after that u can delete it from whole string or smth :>

do some trigger and simple IF, !test <special_char> and after in test script if {$arg == "special_char"} { puts "its ok" }

cause we dont know what is current wrong
like user wrote, that can be smth with codepage ;]

[tomcat]

We found a dirty but working way to fix it
tnx all for help

[incith]

[arfer]

An interesting subject.

I have long suffered the mystical art of fonts, code pages, encodings and the like.

Lets say I copy/paste from the character map tool in windows to build up a text string as follows :-

% set mytest "at xy³ + y² temperature is 14°"
at xy³ + y² temperature is 14°

An attempt to modify (add a backslash to) the special characters using their equivalent hex values and regsub does not work :-

% return [regsub -all -- {[\xB0\xB2\xB3]} $mytest "\\\\&"]
at xy³ + y² temperature is 14°

It should have worked. It seems clear that copy/paste from windows character map does not result in the expected hex characters in the Tcl interpreter I am using.

However, if we explicity use hex character notation to build up the exact same text string as follows :-

% set mytest "at xy\xB3 + y\xB2 temperature is 14\xB0"
at xy³ + y² temperature is 14°

It looks the same, but now using the same regsub statement :-

% return [regsub -all -- {[\xB0\xB2\xB3]} $mytest "\\\\&"]
at xy\³ + y\² temperature is 14\°

It works!

If it is any help to the original poster, if you are able to explicitly build up your string using hex notation then that would enable you to use hex notation in the regsub pattern successfully.

If not, then it remains a mystical art which will eventually result in insanity.