有时候有太多数据里面的一个字符串我们想批量替换,或者客户提交数据的时候,我们把指定的内容替换成另外1组内容,这时候就需要用到1个替换函数。
Function ReplaceReg(str,patrn,replStr,Ignor) '========================================= '参数解释: 'str 原来的字符串 'patrn 要替换的字符串(正则表达式) 'replStr 要替换成的字符串 'Ignor 是否区分大小写(1不区分,0区分) '========================================= Dim regEx ' 建立变量。 If Ingor=1 Then Ingor=true else Ingor=false Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = Ignor ' 设置是否区分大小写。 regEx.Global=True ReplaceReg = regEx.Replace(str,replStr) ' 作替换。 End Function
ASP字符串替换函数的使用方法
'例如 将 www.qdxw.net 替换成 <a href="http://www.qdxw.net">www.qdxw.net</a>
'Response.Write(ReplaceReg("www.qdxw.net","www\.qdxw\.net","<a href=""http://www.qdxw.net"">www.qdxw.net</a>",1))