Removing Characters and Strings from a String (VB6)

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.



Comments

  • Replace by any other name?

    Posted by ahoodin on 08/05/2014 05:17am

    How is this better?

    Reply
  • Replace Characters in VB String

    Posted by Legacy on 06/07/2002 12:00am

    Originally posted by: Partha

    This is the simplest and best that I could found on the net when I searched for morethan an hour to figure out escaping the special characters in VB.
    This code straight away provided me the clue that I was looking for and saved my time a lot.
    Thanks a lot to the writer of this code.

    Reply
  • http://codeguru.developer.com/vb/articles/1761.shtml

    Posted by Legacy on 02/27/2000 12:00am

    Originally posted by: Sebastijan

    The problem is how to stripout a word "cde" from "abcdefgccdecc cc cde cc"

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: March 19, 2015 @ 1:00 p.m. ET / 10:00 a.m. PT The 2015 Enterprise Mobile Application Survey asked 250 mobility professionals what their biggest mobile challenges are, how many employees they are equipping with mobile apps, and their methods for driving value with mobility. Join Dan Woods, Editor and CTO of CITO Research, and Alan Murray, SVP of Products at Apperian, as they break down the results of this survey and discuss how enterprises are using mobile application management and private …

  • On-demand Event Event Date: February 12, 2015 The evolution of systems engineering with the SysML modeling language has resulted in improved requirements specification, better architectural definition, and better hand-off to downstream engineering. Agile methods have proven successful in the software domain, but how can these methods be applied to systems engineering? Check out this webcast and join Bruce Powel Douglass, author of Real-Time Agility, as he discusses how agile methods have had a tremendous …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date