vb.net字符转字节,vbnet byte转成string

刚入手VB.NET不知道怎么将数字转换成字节数组

Private Function Conver_Hex(ByVal L As Long) As Array

Dim str_L As String = Hex(L)

If str_L.Length \ 2 0 Then

str_L = "0" str_L

End If

Dim byt(str_L.Length / 2 - 1) As Byte

For i = 0 To str_L.Length / 2 - 1

byt(i) = Convert.ToByte(str_L.Substring(2 * i, 2), 16)

Next

Return byt

End Function

'下面是调用代码

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim L As Double = 123456

Dim byt() As Byte = Conver_Hex(L)

End Sub

相关问答

Q1: 如何将VB.NET字符串转换成字节数组

在VB.NET中如果需要将一个字符串转换成字节数组，可以使用System.Text命名空间中某个编码对象的GetBytes方法。

Dim strText As String = "This is an original string"

Q2: 如何将VB.NET 字符串转换成字节数组

ToCharArray()

例如：str="asdfafafafaf"

str.toCharArray就是一个Char()数组了。

Q3: VB.net将结构体定长字符串转字节数组时怎么丢了一位呢？？

你搞错了一点：Unicode字符规定，每个字符占用两个字节，包括英文和数字，所以你只需将：

MarshalAs(UnmanagedType.ByValTStr, sizeconst:=3) Public s As String

改成：

MarshalAs(UnmanagedType.ByValTStr, sizeconst:=6) Public s As String

即可！

Q4: vb.net 如何将十六进制字符串转换为十六进制变量

numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)

或

numHex = Integer. Parse("H" strHex)

Q5: VB.net 字符转换问题 字符（汉字、数字、字母、符号）>gb2312>unicode>utf8， 以及逆转的方法

字符编码转换吗?

1.字符与gb2312(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

2.Unicode字符串为UTF-8

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

'这里可以类推出好几种。