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