VB汉字简繁体转换

 

2. '
3. '简繁体转换(smBig2GB)
4. '
6. Option Explicit
8. Dim BigData As Variant
9. Dim GbData As Variant
11. '
12. '将BIG码转为GB码
13. '函数:BigToGB
14. '参数:BigStr BIG码字符串
15. '返回值:GB码字符串
16. Function BigToGB(BigStr As String) As String
17.     Dim I As Long, Y As Long
18.     Dim BigByte() As Byte
19.     Dim GbByte() As Byte
20.     
21.     If BigStr = "" Then
22.         BigToGB = ""
23.         Exit Function
24.     End If
25.     
26.     BigByte = StrConv(BigStr, vbFromUnicode)
27.     Y = UBound(BigByte)
28.     ReDim GbByte(0 To Y)
29.     For I = 0 To Y
30.         If I = Y Then
31.             GbByte(I) = BigByte(I)
32.             Exit For
33.         End If
34.         If BigByte(I) < &HA1 Or BigByte(I + 1) < &H40 Then
35.             GbByte(I) = BigByte(I)
36.         Else
37.             GbByte(I) = PBigType(BigByte(I), BigByte(I + 1)).loChar
38.             GbByte(I + 1) = PBigType(BigByte(I), BigByte(I + 1)).hiChar
39.             I = I + 1
40.         End If
41.     Next I
42.     BigToGB = StrConv(GbByte, vbUnicode)
43.     Erase GbByte
44. End Function
46. '
47. '将GB码转为BIG码
48. '函数:GBToBig
49. '参数:GBStr GB码字符串
50. '返回值:BIG码字符串
52. Function GBToBig(GBStr As String) As String
53.     Dim I As Long, Y As Long
54.     Dim GbByte() As Byte
55.     Dim BigByte() As Byte
56.     
57.     If GBStr = "" Then
58.         GBToBig = ""
59.         Exit Function
60.     End If
61.     
62.     GbByte = StrConv(GBStr, vbFromUnicode)
63.     Y = UBound(GbByte)
64.     ReDim BigByte(0 To Y)
65.     
66.     For I = 0 To Y
67.         If I = Y Then
68.             BigByte(I) = GbByte(I)
69.             Exit For
70.         End If
71.         If GbByte(I) < &HA1 Or GbByte(I + 1) < &HA1 Then
72.             BigByte(I) = GbByte(I)
73.         Else
74.             If GbByte(I) < &HB0 And GbByte(I + 1) >= &HA1 Then
75.                 BigByte(I) = PGbType(GbByte(I) + 6, GbByte(I + 1)).loChar
76.                 BigByte(I + 1) = PGbType(GbByte(I) + 6, GbByte(I + 1)).hiChar
77.             Else
78.                 BigByte(I) = PGbType(GbByte(I), GbByte(I + 1)).loChar
79.                 BigByte(I + 1) = PGbType(GbByte(I), GbByte(I + 1)).hiChar
80.             End If
81.             I = I + 1
82.         End If
83.     Next I
84.     GBToBig = StrConv(BigByte, vbUnicode)
85.     Erase BigByte
86. End Function
88. Private Sub Class_Initialize()
89.     Dim I As Long
90.     Dim J As Long
91.     Dim iLen As Long
93.     BigData = LoadResData(100, "CUSTOM")    '//读取Big5字库
94.     GbData = LoadResData(101, "CUSTOM")     '//读取GB字库
96.     For I = &HA1 To 
97.         For J = &H40 To 
98.             PBigType(I, J).loChar = BigData(iLen)
99.             PBigType(I, J).hiChar = BigData(iLen + 1)
100.             iLen = iLen + 2
101.         Next J
102.     Next I
103.     iLen = 0
104.     For I = &HA7 To 
105.         For J = &HA1 To 
106.             PGbType(I, J).loChar = GbData(iLen)
107.             PGbType(I, J).hiChar = GbData(iLen + 1)
108.             iLen = iLen + 2
109.         Next J
110.     Next I
111. End Sub