VBS中的正则表达式的用法大全[原创]_正则表达式

VBS中的正则表达式的用法大全[原创]_正则表达式_脚本之家

2013-12-24 09:24:29 [小大] 已经帮助：人解决问题

VBS正则表达式函数
主要用在asp中效果明显
1、表单验证功能

复制代码代码如下:

Function Validate(strng,patrn)  
 Dim regEx  
 Set regEx = New RegExp  
 regEx.Pattern = patrn  
 regEx.IgnoreCase = True  
 regEx.Global = True  
 Validate = regEx.test(strng)  
 Set regEx = Nothing  
End Function 

使用例子

  If Validate(Fdr.Name,"F/d{4}_P/d{4}")=True Then
     ... ...
  End If

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

2、替换功能

复制代码代码如下:

'========================== 
'用正则表达式实现替换 
'========================== 
function replaceregex(patern,str,tagstr) 
dim regex,matches 
set regex=new regExp 
regex.pattern=patern 
regex.IgnoreCase=true 
regex.global=true 
matches=regex.replace(str,tagstr) 
replaceregex=matches 
end function

3、ubb功能
http://www.jb51.net/html/200608/6/574.htm

（责任编辑：）