How to Strip Numeric from a string
Posted on January 4, 2009
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 'String Manipulation - How to Strip Numeric from a string Option Explicit Public Function StripNumeric(ByVal strExpression As String) As String Dim iLength As Integer, I As Integer Dim sResult As String, sChar As String iLength = Len(strExpression) For I = 1 To iLength sChar = Mid$(strExpression, I, 1) If Not sChar Like "[0-9]" Then sResult = sResult & sChar End If Next I StripNumeric = sResult End Function |
Related posts:
- How to Strip Non Alpha Numeric from a string
- How to Strip Alphabets from a string
- How to Strip special characters from a given String
- How to check if a string contains only Alpha Numeric Characters
- How to check if a string contains only Numeric Characters
- How to Strip/Remove Text from a given String
- How to Test if a character is Alpha Numeric.
- How to Remove all numeric characters from a string
- How to Strip the Null Terminator from a given String
- How to trim characters from the Beginning of a string
