If you can ensure that your strings are all Chinese characters and are all encoded with UTF8, you can define the following functions:
A= "I'm from China"
Function? get_chinese_char(str,? Index)
Local? Start? =? (Exponent-1)? *? 3? +? 1
Return? Str:sub(start, start? +? 2)
end
print(get_chinese_char(a,? 3));