vb.net转换文件编码 vbnet byte转成string

vb.net 如何将编码GB2312转成UTF8

Imports System.Text

Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()

Dim bytes() As Byte

bytes = Encoding.UTF8.GetBytes(strData)

Return bytes

End Function

说明：strData参数是GB2312字符串，函数返回UTF8字节数组

相关问答

Q1: vb.net 将中文转UTF8的代码？谁有的帮帮我吧！

根本都不是vb.net转换文件编码你说vb.net转换文件编码的简单vb.net转换文件编码的UTF8编码问题vb.net转换文件编码，人家是加密计算，下面的是UTF8编码转化函数

Private Function convert_UTF8(ByVal str As String) As String

Dim byt() As Byte = System.Text.Encoding.GetEncoding("Gb2312").GetBytes(str)

Return System.Text.Encoding.UTF8.GetString(byt)

End Function

Q2: vb.net中string 转 unicode 编码

Unicode编码是一个数组，其中每个元素代表一个位码，还有ASCII和UTF8两种编码格式。

Unicode：

Dim bytes() As Byte() = System.Text.Encoding.Unicode.GetBytes("字符串")

ASCII：

Dim bytes() As Byte() = System.Text.Encoding.ASCII.GetBytes("字符串")

UTF8：

Dim bytes() As Byte() = System.Text.Encoding.UTF8.GetBytes("字符串")

Q3: vb.net怎么把汉字转换为GB2312编码,例如“广东”变成%B9%E3%B6%AB

GB2312是GBK编码的子集，使用GBK编码函数即可

'GBK编码(结果以百分号%进行分隔)

Public Function GBKEncode(ByVal sInput As String) As String

Dim ret_GBKEncode As String = ""

Dim i As Integer

Dim startIndex As Integer = 0

Dim endIndex As Integer

Dim x() As Byte = System.Text.Encoding.Default.GetBytes(sInput) '字符以及字符串在vb2008中都是以unicode编码存储的

endIndex = x.Length - 1

For i = startIndex To endIndex

ret_GBKEncode = "%" Hex(x(i))

Next

Return ret_GBKEncode

End Function

'GBK解码

Public Function GBKDecode(ByVal sInput As String) As String

sInput = sInput.Replace("%", "")

Dim ret_GBKDecode As String = ""

Dim sLen As Integer = sInput.Length

Dim n As Integer = sLen \ 2

Dim sBytes(0 To n - 1) As Byte

'转化为字节码

For i As Integer = 1 To n

sBytes(i - 1) = CByte("H" sInput.Substring(2 * i - 2, 2))

Next

'将字节码转化为字符串

ret_GBKDecode = System.Text.Encoding.Default.GetString(sBytes)

Return ret_GBKDecode

End Function

vb.net转换文件编码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet byte转成string、vb.net转换文件编码的信息别忘了在本站进行查找喔。