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
Find Largest Number from any text value
Author:
Yuvraj Pardeshi
Submitted:
9/15/2009
Version:
VB6
Compatibility:
VB6
Category:
String Manipulation
Views:
11682
This code will clean up any dirty value like this (#$%^skfslf2a5fs7a8j22hf) and return the max number.
Declarations:
Dim I As Double Dim J As Double Dim strMain As String Dim varNum As String Dim varArrayNum() As String Dim maxNum As Double
Code:
Private Function fnGetMaxNum(ByVal txtValue As String) As Double strMain = Trim(txtValue) 'MAIN LOOP For J = 1 To Len(strMain) 'LOOP FOR EXTRACTING TEXT If Asc(Mid(strMain, J, 1)) >= 48 And Asc(Mid(strMain, J, 1)) <= 57 Then varNum = varNum & Mid(strMain, J, 1) ElseIf varNum <> "" And Not IsNull(varNum) Then varNum = varNum & ";" End If Next J 'STORE THE NUMERIC VALUES IN ARRAY varArrayNum() = Split(varNum, ";", -1, vbDatabaseCompare) 'FIND THE LARGEST THE NUMBER OF ALL NUMBERS EXTRACTED For J = LBound(varArrayNum) To UBound(varArrayNum) If Not IsNull(varArrayNum(J)) And Not varArrayNum(J) = "" Then maxNum = CInt(varArrayNum(J)) For I = LBound(varArrayNum) To UBound(varArrayNum) If Not IsNull(varArrayNum(I)) And Not varArrayNum(I) = "" Then If CInt(varArrayNum(I)) > maxNum Then maxNum = varArrayNum(I) End If Next I End If Next J fnGetMaxNum = maxNum
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement