Question

How to check if there is only one time zero in a string with VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function OnlyOneZero(ByVal str As String) As Boolean
        Dim count As Integer = 0

        For Each ch As Char In str.ToCharArray()
            If ch = "0"c Then
                count += 1
            End If
        Next

        Return count = 1
    End Function

    Public Shared Sub Main(ByVal args As String())
        Const s1 As String = "294098"
        Console.WriteLine(If(OnlyOneZero(s1), "yes", "no"))
		
        Const s2 As String = "47034099"
        Console.WriteLine(If(OnlyOneZero(s2), "yes", "no"))
    End Sub
End Class
	
	
	

' run:
'
' yes
' no
'

 

70+ SQL courses for beginners and professionals