Question

How to swap pairs of characters in a string with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function SwapPairs(ByVal str As String) As String
        If str.Length = 0 Then
            Return str
        End If

        Dim arr As Char() = str.ToCharArray()

        For i As Integer = 0 To arr.Length - 1 Step 2
            Dim tmp As Char = arr(i)
            arr(i) = arr(i + 1)
            arr(i + 1) = tmp
        Next

        Return New String(arr)
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "aBcDeFgHiJkL"
	
        Console.WriteLine(SwapPairs(str))
    End Sub
End Class




' run:
'
' BaDcFeHgJiLk
'
 

 

70+ SQL courses for beginners and professionals