Question

How to convert text to binary code in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function TextToBin(ByVal txt As String) As String
        Dim bin As String = String.Empty

        For Each ch As Char In txt
            Dim ascii As Integer = Convert.ToInt32(ch)
            Dim binary As String = Convert.ToString(ascii, 2)
            binary = binary.PadLeft(8, "0"c)
            bin += binary & " "
        Next

        Return bin.Trim()
    End Function

    Public Shared Sub Main(ByVal args As String())
		Dim str As String = "VB.NET"
	
        Dim binaryResult As String = TextToBin(str)
	
        Console.WriteLine(binaryResult)
    End Sub
End Class



' run:
'
' 01010110 01000010 00101110 01001110 01000101 01010100
'

 

Learn SQL from A to Z at LearnSQL.com