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