现在的位置: 首页 > 综合 > 正文

VBS中的正则表达式的用法

2013年08月12日 ⁄ 综合 ⁄ 共 252字 ⁄ 字号 评论关闭

VBS正则表达式函数

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

 

抱歉!评论已关闭.