VB 实现UTF-8 与GB2312互转

最新推荐文章于 2023-11-15 09:07:52 发布

原创最新推荐文章于 2023-11-15 09:07:52 发布 · 3.1k 阅读

CC 4.0 BY-SA版权

这篇博客介绍了如何在VB中实现UTF-8与GB2312编码之间的相互转换，提供了两个函数：GB2312ToUTF8和UTF8ToGB2312，利用ADODB.Stream对象完成转换操作。同时还分享了与VB编程相关的其他文章链接，涵盖了文本处理、文件操作、窗体交互等多个方面。

模块代码如下：

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

★VB部分相关文章推荐：★

☆VB 读写TXT文本文件函数

☆VB 提取TextBox 文本框中指定一行字符串

☆VB 使用SendMessage枚举文件与目录

☆VB 二进制数组与十六进制字符串相互转换

☆VB 二进制数据读写实例

☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转

☆VB 判断是否文本文件