利用ADO STREAM实现GB2312和UTF8编码转换

最新推荐文章于 2024-05-02 05:35:17 发布

原创最新推荐文章于 2024-05-02 05:35:17 发布 · 9.3k 阅读

15 ·

CC 4.0 BY-SA版权

文章标签：

#VB6 #GB2312 #UTF8 #转换

VB6 专栏收录该内容

68 篇文章

订阅专栏

本文提供了一种使用ADODB.Stream组件在VBScript中实现GB2312与UTF8编码相互转换的方法。包括两个核心函数：GB2312转UTF8及UTF8转GB2312。

'* ************************************** * '* 模块名称：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