【 tulaoshi.com - 编程语言 】
                             
                            参数: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")->