偶看新闻车展变毛展图片:简体中文与繁体中文的互相转换
来源：百度文库 编辑：偶看新闻 时间：2024/05/03 06:42:13
简体中文与繁体中文的互相转换
分类： VFP - API·WMI·ActiveX应用 2007-08-09 15:02 1327人阅读 评论(0) 收藏 举报*以下所用控件的下载地址
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)