Question

How to remove a random word from a string in VB.NET

Answer 1

Imports System
Imports System.Linq

Class Program
    Public Shared Sub Main()
        Dim str As String = "I'm not clumsy The floor just hates me"
        Dim result As String = RemoveRandomWord(str)
		
        Console.WriteLine(result)
    End Sub

	Public Shared Function RemoveRandomWord(ByVal input As String) As String
        Dim random As Random = New Random()
        Dim words As String() = input.Split(" "c)
		
        If words.Length = 0 Then Return input
        
		Dim randomIndex As Integer = random.Next(words.Length)
        words = words.Where(Function(word, index) index <> randomIndex).ToArray()
			
        Return String.Join(" ", words)
    End Function
End Class



' run:
'
' I'm not The floor just hates me
'

 

70+ SQL courses for beginners and professionals