Posted to tcl by kostix at Mon Jan 24 22:20:17 GMT 2011view pretty

% set s {тестирование}
тестирование
% set b [encoding convertto utf-8 $s]
тестирование
% string length $s
12
% string length $b
24
% set x [string index $b 10]
Ñ
% scan $x %c
209