Strip Alpha Characters From a Given String

Category:

String Manipulation

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6

More information:

Though this function is designed specific to the author's needs, this snippet allows you to input a string and remove all non numeric characters. It currently works with up to 10 Characters, but is easily extended to be dynamic.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'//-----------------------------
'// EXAMPLE CODE (USAGE) Place On a Form With A TextBox
'//-----------------------------
Private Sub Text1_Change() 
    '//Use Change As It Catches The Paste (Right Click/CTRL+V)
    Text1.Text = MakeNumeric(Text1)
End Sub

'//------------------------------
'// PLACE THIS CODE INTO A MODULE
'//------------------------------
Public Function MakeNumeric(strText As String) As Long
'//Check For Null String
    If strText = vbNullString Then MakeNumeric = 0

'//Create The Array (Set To 10 - Not Much Chance of it being of 10 Chars Long)
'//And the Counter '(i)' Also sTemp is for the new output after the checks
    Dim Characters(10) As String, i As Integer, sTemp As String

'//Trim Down The Text To Avoid Errors
    If Len(strText) > UBound(Characters) Then
        strText = Left(strText, UBound(Characters))
    End If

'//Add Each Character to an Array (Makes Easier Loops for the Checks)
    For i = 1 To Len(strText)
        Characters(i - 1) = Right(Left(strText, i), 1)
    Next

'//Loop To Create the New String Taking Away All The Non Numeric Characters
'//Using the IsNumeric Function
    For i = 0 To UBound(Characters)
    '//Check For Null String
        If Not Characters(i) = vbNullString Then
        '//Check If its Numeric & Not a Space
        '//(After the first Char IsNumeric allows Spaces inside it)
            If IsNumeric(Characters(i)) = True And Not Characters(i) = Chr(32) Then
                sTemp = sTemp & Characters(i)
            End If
        End If
    Next

'//Create The Output
   MakeNumeric = sTemp
End Function

'Created Under Auth. Of Consoft Corporate Technologies
'Please Give Credits To Devon O'Connor <Devon_knows@hotmail.com>