VBA中使用正则表达式

正则表达式常用来作输入校验，本次使用的校验是 密码必须包含数字0-9、大小写英文字母、长度超过8位。

[vb] view plain copy

1. Dim reg As New RegExp  
2.     With reg  
3.         .Global = True  
4.         .IgnoreCase = True  
5.     .IgnoreCase= false'表达式区分大小写  
6.     .Pattern= "^(?=.{8,}?)(?=.*\d+)(?=.*[a-z]+)(?=.*[A-Z]+).*$" '长度大于7  
7.     End With  
8. Dim Flag1 As Boolean  
9.   
10.     Flag1 = reg.Test(Trim(Me.txt_UserPsw.Value))