(原创)vbs正则表达式学习

一.创建RegExp对象
属性:
1. IgnoreCase
    设置或返回一个Boolean值，指明模式搜索是否区分大小写。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 True。
2.Global
    设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 True。
3.Pattern
    设置或返回被搜索的正则表达式模式。

举例:

'检查是否包含字母
'test if there are Uppercase & lowercase letters
Function test_letters(Passwd)
 test_letters = False
 On Error Resume Next
 Dim regEx
 Set regEx = New RegExp
 regEx.Pattern = "([a-z].*[A-Z])|([A-Z].*[a-z])"
 regEx.IgnoreCase = False '注:如果为True, 不全部匹配字符
 If regEx.Test(Passwd) Then
  test_letters = True
 End If
End Function

'检查是否包含数字和字母
'test if there is a number and a letter in the string
Function test_numbers(Passwd)
 On Error Resume Next
 Dim bolRet
 Dim bolNum
 Dim bolLet
 bolRet = False
 bolNum = False
 bolLet = False
 Dim regEx
 Set regEx = New RegExp
 '是否包含数字
 regEx.Pattern = "\d+"
 regEx.IgnoreCase = True
 If regEx.Test(Passwd) Then
  bolNum = True
 End If
 '是否包含字母
 regEx.Pattern = "[a-z].*"
 regEx.IgnoreCase = False
 If regEx.Test(Passwd) Then
  bolLet = True
 End If
 If bolNum And bolLet Then
  bolRet = True
 End If
 test_numbers = bolRet
End Function

'检查是否包含重复字符(例如aaaa,bbbb,cccc,1111,2222)
'test for repeated chars (aaaa, bbbb, 1111, 2222)
Function test_repeatchar(Passwd)
 test_repeatchar = False
 Dim str_chars
 str_chars = "abcdefghijklmnopqrstuvwxyz012345678909876543210zyxwvutsrqponmlkjihgfedcba"
 Dim n
 Dim char
 Dim cmd
 Dim regEx 
 Dim match, matchs, strmatch
 Dim tt
 For n = 1 To Len(str_chars)
  char = Mid(str_chars, n, 1)
  cmd = "[" & char & "]+"
  Set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.global = true
  regEx.Pattern = cmd
  If regEx.Test(Passwd) Then
   Set matchs = regEx.Execute(Passwd)  'Execute 方法返回一个 Matches 集合，其中包含了在
                                                         string 中找到的每一个匹配的 Match 对象。
                                                        如果未找到匹配，Execute 将返回空的 Matches 集合。
   For Each match in matchs '循环所有匹配项
    strmatch = match.value
    If Len(strmatch) > 3 Then
     test_repeatchar = True
     Exit Function
    End If
   Next      
  End If
 Next
End Function

'test for ordered chars in the string (1234, abcd, lmno, 5678)
Function test_order(Passwd)
 test_order = False
 On Error Resume Next
 Dim str_chars
 str_chars = "abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba"
 Dim n
 Dim nc
 Dim cmd
 Dim regEx
 Set regEx = New RegExp
 regEx.IgnoreCase = True
 For n = 1 To Len(str_chars)
  nc = mid(str_chars, n+1, 3)
  If Len(nc) = 3 Then
    'Regexs in cmd should look like this after eval:
    '      /a(?=bcd)/i
    '      /b(?=cde)/i
    '      /c(?=def)/i
   cmd = mid(str_chars,n,1) & "(?=" & nc & ")"
   regEx.Pattern = cmd
   If regEx.Test(Passwd) Then
    test_order = True
    Exit Function
   End If
  End If
 Next

 str_chars = "012345678909876543210"
 For n = 1 To Len(str_chars)
  nc = mid(str_chars, n+1, 3)
  If Len(nc) = 3 Then
   'Regexs in cmd should look like this after eval:
   '        /1(?=234)/i
   '        /2(?=345)/i
   '        /3(?=456)/i
   cmd = mid(str_chars,n,1) & "(?=" & nc & ")"
   regEx.Pattern = cmd
   If regEx.Test(Passwd) Then
    test_order = True
    Exit Function
   End If
  End If
 Next
End Function

'***************************************
Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches  ' 建立变量。
  Set regEx = New RegExp   ' 建立正则表达式。
  regEx.Pattern = patrn   ' 设置模式。
  regEx.IgnoreCase = True   ' 设置是否区分大小写。
  regEx.Global = True   ' 设置全局替换。
  Set Matches = regEx.Execute(strng) ' 执行搜索。
  msgbox matches.count
  For Each Match in Matches  ' 遍历 Matches 集合。
    RetStr = RetStr & "Match " & I & " found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
    RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))