【字符】GB繁体转简体

  勇芳 2017-4-5 5822

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

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


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