【字符】GB簡體轉繁體

  勇芳 2017-4-5 4423

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


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网