Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

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