Question

How to find the longest word in a string with VB.NET

Answer 1

Imports System
Imports System.Linq

Module Module1

    Function LongestWord(s As String) As String
        Dim words = s.Split({" "}, StringSplitOptions.RemoveEmptyEntries)

        Return words.OrderByDescending(Function(w) w.Length).First()
    End Function

    Sub Main()
        Console.WriteLine(LongestWord("Could you recommend a good restaurant nearby?"))
    End Sub

End Module

	
' run:
'
' restaurant
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Module Module1

Function LongestWord(s As String) As String
    Dim words = s.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
    Dim longest As String = ""

    For Each w In words
        If w.Length > longest.Length Then
            longest = w
        End If
    Next

    Return longest
End Function


    Sub Main()
        Console.WriteLine(LongestWord("Could you recommend a good restaurant nearby?"))
    End Sub

End Module

	
' run:
'
' restaurant
'

 

70+ SQL courses for beginners and professionals