去除字符串中的各种引号

在程序开发的中，我们开发的产品是需要用户录入数据的，用户一般情况下，怎么简便怎么来。有时候用户会直接复制粘贴某些网站上的数据粘贴到咱们让用户录入数据的系统里，这个时候，用户复制的内容中，很有可能会包含各种引号，而这种引号，很有可能与我们的系统代码冲突，导致显示结果混乱或者出错。

作为程序员，我们不可能改变用户的操作习惯，只能通过程序代码的优化来解决这些问题，因此，我们就需要提前在系统代码中设置好去除用户提交的数据中的各种引号。小编简单封装了一段代码，用于去除字符串中的各种引号，亲测有效，有不足之处，请各位看官批评斧正。

Function ReplaceStr(str) ' 去除字符串中的各种引号

restr =Replace(str,"“","")

restr =Replace(restr,"”","")

restr =Replace(restr,"'","")

restr =Replace(restr,"‘","")

restr =Replace(restr,"‘","")

restr =Replace(restr,chr(34),"")

restr =Replace(restr,Chr(39),"")

ReplaceStr=restr

End Function