Function
StrConvFromUTF8(aBytes()
As
Byte
)
As
String
Dim cStream As ADODB.Stream
Set cStream = New ADODB.Stream
cStream.Open
cStream.Type = adTypeBinary
cStream.Write aBytes
cStream.Position = 0
cStream.Type = adTypeText
cStream.Charset = " utf-8 "
StrConvFromUTF8 = cStream.ReadText
cStream.Close
End Function
Dim cStream As ADODB.Stream
Set cStream = New ADODB.Stream
cStream.Open
cStream.Type = adTypeBinary
cStream.Write aBytes
cStream.Position = 0
cStream.Type = adTypeText
cStream.Charset = " utf-8 "
StrConvFromUTF8 = cStream.ReadText
cStream.Close
End Function
扫一扫
11万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
