Exception de caractere dans un pseudo

[Chris32]

Utilise la possibilité chr

tclcopier

proc x:chr {arg} {
	regsub -all -- {\\} $arg {\\\\} arg
	regsub -all -- {\[} $arg {\[} arg
	regsub -all -- {\]} $arg {\]} arg
	regsub -all -- {\{} $arg {\{} arg
	regsub -all -- {\}} $arg {\}} arg
	regsub -all -- {\"} $arg {\"} arg
	return $arg
}

a chaque fois que tu voudra voir un $user
utilise [x:chr $user]
Il le décortiquera tout seul voila..