big2gb转换器

***************************************************** // // GB2312&BIG5 内码转换 1999/08/19 // // 作者:陈国强 alone@telekbird.com.cn // 原子数据工作室 http://www.quanqiu.com/vb // // 您可以自由的拷贝并使用本程序 // 您有义务把程序中的BUG告诉我 // ***************************************************** ☆ 模块basBIG2GB.bas中的函数说明 1. Sub InitDATA 初始化内码数据 首次调用GB2BIG或BIG2GB函数之前最好先Call InitDATA 数组BIG5Order()中存放所有BIG5码汉字对应的GB2312码的的 ANSI 字符代码。 数组GBOrder()中存放所有GB2312码汉字对应的BIG5码的的 ANSI 字符代码。 使用Chr(ANSI 字符代码)即可得到对应的汉字 2. Function GB2BIG(strGB As String) As String GB2312码 -> BIG5码 3. Function BIG2GB(strBIG As String) As String BIG5码 -> GB2312码 4. Function CheckBIG(strSource As String) As Boolean 判断一段文字中是否含有BIG5码汉字,可用做内码的自动识别 返回True表示包含BIG5码 返回False表示不含BIG5码,这段文字一般可认为是GB码 ☆ 资源文件的生成方法详见Resource目录下的BuildDATA.vbp项目 Resource\BIG5.TXT和Resource\GB.TXT中分别存放内码信息 生成Resource\BIG5.DAT和Resource\GB.DAT后，再到集成开 发环境中使用资源编辑器(Resource Editor)新建一个资源文 件(INS.RES),包含两个自定义资源分别为BIG5.DAT和GB.DAT 中的数据,该资源文件将被包含basBIG2GB.bas的工程引用 ☆ 注意：由于Resource目录下的BuildDATA.vbp工程引用了"Microsoft Scripting Runtime", 因此想要正常运行您必须安装VB6.0以上版本 ☆ 其他不明之处请与作者联系 最后更新时间: 99-8-19 9:59