Removing Characters and Strings from a String (VB6)

Saturday Feb 7th 2004 by Konstantin Komissarchik
Share:

Learn how to wrap the VB6 Replace command to remove any characters from a string, eg. StripOut("abcdefg", "bdf") This will return a string that had all of its 'b', 'd', and 'f' characters removed. (Added: 12-May-1999)

I am often faced with a problem of a string that needs to have certain characters removed from it. With the advent of the <b>Replace() </b> function, the problem becomes more manageable. For instance, if you wanted to remove all of a's from a particular string, you could do the following:

Debug.print Replace("abababa", "a", "")

This is nice when you only have a single character that you want removed, but if you have a long list of suspects, you will have to do some serious copy and paste. You can avoid that by using the following function:

public Function StripOut(From as string, What as string) as string

    Dim i as Integer

    StripOut = From
    for i = 1 to len(What)
        StripOut = Replace(StripOut, mid$(What, i, 1), "")
    next i

End Function

Just place it somewhere in your code (preferably in a module), and call it like this:

Debug.print StripOut("abcdefg", "bdf")

This will return a string that had all of its 'b', 'd', and 'f' characters removed.

Share:
Home
Mobile Site | Full Site
Copyright 2017 © QuinStreet Inc. All Rights Reserved