Question

How to turn each character of a string into its ASCII character code and join them together in VB.NET

Answer 1

Imports System
Imports Microsoft.VisualBasic
                   
Public Module Module1
    Public Sub Main()
        Dim s As String = "vb programming"
        Dim ascii As String = ""
  
        For Each ch As Char In s
            Dim asciicode As Integer = Convert.ToInt32(ch)
            Console.Write(asciicode & " ")
            ascii = ascii + Convert.ToString(asciicode)
        Next
  
        Console.WriteLine(vbCrLf & ascii)
    End Sub
End Module
   
   
   
   
' run:
'
' 118 98 32 112 114 111 103 114 97 109 109 105 110 103 
' 118983211211411110311497109109105110103
'

 

70+ SQL courses for beginners and professionals