123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
Get Digits

--------------------------------------------------------------------------------

Description : Get the digits out of a string

Function GetDigits(value)
Dim s, sd, i

s = ""
For i = 1 To Len(value)
sd = Mid(value, i, 1)
If (Asc(sd) >= Asc("0")) And (Asc(sd) <= Asc("9")) Then
s = s & sd
End If
Next
GetDigits = s
End Function
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved © copyright 123ENG