Created by CecilWesterhof.
Sometimes you have a string with unprintable characters and you like to know what those characters are. For this I wrote the following function:
proc displayStringAsInts {string} {
foreach c [split $string ""] {
set char [scan $c %c]
puts [format "%4d | %c" $char $char]
}
}When calling it like:
displayStringAsInts "…¢€≠±¥"
This gives:
8230 | … 162 | ¢ 8364 | € 8800 | ≠ 177 | ± 165 | ¥
As always: comments, tips, questions and request are appreciated.