Question

How to shift each letter in a string N places up in the alphabet with VB.NET

Answer 1

Imports System
Imports System.Text

Public Class Program
    Public Shared Function shiftEachLetterNPlacesUp(ByVal str As String, ByVal N As Integer) As String
        Dim result As StringBuilder = New StringBuilder()

        For Each ch As Char In str.ToCharArray()
            Dim asciiCode As Integer = AscW(ch) + N

            If (asciiCode >= 97 AndAlso asciiCode <= 122) OrElse (asciiCode >= 65 AndAlso asciiCode <= 90) Then
                result.Append(ChrW(asciiCode))
            Else
                result.Append(ch)
            End If
        Next

        Return result.ToString()
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(shiftEachLetterNPlacesUp("8a Fkq", 3))
    End Sub
End Class




' run:
'
' 8d Int
'

 

70+ SQL courses for beginners and professionals