【字符】GB简体转繁体

  勇芳 2017-4-5 5877

GB简体转繁体

'GB简体转繁体
Function SimpleGB2TraditionalGB(ByVal sSimpleGB As String) As String
    Dim nLen As Integer
    Dim sTraditionalGB As String

    nLen=Len(sSimpleGB)
    sTraditionalGB=String$(nLen,0)
    Call LCMapString(&H804,&H4000000,ByVal StrPtr(sSimpleGB),nLen,ByVal StrPtr(sTraditionalGB),nLen)
    Function=sTraditionalGB
End Function


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