Unicode To Big5

1. Function UnicodeToBig5( uCode )
   
2.         Dim oriLocale : oLocale = GetLocale()
   
3.         SetLocale "zh-TW"
   
4.         UnicodeToBig5 = (Asc(ChrW(uCode)) + 65536) Mod 65536
   
5.         SetLocale oLocale
   
6. End Function
   
7. 
   
8. WScript.Echo( UnicodeToBig5(26519) ) '  43596

复制代码

UnicodeToBig5(26519)  会得到 43596, 这是什么东东

呵呵，有这么一个汉字——"林", 它的 Unicode 编码就是 26519，它的 Big5 码就是 43596

明白了吧哈哈。。。

当然，不只是 big5,  在多种地方性编码 以及 unicode , 都可以使用此方式，相互之间进行转换。

这其中主要就是利用了  GetLocale(),  SetLocale(localeId)

如果在此基础上再进行扩展，还可以实现更多种组织形式上的转换，比如 uri component

除了这个方法，还有个 ADODB.Stream 可以利用，这个也是很方便的，这里先不扯了。。。