关闭

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

标签: bbsfunctioneach
867人阅读 评论(1) 收藏 举报
分类:

'名称: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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:89410次
    • 积分:1497
    • 等级:
    • 排名:千里之外
    • 原创:53篇
    • 转载:17篇
    • 译文:0篇
    • 评论:11条
    文章分类