Question

How to find the maximum number of characters between any two same character in a string with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function GetMaxChars(ByVal str As String) As Integer
        Dim size As Integer = str.Length
        Dim maxCh As Integer = 0

        For i As Integer = 0 To size - 1 - 1
            For j As Integer = i + 1 To size - 1
                If str(i) = str(j) Then
                    Dim temp As Integer = Math.Abs(j - i - 1)
                    maxCh = If(maxCh > temp, maxCh, temp)
                End If
            Next
        Next

        Return maxCh
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "aBcaaBdefBgh"
	
        Console.Write(GetMaxChars(str))
    End Sub
End Class




' run:
' 
' 7
'

 

70+ SQL courses for beginners and professionals