Question

How to reverse the middle words of a string in VB

Answer 1

Imports System
Imports System.Linq

Module Program
    Function ReverseMiddleWords(input As String) As String
        Dim words = input.Split({" "}, StringSplitOptions.RemoveEmptyEntries)

        If words.Length < 3 Then
            Return input   ' nothing to reverse
        End If

        ' Reverse characters of middle words
        For i = 1 To words.Length - 2
            words(i) = New String(words(i).Reverse().ToArray())
        Next

        Return String.Join(" ", words)
    End Function

    Sub Main()
        Dim s As String = "Hello how are you today"
	
        Console.WriteLine(ReverseMiddleWords(s))
    End Sub
End Module
	


' run:
'
' Hello woh era uoy today
'

 

70+ SQL courses for beginners and professionals