清除字符串中指定的字符

• 字符
• 指定
• 字符串
• 清除
• res
• Search
• As
• Str

Function StringCleaner(s As String, Search As String) As String

Dim i As Integer, res As String

res = s

Do While InStr(res, Search)

i = InStr(res, Search)

res = Left(res, i - 1) & Mid(res, i + 1)

Loop

StringCleaner = res

End Function