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

程序码
FunctionStringCleaner(sAsString,SearchAsString)AsString
DimiAsInteger,resAsString
res=s
DoWhileInStr(res,Search)
i=InStr(res,Search)
res=Left(res,i-1)&Mid(res,i 1)
Loop
StringCleaner=res
EndFunction

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

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