移除字串中不要的字符

参数 : 1：要检查的字串 [准备移除其中某些字符]
2：要移除的字符 (数字/中英文)

程序码
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

返回值 移除某些字符后的字串

实例 :
我想移除 Text1 中的字符 "A"
Text1 = StringCleaner(Text1, "A")

上一篇： 通往 Internet 的捷径---捷径档的结构
下一篇： 维护 Internet Transfer Control 之 Username 及 Password

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!