Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Feb 24, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 = From
End 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.
Konstantin Komissarchik
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



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