清除字符串中指定的字符

资讯 2008-03-17 驱动中国若水 480 次阅读 0 条评论

该函数在字符串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

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

本文价值 ★★★★★ — 成为第一个评分的人

登录后为本文打分

网友评论0 条评论

正在回复的评论取消

评论加载中…

🔐

评论、点赞均可赚积分
连续签到、邀请好友也有奖励 🎁