replace过滤数组函数

生成sitemap.xml时,有些单独的页面是不需要生成的,可以用以下函数加以过滤
也可以用此函数过滤一些敏感词
[code]
Function FileFilter(strInput)
Dim i
Dim strOutput
Dim strFilter
strFilter = Split(“blog1.asp,robots.txt,sitemap.xml,favicon.ico”,”,”)
strOutput = strInput
For i = 0 To UBound(strFilter)
strOutput = Replace(strOutput, strFilter(i), String(Len(strFilter(i)),”*”))
Next
FileFilter = strOutput
End Function
[/code]
String(Len(strFilter(i)),”*”) 提取出要替换字符的长度,用同样长度的 * 号替换

未经允许不得转载:Windy's Blog » replace过滤数组函数

赞 (0)