【字符】国标繁体转大五码

  勇芳 2017-4-5 6641

'国标繁体转大五码
Function GBK2BIG5(ByVal sGBK As String) As String
    Dim nLen As Integer
    Dim sBIG5 As String
    Dim sUnicode As String

    nLen=Len(sGBK)
    sUnicode=String$(nLen*2,0)
    'GBK->Unicode
    Call MultiByteToWideChar(&H3A8,0,ByVal StrPtr(sGBK),-1,ByVal StrPtr(sUnicode),nLen)
    'Unicode->GBK
    sBIG5=String$(nLen,0)
    Call WideCharToMultiByte(&H3B6,0,ByVal StrPtr(sUnicode),-1,ByVal StrPtr(sBIG5),nLen,"",0)
    Function=sBIG5
End Function


因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部