GB与BIG5内码转换COM原代码

2016-01-29 20:19 18 1 收藏

GB与BIG5内码转换COM原代码,GB与BIG5内码转换COM原代码

【 tulaoshi.com - ASP 】

这个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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

'定义自定义类型,用来处理编码的高低字问题
Type ChineseTypeA
loChar As Byte
hiChar As Byte
End Type

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

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

来源:http://www.tulaoshi.com/n/20160129/1510993.html

延伸阅读
// HZEncode.cpp : Defines the entry point for the console application. // /* 参考文献: 汉字的编码和表示 1)汉字交换码(国标码) 汉字交换码(国标码)主要用于汉字信息交换。 国标码:以国家标准局1980年颁布的《信息交换用汉字编码字符集"基本集》(代号为GB2312 80)规定的汉字交换码作为国家标准汉字编码。 GB2312 80中...
Foxmail怎么发送BIG5码邮件   使用Foxmail,在写邮件窗口中写好邮件的内容,然后执行邮件菜单字符转换子菜单中的GB→BIG5命令,系统即会将邮件内容和主题转换成BIG5码(转换后的邮件显示为乱码)。转换完毕之后再将该邮件发送出去即可。          小编推荐:Foxmail如何阅读BIG5码邮件 此方法...
标签: ASP
  BeginTrans/CommitTrans/Rollback方法 當您必須更新多個資料表中的資料欄位時,並確保在所有的資料表中所作的改變都被完成(確認Commit)、或者不變(撤銷復原Rollback)時,您可以使用異動(transaction)來維護資料的完整性。 例如,當您將錢從甲帳戶匯到另一個乙帳戶時,需要從甲帳戶上減去一個數並加到另一個乙帳戶上。如果其中有...
标签: ASP
  Update Update陳述式,用來更新資料表中欄位的資料值,可以使用WHERE設定特定的條件運算式,符合條件運算式的記錄才會被更新。 語法如下: UPDATE 資料表 SET 欄位新值 WHERE 條件運算式 當您要同時更新多個記錄,或者在多個資料表中更新記錄時,就需要用到UPDATE陳述式。 您可以同時變更多個欄位的資料值,譬如,下例將產品資料表...
//---------------------------------------------------------- //         输入发漏洞程序1.0 file://---------------------------------------------------------- unit pApp; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ...

经验教程

682

收藏

48
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部