Enhance the Replace Function

Enhance the Replace Function

If you’re faced with a string that needs to have certain characters removed from it, use the Replace() function to make the problem more manageable. For instance, use this code to remove all a’s from a particular string:

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

This statement works fine when you want only a single character removed, but if you have a long list of suspects, you have to do serious copy-and-paste. Avoid that by using this function:

 Public Function StripOut(ByVal From As String, _	ByVal What As String) As String	Dim i As Integer	For i = 1 To Len(What)		From = Replace(From, Mid$(What, i, 1), "")	Next i	StripOut = FromEnd Function

Just place this code somewhere in your program?preferably in a module?and call it like this:

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

This call returns a string with all b, d, and f characters removed.

See also  Is Machine Learning Automating Creativity in Graphic Design?

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist