Question

How to print byte array in VB.NET

Answer 1

Imports System
Imports System.Text

Public Class Program
    Public Shared Sub PrintByteArray(ByVal bytes As Byte())
        Dim sb = New StringBuilder("byte[] = ")
        Dim b

        For Each b In bytes
            sb.Append(b & ", ")
        Next

        Console.WriteLine(sb.ToString())
    End Sub

    Public Shared Sub Main()
        Dim bytes As Byte() = New Byte() {1, 2, 4, 16, 32, 64, 128}
        
        PrintByteArray(bytes)
    End Sub
End Class




' run:
'
' byte[] = 1, 2, 4, 16, 32, 64, 128, 
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Text

Public Class Program
    Public Shared Sub Main()
        Dim bytes As Byte() = New Byte() {97, 98, 122}
        
        Console.WriteLine(Encoding.UTF8.GetString(bytes))

    End Sub
End Class




' run:
'
' abz
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim bytes As Byte() = New Byte() {1, 2, 4, 16, 32, 64, 128}
		
        Console.WriteLine(String.Join(", ", bytes))
    End Sub
End Class
   
   
' run:
'
' 1, 2, 4, 16, 32, 64, 128
'

 

70+ SQL courses for beginners and professionals

Answer 4

Imports System

Public Class Program
    Public Shared Sub PrintByteArray(ByVal barray As Byte())
        Console.Write("byte[] = ")

        For Each b As Byte In barray
            Console.Write(b.ToString() & " ")
        Next

        Console.WriteLine()
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim barr As Byte() = New Byte() {1, 2, 4, 16, 32, 64, 128}
        PrintByteArray(barr)
    End Sub
End Class

   
   
' run:
'
' byte[] = 1 2 4 16 32 64 128
'

 

70+ SQL courses for beginners and professionals

Answer 5

Imports System

Public Class Program
    Public Shared Sub PrintByteArray(ByVal barray As Byte())
        Console.Write("byte[] = ")

        For Each b As Byte In barray
            Console.Write(b.ToString("X2") & " ")
        Next

        Console.WriteLine()
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim barr As Byte() = New Byte() {1, 2, 4, 16, 32, 64, 128, 255}
	
        PrintByteArray(barr)
    End Sub
End Class

   
   
' run:
'
' byte[] = 01 02 04 10 20 40 80 FF
'

 

70+ SQL courses for beginners and professionals