Question

How to check if strings are rotations of each other in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function rotations(ByVal str1 As String, ByVal str2 As String) As Boolean
        If str1.Length <> str2.Length Then Return False
			
        Console.WriteLine(str1 & str1)
			
        Return (str1 & str1).IndexOf(str2) <> -1
    End Function

    Public Shared Sub Main()
        Dim str1 As String = "abcxd", str2 As String = "cxdab"

        If rotations(str1, str2) Then
            Console.Write("yes")
        Else
            Console.Write("no")
        End If
    End Sub
End Class
	
	
	
	
' run:
'
' abcxdabcxd
' yes
'

 

70+ SQL courses for beginners and professionals