Question

How to get the repeating characters of a string in VB.NET

Answer 1

Imports System
                 
Public Module Module1
    public Function get_repeating_chars(s As String) As String
        Dim len As Integer = s.Length
        Dim tmp As String = ""
             
        For i As Integer = 0 To len - 1
            For j As Integer = i + 1 To len - 1
                If (s(i) = s(j)) Then
                    If (tmp.IndexOf(s(i).ToString(), StringComparison.CurrentCultureIgnoreCase) = -1) Then
                        tmp += s(i)
                        Exit For
                    End If
                End If
            Next
        Next
        return tmp
    End Function
    Public Sub Main()
        Dim s As String = "abcdeffghijgklmbbbbxzx"
         
        Dim tmp As String = get_repeating_chars(s)
                 
        Console.Write(tmp)
    End Sub
End Module
 
 
 
' run:
'
' bfgx
'

 

70+ SQL courses for beginners and professionals