Remove several chars!
No attachments for this post
It removes a set of chars from a string, by using ParamArray, it is very simple! It was submitted as a alternative to another submission : http://www.planet-source-code.com/vb/scripts/showcode.asp?txtCodeId=39842&lngWId=1
Original Author: Brian Kristensen
Text, char1, char2 .... etc.
It is simple and fast
It returns the string without the chars that is defined.
Public Sub TestIt()
Dim sText As String
sText = InputBox("Please write something you want to remove 'e;s;n;t' from!", "Remove Char test", "It doesent work!")
MsgBox RemoveChar(sText, "e", "s", "n", "t")
Public Function RemoveChar(ByVal sText As String, ParamArray sChar()) As String
Dim lngdo As Long
For lngdo = LBound(sChar) To UBound(sChar)
sText = Replace(sText, sChar(lngdo), "")
RemoveChar = sText
MsgBox "Removed: " & Join(sChar, ";")
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.