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
Resumo por IA: 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.
Código fonte
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
Comentários originais (3)
Recuperado do Wayback Machine