繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > GB与BIG5内码转换COM原代码
- ASP
- 提高SQL的执行效率的ASP的五种做法
- asp的offset的一个go to page
- asp中command的在单条记录时,有些字段显示为空的问题
- asp,php一句话木马整理方便查找木马
- asp 合并记录集并删除的sql语句
- asp下循环一行多少个
- asp循环行数输出函数
- asp access重新开始编号
- ASP生成数字相加求和的BMP图片验证码
- 静态页面利用JS读取cookies记住用户信息
- 比较详细的Asp伪静态化方法及Asp静态化探讨
- asp Response.flush 实时显示进度
- Asp高级故障解决以及相关代码
- asp智能脏话过滤系统v1.0
- ASP文件中的安全问题
- Access数据库中“所有记录中均未找到搜索关键字”的解决方法
- asp两组字符串数据比较合并相同数据
- asp MYSQL出现问号乱码的解决方法
- asp文章中随机插入网站版权文字的实现代码
- ASP利用XMLHTTP实现表单提交以及cookies的发送的代码
ASP 中的 GB与BIG5内码转换COM原代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 64 ::
收藏到网摘: n/a
大家可以去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
If I = Y Then
bteGB(I) = bteBIG5(I)
Exit For
End If
If bteBIG5(I) < &HA1 Or bteBIG5(I + 1) < &H40 Then
bteGB(I) = bteBIG5(I)
Else
bteGB(I) = BIG5Type(bteBIG5(I), bteBIG5(I + 1)).loChar
bteGB(I + 1) = BIG5Type(bteBIG5(I), bteBIG5(I + 1)).hiChar
I = I + 1
End If
Next I
'将系统缺省码转换为Unicode编码
BIG5TOGB = StrConv(bteGB, vbUnicode)
'重新初始化GB数组，以释放内存
Erase bteGB
End Function
'GB转换到BIG5的函数
Function GBTOBIG5(strSource As String) As String
Dim I As Long, Y As Long
'定义数组，用来存放BIG5和GB内码数据
Dim bteGB() As Byte
Dim bteBIG5() As Byte
'如果输入的内容为空，则退出函数
If strSource = "" Then
GBTOBIG5 = ""
Exit Function
End If
'将GB数组的类型从Unicode编码转换为系统缺省码
bteGB = StrConv(strSource, vbFromUnicode)
'确定GB数组的下标，用来循环将所有的BIG5内容转换为GB内码
Y = UBound(bteGB)
ReDim bteBIG5(0 To Y)
For I = 0 To Y
If I = Y Then
bteBIG5(I) = bteGB(I)
Exit For
End If
If bteGB(I) < &HA1 Or bteGB(I + 1) < &HA1 Then
bteBIG5(I) = bteGB(I)
Else
If bteGB(I) < &HB0 And bteGB(I + 1) >= &HA1 Then
bteBIG5(I) = GBType(bteGB(I) + 6, bteGB(I + 1)).loChar
bteBIG5(I + 1) = GBType(bteGB(I) + 6, bteGB(I + 1)).hiChar
Else
bteBIG5(I) = GBType(bteGB(I), bteGB(I + 1)).loChar
bteBIG5(I + 1) = GBType(bteGB(I), bteGB(I + 1)).hiChar
End If
I = I + 1
End If
Next I
'将系统缺省码转换为Unicode编码
GBTOBIG5 = StrConv(bteBIG5, vbUnicode)
'重新初始化BIG5数组，以释放内存
Erase bteBIG5
End Function
'//////////////////
'公共函数结束
'//////////////////
'类初始化
Private Sub Class_Initialize()
Dim I As Long
Dim J As Long
Dim iLen As Long
'从资源文件中读取GB与BIG5的字库
GBData = LoadResData(102, "CUSTOM") '//读取GB字库
BIG5Data = LoadResData(101, "CUSTOM") '//读取BIG5字库
For I = &HA1 To &HFE
For J = &H40 To &HFE
BIG5Type(I, J).loChar = BIG5Data(iLen)
BIG5Type(I, J).hiChar = BIG5Data(iLen + 1)
iLen = iLen + 2
Next J
Next I
iLen = 0
For I = &HA7 To &HFE
For J = &HA1 To &HFE
GBType(I, J).loChar = GBData(iLen)
GBType(I, J).hiChar = GBData(iLen + 1)
iLen = iLen + 2
Next J
Next I
End Sub
评论 (0) All
