We help IT Professionals succeed at work.

Count Leading Zero of String

kay soo
kay soo asked
on
76 Views
Last Modified: 2018-10-10
Hi, can anyone show me how to count leading zero of a string?
I have searched the KB but not exactly what I am looking for, just want a simple count result of the number of leading Zero of a string.
Strings randomly consist of min 5 characters or max of 15 characters, all numeric, no alphabet involved.

e.g.
04421000
Result = 1

001540045456001
Result = 2

000123450100124
Result: = 3

121001421000041
Result = 0

Thx
Comment
Watch Question

CERTIFIED EXPERT

Commented:
try a function like this:

Function getLeadingZeroCount(ByVal v As String) As Integer
    tmp = Trim(v)
    If tmp = "" Then
        getLeadingZeroCount = 0
    Else
        For i = 1 To Len(tmp)
            If Mid(tmp, i, 1) = "0" Then
                getLeadingZeroCount = getLeadingZeroCount + 1
            Else
                Exit Function
            End If
        Next i
    End If
End Function

Open in new window

CERTIFIED EXPERT
Most Valuable Expert 2012
Top Expert 2013
Commented:
This problem has been solved!
(Unlock this solution with a 7-day Free Trial)
UNLOCK SOLUTION
CERTIFIED EXPERT

Commented:
@mbizup,

yup, a smart one

Author

Commented:
Thx for the solutions fellas, I go for @mbizup cause I used an unbound field to keep the count.

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions