Scripts 学盟

标题: Unicode To Big5 [打印本页]

作者: 混混@普宁.中国 时间: 2011-8-27 13:49:29 标题: Unicode To Big5

Function UnicodeToBig5( uCode )
Dim oriLocale : oLocale = GetLocale()
SetLocale "zh-TW"
UnicodeToBig5 = (Asc(ChrW(uCode)) + 65536) Mod 65536
SetLocale oLocale
End Function
WScript.Echo( UnicodeToBig5(26519) ) ' 43596

复制代码

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

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

明白了吧哈哈。。。

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

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

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

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

欢迎光临 Scripts 学盟 (http://www.iscripts.org/)