拍拍尘土

'* ************************************** *
'* 模块名称：modCharset.bas
'* 模块功能：GB2312与UTF8相互转换函数
'* 作者：lyserver
'* ************************************** *

Option Explicit

'- ------------------------------------------- -
' 函数说明：GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
         Dim adoStream As Object
        
         Set adoStream = CreateObject("ADODB.Stream")
         adoStream.Charset = "utf-8"
         adoStream.Type = 2 'adTypeText
         adoStream.Open
         adoStream.WriteText strIn
         adoStream.Position = 0
         adoStream.Type = 1 'adTypeBinary
         GB2312ToUTF8 = adoStream.Read()
         adoStream.Close
        
         If ReturnValueType = vbString Then GB2312ToUTF8 = Mid(GB2312ToUTF8, 1)
End Function

'- ------------------------------------------- -
' 函数说明：UTF8转换为GB2312
'- ------------------------------------------- -
Public Function UTF8ToGB2312(ByVal varIn As Variant) As String
         Dim bytesData() As Byte
         Dim adoStream As Object

         bytesData = varIn
         Set adoStream = CreateObject("ADODB.Stream")
         adoStream.Charset = "utf-8"
         adoStream.Type = 1 'adTypeBinary
         adoStream.Open
         adoStream.Write bytesData
         adoStream.Position = 0
         adoStream.Type = 2 'adTypeText
         UTF8ToGB2312 = adoStream.ReadText()
         adoStream.Close
End Function