Question

How to check if a string contains identical digits in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic
 
Public Class StringContainIdenticalDigits_VB
    Public Shared Function isStringContainIdenticalDigits(ByVal str As String) As Boolean
        Dim arr As Char() = str.ToCharArray()
         
        Dim hset = New HashSet(Of Char)(arr)
         
        Return hset.Count = 1
    End Function
 
    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "88888888"
 
        If isStringContainIdenticalDigits(str) Then
            Console.WriteLine("yes")
        Else
            Console.WriteLine("no")
        End If
    End Sub
End Class
 
 
 
' run:
'
' yes
'

 

70+ SQL courses for beginners and professionals