繁体字和简体字之间进行转换,是编程中经常遇到的,虽然有很多在线工具可以实现转换,但是VBA代码中如何能快速实现呢?
其实利用API可以快速实现繁体字与简体字直接的转换,代码如下。
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
Function Jian_Fan_Conv(ByVal strString As String, Optional ByVal iMode As Integer = 0) As String
Dim lStrLength As Long
Dim strNew As String
Const J2F_MAPFLAG = &H4000000
Const F2J_MAPFLAG = &H2000000
Jian_Fan_Conv = \"\"
lStrLength = lStrLen(strString)
strNew = Space(lStrLength)
If iMode = 0 Then
LCMapString &H804, J2F_MAPFLAG, strString, lStrLength, strNew, lStrLength
Else
LCMapString &H804, F2J_MAPFLAG, strString, lStrLength, strNew, lStrLength
End If
Jian_Fan_Conv = strNew
End Function
代码是不是很简单?其实就是使用API函数LCMapString实现简繁体之间的转换。
参数dwMapFlags用于控制转换方式,是简体转为繁体,还是繁体转为简体。
参数iMode为转换模式,缺省值为0,实现简体转为繁体,如果不为0值,则繁体转为简体。
注意:
用于保存转换结果的字符串,需要先同空格填充为相应长度的字符串,否则API返回结果为空字符串。
★《布宫号》提醒您:民俗信仰仅供参考,请勿过度迷信!