Question

How to determine if a string has all unique characters in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function count_unique_char(ByVal s As String) As Boolean
        Dim ascii As Integer() = New Integer(255) {}
        Dim size As Integer = s.Length

        For i As Integer = 0 To size - 1
            ascii(Convert.ToByte(s(i))) += 1
            If ascii(Convert.ToByte(s(i))) > 1 Then Return False
        Next

        Return True
    End Function

    Public Shared Sub Main()
        Dim s As String = "node.js c#"
        Console.Write(count_unique_char(s))
    End Sub
End Class




' run:
' 
' True
'

 

70+ SQL courses for beginners and professionals