清除字符串中指定的字符
出处：网络

    该函数在字符串s中清除 Search（注意：如果 s 为 AAABBB，Search 为 AB。如何？） ：

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

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明