【www.gdgbn.com--php常用代码】
这个COM用到了一个VC的资源文件。就是字典。大家可以去61.134.75.70/download/gb2big5.zip下载
原代码如下:
"//////////////////////////////////////////
"中文名称:GB与BIG5内码互换控件
"英文名称:GB2BIG5
"作者:Blood
"版本:1.0
"制作时间:2002.3.5
"版权所有 Blood 2002 - 2003
"//////////////////////////////////////////
Option Explicit
"定义变量
Dim BIG5Data As Variant
Dim GBData As Variant
"定义自定义类型,用来处理编码的高低字问题
Type ChineseTypeA
loChar As Byte
hiChar As Byte
End Type
Private BIG5Type(&HA1 To &HFF, &H40 To &HFE) As ChineseTypeA "对应于BIG5字库
Private GBType(&HA7 To &HFF, &HA1 To &HFE) As ChineseTypeA "对应与GB字库
"//////////////////
"公共函数开始
"//////////////////
"BIG5转换到GB的函数
Function BIG5TOGB(strSource As String) As String
Dim I As Long, Y As Long
"定义数组,用来存放BIG5和GB内码数据
Dim bteBIG5() As Byte
Dim bteGB() As Byte
"如果输入的内容为空,则退出函数
If strSource = "" Then
BIG5TOGB = ""
Exit Function
End If
"将BIG5数组的类型从Unicode编码转换为系统缺省码
bteBIG5 = StrConv(strSource, vbFromUnicode)
"确定BIG5数组的下标,用来循环将所有的BIG5内容转换为GB内码
Y = UBound(bteBIG5)
ReDim bteGB(0 To Y)
For I = 0 To Y