Re: Trimming and clensing a string

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: "LGC" <pro3carp3@xxxxxxxxx>
Date: Wed, 8 Jun 2005 09:23:10 -0500

> Basically, is there an easy way of removing all non-numeric characters
from
> a string?

The following function will remove all non-numeric characters from a string:

Public Function NumericOnly(sSource As String) As String

Dim BytesIn() As Byte
Dim BytesOut() As Byte
Dim LenBytes As Integer
Dim IdxIn As Integer
Dim IdxOut As Integer

If Nz(sSource, "") = "" Then
NumericOnly = ""
Exit Function
End If

BytesIn() = StrConv(sSource, vbFromUnicode)
LenBytes = UBound(BytesIn)

ReDim BytesOut(0 To LenBytes)

For IdxIn = 0 To LenBytes
If BytesIn(IdxIn) > 47 And BytesIn(IdxIn) < 58 Then
BytesOut(IdxOut) = BytesIn(IdxIn)
IdxOut = IdxOut + 1
End If
Next

NumericOnly = StrConv(BytesOut, vbUnicode)

End Function

-LGC

.

References:
- Trimming and clensing a string
  - From: NH

Prev by Date: Re: msgbox responses
Next by Date: Re: msgbox responses
Previous by thread: Trimming and clensing a string
Next by thread: Re: Trimming and clensing a string
Index(es):
- Date
- Thread

Relevant Pages

Re: Strip Non-Numeric Characters from a string or range
... property to "wdFindStop". ... will remove all non-numeric characters from the document, ... > from a string. ... > Dim oChrNum As Long ...
(microsoft.public.word.vba.general)
Re: Text Field
... The following will remove all non-numeric characters from a string ... Public Function fSaveNumer2(pPhone As String) As String ... Dim strHold As String ... PAC, 1,000 EA). ...
(microsoft.public.access.queries)
Re: How do I extract numbers from a cell with both text and numbers?
... Function StripTxt(a As String) As String ... Dim b As String ... > ' Strips all non-numeric characters from a string ...
(microsoft.public.excel.worksheet.functions)
Re: How do I extract numbers from a cell with both text and numbers?
... Function StripTxt(a As String) As String ... ' Strips all non-numeric characters from a string ... Dim b As String ...
(microsoft.public.excel.worksheet.functions)
Search pattern
... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
(comp.databases.ms-access)