Strip Characters from a string
This function is to strip all instances of a character out of a string. Its fairly compact and simple. Hope its helpful to someone. :)
Returns
The original string without the character in str2Strip
Rate Strip Characters from a string
(4(4 Vote))
Function stripChar(str2BStriped As String, str2Strip As String) As String
Dim sPos As Long
Dim newStr As String
sPos = 1
Do
sPos = InStr(str2BStriped, str2Strip)
If sPos > 0 Then
newStr = newStr & Left(str2BStriped, sPos - 1)
Else
newStr = newStr & str2BStriped
End If
str2BStriped = Right(str2BStriped, Len(str2BStriped) - sPos)
Loop Until sPos = 0
stripChar = newStr
End Function
Strip Characters from a string Comments
No comments yet — be the first to post one!
Post a Comment