• Home
 · 
• Miscellaneous
 · 
• Remove several chars

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 : https://www.vbcoders.com/vb/scripts/showcode.asp?txtCodeId=39842&lngWId=1

Inputs
Text, char1, char2 .... etc.

Assumes
It is simple and fast

Returns
It returns the string without the chars that is defined.

Side Effects
No

Rate Remove several chars

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

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