简体中文与繁体中文的互相转换

*以下所用控件的下载地址

http://download.csdn.net/source/424247

*--方法一：用gb2big.dll

Declare String GBtoBIG5 In gb2big.Dll String
Declare String BIG5toGB In gb2big.Dll String
 

*--简体转繁体，将GB内码转换为BIG5码。注意，此函数转换的是内码，并非GBK字符。
*--显示结果如果在简体系统下，是乱码
?GBtoBIG5("中华人民共和国")
 

*--繁体转简体，将BIG5码转为GB码，注意，此函数转换的是内码。
cBig5=GBtoBIG5("中华人民共和国") &&先转为繁体
?BIG5toGB(cBig5) &&将繁体再转为简体
 

*-----------------------------------------------------------------------------------
*--方法二：用木瓜大侠提供的MyFll.Fll
 

*--myFll中提供有简体转繁体GB2312ToBIG5()、繁体转简体的函数BIG5ToGB2312()函数
*--用use 打开表单，然后将所有字段转为简/繁体就行了。
 

*--示例1:
*--简体转繁体，将GB2312内码转换为BIG5码。注意，此函数转换的是内码，并非GBK字符。
*--显示结果如果在简体系统下，是乱码
?GB2312ToBIG5("中华人民共和国")
 

*--繁体转简体，将BIG5码转为GB2312码，注意，此函数转换的是内码。
cBig5=GB2312ToBIG5("中华人民共和国") &&先转为繁体
?BIG5ToGB2312(cBig5) &&将繁体再转为简体
 

*--示例2:繁体转简体
Use form1.scx
Replace All methods With BIG5ToGB2312(Alltrim(methods))
Replace All properties With BIG5ToGB2312(Alltrim(properties))
Use
 

*-----------------------------------------------------------------------------------
*--方法三：用Big2GB.OCX
Big2GB.ocx是BIG5码<=>GB码互换的完全免费的ActiveX控件.
用于VB5.0开发.(在前一个版本的基础上进行了代码优化,使得转换速度比上一个版本快几十倍).
 

一个纯文本文件(Big5码),大小599k,转换速度为一秒.再将其装入
RichTextBox,共须八秒.
(测试环境:奔腾MMX 166,内存48M,硬盘4.3G,WIN95 OSR2)
 

用法如下:
本控件包含两条方法:
1. BigToGB(Big5码=>GB码)
例如: ?BigToGB(BigStr) &&显示结果如果在简体系统下，是乱码
 

2. GBToBig(GB码=>Big5码)
例如: ?GBToBig(GBStr)
 

作者：angtao@sotech.com.cn
本控件可自由发布,有问题可与作者联系.