Question

How to find the first non repeated character in a string with VB.NET

Answer 1

Imports System
 
Public Class Program
    Public Shared Function GetFirstNonRepeatedCharacter(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
                Return str(i)
            End If
        Next
 
        Return " "c
    End Function
 
    Public Shared Sub Main()
Dim str As String = "c c++ csharp java php python vb.net"
 
        Console.Write(GetFirstNonRepeatedCharacter(str))
    End Sub
End Class
 
 
 
 
' run:
'
' s
'

 

70+ SQL courses for beginners and professionals