Question

How to reverse a word in a string with VB.NET

Answer 1

Imports System

Class Program
    Private Shared Sub ReverseWord(ByRef str As String, ByVal word As String)
        Dim pos As Integer = str.IndexOf(word)

        If pos <> -1 Then
            Dim wordArray As Char() = word.ToCharArray()
            Array.Reverse(wordArray)
            Dim reversed As String = New String(wordArray)
            str = str.Substring(0, pos) & reversed & str.Substring(pos + word.Length)
        End If
    End Sub

    Public Shared Sub Main()
		Dim str As String = "C++ C Java Python PHP C# VB.NET"
        Dim word As String = "Java"
		
        ReverseWord(str, word)
		
        Console.WriteLine(str)
    End Sub
End Class


' run:
'
' C++ C avaJ Python PHP C# VB.NET
'

 

70+ SQL courses for beginners and professionals