正则表达式入门与提高---VBA平台的正则学习参考资料

jpj123

谢谢老师，正则再难也想学!如果有些实例就更好了。

blackttea1

太好的教学资料，感谢版主

萤火虫飞飞

非常感谢，学习啦

pv09

支持一下。简单的有个概念了

VBA万岁

liu-aguang 发表于 2014-6-11 09:20
Matches集合的Item和Count属性
     利用Matches集合的Item属性可以得到它包含的每个Match对象;利用C ...

sn=Mh(0).firsindex这句中firsindex应改为firstindex。

liu-aguang

VBA万岁 发表于 2015-5-19 16:13
sn=Mh(0).firsindex这句中firsindex应改为firstindex。

感谢纠错, 但现在好像不能修改编辑原帖了.

VBA万岁

liu-aguang 发表于 2015-5-19 18:03
感谢纠错, 但现在好像不能修改编辑原帖了.

刚试了下148楼，似乎还可以编辑修改。

VBA万岁

liu-aguang 发表于 2014-6-11 09:31
Match对象的Submatches属性  
  匹配对象match的Submatches是一个集合属性,它包含正则表达式中用圆括号捕 ...

正在学习本帖。
顺便扩充一下15楼的第二段代码，以方便正在学习正则的会员理解match对象：
Sub test9SubMatchesTest()
   MsgBox (SubMatchTest("请写信到 dragon@xyzzy.com 。 或者到 abcde@12306.com 谢谢！"))
End Sub

Function SubMatchTest(inpStr)
  Dim oRe, oMatch, oMatch2, oMatches
  Set oRe = CreateObject("vbscript.regexp")
  ' 查找一个电子邮件地址
  oRe.Pattern = "(\w+)@(\w+)\.(\w+)"
  oRe.Global = True
  ' 得到 Matches 集合
  Set oMatches = oRe.Execute(inpStr)
  ' 得到 Matches 集合中的第一项
  Set oMatch = oMatches(0)
  ' 创建结果字符串。
  ' Match 对象是完整匹配 — dragon@xyzzy.com
  retStr = inpStr & Chr(10) & "电子邮件地址是： " & oMatch & vbNewLine
  ' 得到地址的子匹配部分。
  retStr = retStr & "电子邮件别名是： " & oMatch.SubMatches(0)   ' dragon
  retStr = retStr & vbNewLine
  retStr = retStr & "组织是： " & oMatch.SubMatches(1) & vbNewLine           ' xyzzy
  retStr = retStr & "后缀是： " & oMatch.SubMatches(2) & vbNewLine
  
  Set oMatch2 = oMatches(1)
  retStr = retStr & Chr(10) & "电子邮件地址2是： " & oMatch2 & vbNewLine
  retStr = retStr & "电子邮件别名2是： " & oMatch2.SubMatches(0) & vbNewLine
  retStr = retStr & "组织2是： " & oMatch2.SubMatches(1) & vbNewLine
  retStr = retStr & "后缀2是： " & oMatch2.SubMatches(2) & vbNewLine
  SubMatchTest = retStr
End Function

liu-aguang

VBA万岁 发表于 2015-5-20 08:37
刚试了下148楼，似乎还可以编辑修改。

帖子超过一定时限,就不能修改了. 改版前有一个"补充"按钮,可以在帖子下方说明,改版后也取消了.

VBA万岁

liu-aguang 发表于 2014-6-11 15:57
五.正则元字符—-字符(串)位置表示法
  正则提供了一些表示位置元字符(序列),它可以锚定特定字符(串),有 ...

疑惑：
31楼的最末一个示例中，如果将s改为：
s = "正则ABC非正则ABC不正则ABC"
则输出结果我认为应该有3行，分别为“正则”、“非正”、“不正”，可测试结果依然只有“正则”。
不知为何？