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. :)
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine