正则表达式看了不少，就是看不太懂，请高手指教，哪有解释简单易懂的例子？

[zengqia]

正则表达式看了不少，就是看不太懂，请高手指教，哪有解释简单易懂的例子？

[xieqi]

<%
Function SubMatchTest(inpStr)
Dim oRe, oMatch, oMatches
Set oRe = New RegExp
oRe.Pattern = patrn ' 设置模式。
oRe.IgnoreCase = True ' 设置是否区分大小写。
oRe.Global = True ' 设置全程匹配。

' 查找一个电子邮件地址（不是一个理想的 RegExp）
oRe.Pattern = "(\w+)@(\w+)\.(\w+)"
' 得到 Matches 集合
Set oMatches = oRe.Execute(inpStr)
' 得到 Matches 集合中的第一项

'response.write(Match.FirstIndex &" "&Match.Value&"<br>")
' 创建结果字符串。
' Match 对象是完整匹配 — [e-mail]
retStr = retStr &"电子邮件地址是： " & oMatches(0) & vbNewline
' 得到地址的子匹配部分。
retStr = retStr & "电子邮件别名是： " & oMatches(0).SubMatches(0) ' dragon
retStr = retStr & vbNewline
retStr = retStr & "组织是： " & oMatches(0). SubMatches(1)&"<br>"' xyzzy
'response.write(Match.FirstIndex &" "&Match.Value&"<br>")
' 创建结果字符串。
' Match 对象是完整匹配 — [e-mail]
retStr = retStr &"电子邮件地址是： " & oMatches(1) & vbNewline
' 得到地址的子匹配部分。
retStr = retStr & "电子邮件别名是： " & oMatches(1).SubMatches(0) ' dragon
retStr = retStr & vbNewline
retStr = retStr & "组织是： " & oMatches(1). SubMatches(1)' xyzzy

SubMatchTest = retStr
End Function
response.write SubMatchTest("请写信到 [e-mail]阿瑟大 [e-mail]。 谢谢！")
%>