Find Largest Number from any text value - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Find Largest Number from any text value
Author: Yuvraj Pardeshi
Submitted: 9/15/2009
Version: VB6
Compatibility: VB6
Category: String Manipulation
Views: 11675
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