Question

How to check if all strings in an array are equal in VB.NET

Answer 1

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function allStringsAreEqual(ByVal arr As String()) As Boolean
        Return arr.[Select](Function(s) s.ToLower()).Distinct().Count() = 1
    End Function

    Public Shared Sub Main()
		Dim arr As String() = {"vb.net", "vb.net", "vb.net", "vb.net"}

        If allStringsAreEqual(arr) Then
            Console.Write("Yes")
        Else
            Console.Write("No")
        End If
    End Sub
End Class





' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals