现在的位置: 网页制作教程网站制作经验 >正文
asp语言高级教程

ASP中VBScript的replace函数支持正则表达式

发表于2016/11/15 网站制作经验 0条评论 ⁄ 热度 3,741℃

我们在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脚本

  • 暂无评论