Solved

Count only numbers from string

Posted on 2007-04-06
7
230 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
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

PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder. But why not let Windows retr…
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…

628 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