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
ИИ-обзор: 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.
Исходный код
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
Оригинальные комментарии (3)
Восстановлено из Wayback Machine