Question

How to find all repeating characters in a string with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function PrintAllRepeatingCharacters(ByVal str As String) As Char
        Dim occurrences As Integer() = New Integer(255) {}

        For i As Integer = 0 To str.Length - 1
            occurrences(Convert.ToInt32(str(i))) += 1
        Next

        For i As Integer = 0 To str.Length - 1
            If occurrences(Convert.ToInt32(str(i))) > 1 Then
                Console.WriteLine(str(i))
                occurrences(Convert.ToInt32(str(i))) = -1
            End If
        Next

        Return " "c
    End Function

    Public Shared Sub Main()
Dim str As String = "java c c++ csharp php python vb.net"

        PrintAllRepeatingCharacters(str)
    End Sub
End Class


 
 
 
 
' run:
'
' a
' v
'  
' c
' +
' h
' p
' t
' n
'

 

70+ SQL courses for beginners and professionals