Thanks, Garry, I'll keep that in mind!

Susan


On Sunday, September 8, 2013 2:06:16 PM UTC-4, GS wrote:
I use the following function whenever I need to filter unwanted

characters from strings. Perhaps you will find it helpful...



Function FilterString$(ByVal TextIn As String, _

Optional IncludeChars As String, _

Optional IncludeLetters As Boolean = True, _

Optional IncludeNumbers As Boolean = True)

' Filters out all unwanted characters in a string.

' Arguments: TextIn The string being filtered.

' IncludeChars [Optional] Keeps any characters.

' IncludeLetters [Optional] Keeps any letters.

' IncludeNumbers [Optional] Keeps any numbers.

'

' Returns: String containing only the wanted characters.



Const sSource As String = "FilterString()"



'The basic characters to always keep

Const sLetters As String = "abcdefghijklmnopqrstuvwxyz"

Const sNumbers As String = "0123456789"



Dim i As Long, CharsToKeep As String



CharsToKeep = IncludeChars

If IncludeLetters Then _

CharsToKeep = CharsToKeep & sLetters & UCase(sLetters)

If IncludeNumbers Then CharsToKeep = CharsToKeep & sNumbers



For i = 1 To Len(TextIn)

If InStr(CharsToKeep, Mid$(TextIn, i, 1)) Then _

FilterString = FilterString & Mid$(TextIn, i, 1)

Next

End Function 'FilterString()



--

Garry



Free usenet access at http://www.eternal-september.org

Classic VB Users Regroup!

comp.lang.basic.visual.misc

microsoft.public.vb.general.discussion