changenumber.cls

繁简转换的组件（含源代码）

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ChangeNumber"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'本代码可以随意复制，更改，但请保留此信息。
'作者：蔡栋玲
'QQ：28239279
'请注意，数据库中的记录已经排序，请不要随意修改
Private a As New ADODB.Recordset
Private c As New ADODB.Recordset
Private b As New ADODB.Connection

Public Function ChangeWord(ChangeString As String) As String
Dim s, x, y, StrEnd As String
s = ChangeString
If IsEmpty(ChangeString) Then
    Exit Function
End If
If ChangeString = "" Then
    Exit Function
End If
While Len(s)
    x = Left(s, 1)
    s = Mid(s, 2, Len(s) - 1)
    y = Hex(Asc(x))
    If Len(y) = 4 Then
        a.AbsolutePosition = FindSite(y)
        a.Find "GbCode='" & y & "'"
        If a.AbsolutePosition > 0 Then
            StrEnd = StrEnd & Chr("&H" & a.Fields("bigcode"))
        Else
            StrEnd = StrEnd & x
        End If
    Else
        StrEnd = StrEnd & x
    End If
Wend
ChangeWord = StrEnd
End Function


Public Function ChangeT(ChangeString As String) As String
Dim s, x, y, StrEnd As String
s = ChangeString
If IsEmpty(ChangeString) Then
    Exit Function
End If
If ChangeString = "" Then
    Exit Function
End If
While Len(s)
    x = Left(s, 1)
    s = Mid(s, 2, Len(s) - 1)
    y = Hex(Asc(x))
    If Len(y) = 4 Then
        c.AbsolutePosition = FindCode(y)
        c.Find "bigCode='" & y & "'"
        If c.AbsolutePosition > 0 Then
            StrEnd = StrEnd & Chr("&H" & c.Fields("gbcode"))
        Else
            StrEnd = StrEnd & x
        End If
    Else
        StrEnd = StrEnd & x
    End If
Wend
ChangeT = StrEnd
End Function

Private Function FindCode(ByVal HaxNo As String) As Long
Select Case Left(HaxNo, 1)
Case "A"
    Select Case Mid(HaxNo, 2, 1)
    Case "1"
        FindCode = 1
        Exit Function
    Case "2"
        FindCode = 235
        Exit Function
    Case "3"
        FindCode = 369
        Exit Function
    Case "4"
        FindCode = 424
        Exit Function
    Case "5"
        FindCode = 586
        Exit Function
    Case "6"
        FindCode = 748
        Exit Function
    Case "7"
        FindCode = 907
        Exit Function
    Case "8"
        FindCode = 1075
        Exit Function
    Case "9"
        FindCode = 1246
        Exit Function
    Case "A"
        FindCode = 1408
        Exit Function
    Case "B"
        FindCode = 1576
        Exit Function
    Case "C"
        FindCode = 1743
        Exit Function
    Case "D"
        FindCode = 1910
        Exit Function
    Case "E"
        FindCode = 2091
        Exit Function
    Case "F"
        FindCode = 2265
        Exit Function
    End Select
Case "B"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindCode = 24444
        Exit Function
    Case "1"
        FindCode = 2640
        Exit Function
    Case "2"
        FindCode = 2823
        Exit Function
    Case "3"
        FindCode = 3009
        Exit Function
    Case "4"
        FindCode = 3223
        Exit Function
    Case "5"
        FindCode = 3413
        Exit Function
    Case "6"
        FindCode = 3605
        Exit Function
    Case "7"
        FindCode = 3835
        Exit Function
    Case "8"
        FindCode = 4028
        Exit Function
    Case "9"
        FindCode = 4242
        Exit Function
    Case "A"
        FindCode = 4462
        Exit Function
    Case "B"
        FindCode = 4683
        Exit Function
    Case "C"
        FindCode = 4907
        Exit Function
    Case "D"
        FindCode = 5137
        Exit Function
    Case "E"
        FindCode = 5363
        Exit Function
    Case "F"
        FindCode = 5596
        Exit Function
    End Select

Case "C"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindCode = 5832
        Exit Function
    Case "1"
        FindCode = 6073
        Exit Function
    Case "2"
        FindCode = 6312
        Exit Function
    Case "3"
        FindCode = 6566
        Exit Function
    Case "4"
        FindCode = 6817
        Exit Function
    Case "5"
        FindCode = 7071
        Exit Function
    Case "6"
        FindCode = 7335
        Exit Function
    Case "9"
        FindCode = 7446
        Exit Function
    Case "A"
        FindCode = 7598
        Exit Function
    Case "B"
        FindCode = 7751
        Exit Function
    Case "C"
        FindCode = 7908
        Exit Function
    Case "D"
        FindCode = 8062
        Exit Function
    Case "E"
        FindCode = 8219
        Exit Function
    Case "F"
        FindCode = 8375
        Exit Function
    End Select

Case "D"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindCode = 8530
        Exit Function
    Case "1"
        FindCode = 8686
        Exit Function
    Case "2"
        FindCode = 8842
        Exit Function
    Case "3"
        FindCode = 8999
        Exit Function
    Case "4"
        FindCode = 9145
        Exit Function
    Case "5"
        FindCode = 9315
        Exit Function
    Case "6"
        FindCode = 9471
        Exit Function
    Case "7"
        FindCode = 9629
        Exit Function
    Case "8"
        FindCode = 9789
        Exit Function
    Case "9"
        FindCode = 9947
        Exit Function
    Case "A"
        FindCode = 10106
        Exit Function
    Case "B"
        FindCode = 10264
        Exit Function
    Case "C"
        FindCode = 10426
        Exit Function
    Case "D"
        FindCode = 10593
        Exit Function
    Case "E"
        FindCode = 10750
        Exit Function
    Case "F"
        FindCode = 10912
        Exit Function
    End Select

Case "E"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindCode = 11072
        Exit Function
    Case "1"
        FindCode = 11240
        Exit Function
    Case "2"
        FindCode = 11406
        Exit Function
    Case "3"
        FindCode = 11568
        Exit Function
    Case "4"
        FindCode = 11729
        Exit Function
    Case "5"
        FindCode = 11891
        Exit Function
    Case "6"
        FindCode = 12054
        Exit Function
    Case "7"
        FindCode = 12217
        Exit Function
    Case "8"
        FindCode = 12317
        Exit Function
    Case "9"
        FindCode = 12547
        Exit Function
    Case "A"
        FindCode = 12711
        Exit Function
    Case "B"
        FindCode = 12875
        Exit Function
    Case "C"
        FindCode = 13041
        Exit Function
    Case "D"
        FindCode = 13211
        Exit Function
    Case "E"
        FindCode = 13370
        Exit Function
    Case "F"
        FindCode = 13537
        Exit Function
    End Select

Case "F"
    Select Case Mid(HaxNo, 2, 1)
    Case "0"
        FindCode = 13703
        Exit Function
    Case "1"
        FindCode = 13868
        Exit Function
    Case "2"
        FindCode = 14035
        Exit Function
    Case "3"
        FindCode = 14205
        Exit Function
    Case "4"
        FindCode = 14373
        Exit Function
    Case "5"
        FindCode = 14543
        Exit Function
    Case "6"
        FindCode = 14716
        Exit Function
    Case "7"
        FindCode = 14885
        Exit Function
    Case "8"
        FindCode = 15057
        Exit Function
    Case "9"
        FindCode = 15224
        Exit Function
    End Select
End Select
FindCode = 15383
End Function

Private Function FindSite(ByVal HaxNo As String) As Long
Select Case Left(HaxNo, 1)
Case "8"
    Select Case Mid(HaxNo, 2, 1)
    Case "1"
        FindSite = 1
        Exit Function
    Case "2"
        FindSite = 73
        Exit Function
    Case "3"
        FindSite = 187
        Exit Function
    Case "4"
        FindSite = 297
        Exit Function
    Case "5"
        FindSite = 384
        Exit Function
    Case "6"
        FindSite = 476
        Exit Function
    Case "7"
        FindSite = 570
        Exit Function
    Case "8"
        FindSite = 675