BBS过滤不干净,非法字符2006-6-7-3

原创 2006年06月07日 19:26:00

'名称:BBS过滤
'调用:guolv(str)
'参数:str为要过滤的内容;
'作用:删除一些为了推广自己公司在论坛里发布的大量的网址信息,过滤原则是去掉网址及前10个字符,
'         把一些不健康的字符替换成*


Function guolv(Words)
 Words=Replace(Words,"http://web.cbdcn.com","")
 OutStr=""
 Dim strPattern
 strPattern1 = "(.gov|.cn|.sh|.name|.ws|.ac|.io|.com|.tw|.idv|.com.cn|.org|.edu)"
 strPattern2 = "(/w{0,10}(.gov|.cn|.sh|.name|.ws|.ac|.io|.com|.tw|.idv|.com.cn|.org|.edu))/b"
 Dim oRegEx,oMatch
 Set oRegEx = New RegExp
 oRegEx.IgnoreCase = True
 oRegEx.Global = True
 oRegEx.Pattern = strPattern1
 Words= oRegEx.Replace(Words, "$1"&VbCrLf)
 oRegEx.Pattern = strPattern2
 guolv = oRegEx.Replace(Words, OutStr)
 Set oRegEx = Nothing
 
 Const InvaildWords="f-----u-----c-----k-----|b-----i-----t-----c-----h-----|他-----妈-----的-----|法-----轮-----|f-----a-----l-----u-----n-----d-----a-----f-----a-----|f-----a-----l-----u-----n-----|s-----n-----k-----.n-----i-----8-----.n-----e-----t-----|操-----你-----妈-----|三-----级-----片-----|F-----a-----轮-----功-----|f-----a-----轮-----功-----|f-----a-----l-----u-----n-----|日-----你-----|我-----日-----|s-----u-----c-----k-----|s-----h-----i-----t-----|法-----轮-----|我-----操-----|李-----宏-----治-----|阴-----茎-----|傻-----B-----|妈-----的-----|操-----你-----|干-----你-----|日-----您-----|屁-----眼-----|国-----民-----党-----|台-----独-----|卖-----淫-----|流-----氓-----|9-----9-----9-----f-----u-----c-----k-----|傻-----逼-----|阴-----道-----|阳-----痿-----|法-----輪-----" '需要过滤得字符以“|”隔开
'因为CSDN过滤这些字符,所以,本人加了一些东西,要是用的话可以替换掉"---"为空就可以正常使用了
 InvaildWord=Split(InvaildWords,"|")
 For each abc in InvaildWord
 guolv=replace(guolv,abc,"*")
 next
End Function

相关文章推荐

python3过滤文件中的非法字符

  • 2012年03月01日 15:21
  • 835B
  • 下载

js 过滤非法字符,只输入数字,文本框长度限制

动画编辑页面EZ602230847CN $(function () { $("body").on("keyup", ".pValidLeng...
  • WDYDXF
  • WDYDXF
  • 2014年07月24日 19:46
  • 3336

监听器访问计数过滤非法字符

  • 2013年05月05日 10:47
  • 14KB
  • 下载

Asta3 For D2006/D2005/7/6/5(修改版)

  • 2006年02月23日 09:05
  • 39.99MB
  • 下载

[C/C++标准库]_[初级]_[过滤Windows(MacOSX)文件名中的非法字符]

场景: 1. 通常生成文件时需要一个文件名,而生成文件名的方式可能是通过用户输入的字符,但是有些字符在windows上是不能作为文件名的,强行创建这类文件会失败。 2.一般可以通过正则表达式替换所...

用过滤器过滤全站非法字符

package cn.lfd.web.filter; import java.io.IOException; import java.util.Arrays; import java.util.Li...

servlet过滤非法字符

index.jsp页面                  String title = (String) request.getAttribute("title");    ...

iOS:字符串过滤掉非法字符

这篇总结要说的问题其实并不难,单纯就是为了总结下思路。 比如有一个字符串叫tempString,包含有一些非法字符并不是我们想要的,这个tempString如下:+86 150-1111-1234...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:BBS过滤不干净,非法字符2006-6-7-3
举报原因:
原因补充:

(最多只允许输入30个字)