VBA中的简繁转换

VBA中的简繁转换

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _

ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

'Dim STf As String '繁体字符串

'Dim STj As String ' 简体字符串

'Dim STlen As Long ' 待转换字串长度

'Sub Test1() 'Gb码简体转繁体

' STj = "中华人民共和国"

' STlen = lstrlen(STj)

' STf = Space(STlen)

' LCMapString &H804, &H4000000, STj, STlen, STf, STlen

' Debug.Print STf

'End Sub

'Sub Test2() 'Gb码繁体转简体

' STf = "中華人民共和國"

' STlen = lstrlen(STf)

' STj = Space(STlen)

' LCMapString &H804, &H2000000, STf, STlen, STj, STlen

' Debug.Print STj

'End Sub

Public Function scTtc(ByVal Str As String) As String

Dim lngStrLen As Long, StrA As String

lngStrLen = lstrlen(Str)

StrA = Space(lngStrLen)

LCMapString &H804, &H2000000, Str, lngStrLen, StrA, lngStrLen

If StrA = Str Then

lngStrLen = lstrlen(Str)

StrA = Space(lngStrLen)

LCMapString &H804, &H4000000, Str, lngStrLen, StrA, lngStrLen

scTtc = StrA

Else

scTtc = StrA

End If

End Function