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
测试
function check(str)
dim re
set re=new regexp
re.global=true
re.ignorecase=true
re.pattern="1[3|5]\d{9}"
check=re.test(str)
set re=nothing
end function
sub checkit(str)
if check(str)=true then
msgbox "是手机"
else
msgbox "不是手机"
end if
end sub
以下是 作者：LCX的内容
以前一直没有好好的学过，这次整理一下。
正则中/d+就是代表一个或多个数字，用这个做例子。
RegExp就是建立正则的对像。如Set regEx = New RegExp。regEx.Pattern 就是来设置正则的模式的，如
regEx.Pattern ＝"/d+"。regEx.IgnoreCase = True ' 设置是否区分大小写。regEx.Global = True ' 设置全程可用性。
RegExp对像有3种方法，分别是execute、test、replace。
test方法是对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回True；否则返回False。
例子：
代码如下:
Replace 方法替换在正则表达式查找中找到的文本，例子：
代码如下:
Execute 方法,则是对指定的字符串执行正则表达式搜索。这里又涉及到Match对像和Matches 集合。Matches 集合就是match的对像集合。Matches 集合中包含若干独立的 Match 对象，只能使用 RegExp 对象的 Execute 方法来创建之。例子：
代码如下:
查看更多关于VBS中的正则表达式的用法大全 原创的详细内容...