Question

How to find the last character that is repeated in a string with VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Function get_last_character_repeated(s As String) As Integer
		Dim len As Integer = s.Length - 1
		Dim ch_idx As Integer = -1
           
		For i As Integer = 0 To len
			For j As Integer = i + 1 To len
				If (s(i) = s(j)) Then
                 	ch_idx = i
					Exit For
				End If
			Next
		Next
        return ch_idx
	End Function  
	Public Sub Main()
		Dim s As String = "abcdxypcbadom"
        
		Dim i As Integer = get_last_character_repeated(s)
		If (i = -1) Then
            Console.WriteLine("Not found")
        else
            Console.WriteLine(s(i))
		End If
	End Sub
End Module



' run:
'
' d
'

 

70+ SQL courses for beginners and professionals