Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Only Number String
Author:
Glaścio
E-mail:
Click to e-mail author
Submitted:
4/7/2006
Version:
VB6
Compatibility:
VB5, VB6
Category:
String Manipulation
Views:
17914
Extract all numbers only from alphanumeric string.
Declarations:
'none
Code:
'Copyright 2004 - 2006 ©, Gl Softwares ® 'This code was made by glaścio!? Function OnlyNumbers(ByVal Str As String) As Long Dim i As Long, k As Long, j As Long For i = 0 To Len(Str) k = Mid(Str, i + 1, 1) If Not k >= 0 Or k <= 9 Then j = j + k End If Next OnlyNumbers= j End Function
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement