Solved

Count only numbers from string

Posted on 2007-04-06
7
222 Views
Last Modified: 2008-02-07
Hi: Is there any way thru VBA code i can know only the length of numbers from the string. I mean the length of string (only numbers) in str1=5 and the length of string str2=8 and length of string str3=10 and length of string str4=10

str1="12334redf"
str2="12345678"
str3="736-122-5880
str4="(631)656-0978

Thanks.
0
Comment
Question by:mustish1
  • 3
  • 3
7 Comments
 
LVL 39

Accepted Solution

by:
stevbe earned 200 total points
ID: 18865699
Public Function NumberCount(DataIn As String) As Long
    Dim lngCount As Long
    Dim lngPos As Long

    For lngPos = 1 To Len(DataIn)
        If IsNumeric(Mid(DataIn, lngPos, 1) Then
            lngCount = lngCount + 1
        End If
    End If

    NumberCount = lngCount

End Function
0
 
LVL 26

Assisted Solution

by:jerryb30
jerryb30 earned 200 total points
ID: 18865704
I think the second
endif
is actually
next longpos
0
 
LVL 67

Assisted Solution

by:sirbounty
sirbounty earned 100 total points
ID: 18865706
Something like this as an example...

str1 = "12334redf"
For x = 1 To Len(str1)
    If IsNumeric(Mid(str1, x, 1)) Then
        cnt = cnt + 1
    End If
Next
0
Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

 
LVL 39

Assisted Solution

by:stevbe
stevbe earned 200 total points
ID: 18865726
what jerry said :-)
0
 
LVL 26

Assisted Solution

by:jerryb30
jerryb30 earned 200 total points
ID: 18865735
Steve:
I had a solution exactly like yours and refreshed. Would hae been in same minute, but you had me beat.....
0
 
LVL 39

Expert Comment

by:stevbe
ID: 18865766
and that's what I get for typing too fast ... I made the function on the fly, you should get a split on this :-)
0
 
LVL 26

Expert Comment

by:jerryb30
ID: 18865839
So i did.
Thanks.
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

Today's users almost expect this to happen in all search boxes. After all, if their favourite search engine juggles with tens of thousand keywords while they type, and suggests matching phrases on the fly, why shouldn't they expect the same from you…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now