如何能做出一张GB 码到 Unicode 码对照表，并以“极快”的速度查询?

Question

如何能做出一张GB 码到 Unicode 码对照表，并以“极快”的速度查询，请各位高手给出一些思路和算法。

Answer 1

不知道你的目的是什么，内码转换系统自动就能实现。如果是要求得汉字的unicode码，如下即可。
dim b() as byte
dim s as string
s="汉字"
b=s
debug.print "Unicode",hex(b(0)),hex(b(1)),hex(b(2)),hex(b(3))

Answer 2

顺便说一句，在英文操作系统里，如果你把默认非Uniocode语言设成中国(windows2k,xp)，应该就可以正常显示gb汉字。

Answer 3

cacoda(睚眦必报):
谢谢你的帮助，在英文操作系统里，我在控制面版的区域设置中设置成中国后的确能显示汉字了，但Outlook中的日期格式却变成了中文日期格式，结果国外的操作用户收发E-Mail时就产生很大的麻烦，因此我需要做出一张GB 码到 Unicode 码对照表，并以“极快”的速度查询，借此来解决汉字的显示问题。

Answer 4

如果你仅仅是想在英文操作系统下显示汉字并且其他功能和英文系统一样的话,可以这样做
ControlPanel-RegionalOptions-General-选择其中的Your Locale为English(US),并且选择其中的Language Settings For the system的默认语言为简体中文就可以了