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