Search Tools Links Login

Remove several chars!


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

Inputs

Text, char1, char2 .... etc.

Assumptions

It is simple and fast

Returns

It returns the string without the chars that is defined.

Side Effects

No

Code

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")
End Sub
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), "")
Next lngdo
RemoveChar = sText
MsgBox "Removed: " & Join(sChar, ";")
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 101 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.