Data manipulation
- Thread starter teel73
- Start date
I'm sorry but could you be a little more specific? What text manipulation functions are you referring to? Is there a "numeric only" function? I know of the InStr, Left,Mid, and Right functions but those aren't going to get the job done.
You would need to write your own function using the Mid, Left or other text manipulation functions.
Something Like
Something Like
Code:
Function CleanString(ByVal tmpSTR As String) As String
Dim i As Long
For i = 1 To Len(tmpSTR)
If IsNumeric(Mid$(tmpSTR, i, 1)) Then
CleanString = CleanString & Mid$(tmpSTR, i, 1)
End If
Next i
End Function
Code:
Sub Test
dim mySTRING as String
mySTRING = Cleanstring("999/777-5555")
debug.print mySTRING
end subIt didn' t work for me. The field is in a table of 6000 records where the phone number is keyed in so many different ways. Ex:999/999-9999 or 999.999.9999 or 9999999 . I just need to get it to display nothing but the numeric characters. I was hoping there was an easier function to run that would pull out only the numeric characters. I tried the Val function but it returns the numbers up to the unrecognizable character.
I used DJkarl's code. Look at this and see if it makes sense how it works...
ken
I don't quite understand how you are passing the field's value to tmpStr. I understand the For Next statement and the IsNumeric statement. But how are you getting the data passed to the variable?
KenHigg
Registered User
- Local time
- Today, 15:47
- Joined
- Jun 9, 2004
- Messages
- 13,327
Look at post 6 here for another simple function and see if it makes more sense:
http://www.access-programmers.co.uk/forums/showthread.php?t=99777
Ken
http://www.access-programmers.co.uk/forums/showthread.php?t=99777
Ken
