RemoveChars

From scripting
Revision as of 19:51, 24 April 2017 by Nickpisca (talk | contribs) (Created page with " Function RemoveChars(InputStr As String, ArrayOfChars As Variant) As String Dim tempStr As String tempStr = InputStr For X = 0 To UBound(ArrayOfChars) tempStr = Repla...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search 
Function RemoveChars(InputStr As String, ArrayOfChars As Variant) As String
Dim tempStr As String
tempStr = InputStr
For X = 0 To UBound(ArrayOfChars)
    tempStr = Replace(tempStr, ArrayOfChars(X), "")
Next X
RemoveChars = tempStr
End Function
Retrieved from "http://nickpisca.com/BLAST/index.php?title=RemoveChars&oldid=298"