Question

How to check if two strings are anagram (same letters different words) in VB.NET

Answer 1

Imports System
Imports System.Linq

Public Class Test
    Public Shared Sub Main(ByVal args As String())
        Dim s1 As String = "dusty"
        Dim s1_sorted As String = String.Concat(s1.OrderBy(Function(ch) ch))
			
        Dim s2 As String = "study"
        Dim s2_sorted As String = String.Concat(s2.OrderBy(Function(ch) ch))

        If s1_sorted = s2_sorted Then
            Console.WriteLine("Anagram")
        Else
            Console.WriteLine("Not Anagram")
        End If
    End Sub
End Class




' run:
'
' Anagram
' 

 

70+ SQL courses for beginners and professionals