我们在ASP开发中，经常会用到replace函数，它的作用是执行替换操作。JavaScript和VBScript都支持这个函数。
replace()函数在JavaScript和VBScript中不同点：
- JavaScript中replace()函数支持正则表达式，示例：stringObject.replace(regexp/substr,replacement)。
- VBScript中replace()函数不支持正则表达式，示例：str.replace(/Microsoft/, "Webym"))。
其实很多时候我们需要用正则表达式来完成更强大的功能，今天因为要写一个替换的表达式，所以在原函数基础上进行了改进，编写了一个支持正则表达式的ASP中VBScript版的replace函数。
VBScript函数代码如下：
Function my_replace(ContentStr,reg,new_str) Dim ClsTempLoseStr,regEx ClsTempLoseStr = Cstr(ContentStr) Set regEx = New RegExp regEx.Pattern = reg regEx.IgnoreCase = True '是否忽略大小写 regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,new_str) my_replace = ClsTempLoseStr Set regEx = Nothing End Function
参数说明：ContentStr - 原始字符串；reg - 需要被替换的部分，支持正则表达式； new_str - 将要被替换成的部分。
再来一个VB版的，用不到的童鞋可以忽略。
Public Function my_replace(ByVal ContentStr As String, ByVal reg As String, ByVal new_str As String, ByVal ign_case As Boolean) As String Dim ClsTempLoseStr As String Dim regEx As RegExp ClsTempLoseStr = CStr(ContentStr) Set regEx = New RegExp regEx.Pattern = reg regEx.IgnoreCase = ing_case '是否忽略大小写 regEx.Global = True ClsTempLoseStr = regEx.Replace(ClsTempLoseStr, new_str) my_replace = ClsTempLoseStr Set regEx = Nothing End Function
扩展阅读：ASP随机数、JavaScript脚本
声明:如需转载，请注明来源于www.webym.net并保留原文链接：http://www.webym.net/jiaocheng/209.html
