Dim reInfo As RegExp '正则对象
Dim MatchInfo As MatchCollection, objMatch As Match, objSubMatch As SubMatches
……
Set MatchInfo = reInfo.Execute(ShopInfo) 'MatchInfo是结果集合
Set objMatch = MatchInfo.Item(1) 'objMatch是单个的返回结果
Set objSubMatch = objMatch.SubMatches 'objSubMatch是子结果集合,当pattern使用扩号时扩号的匹配项将保存在objSubMatch里。
Me.MSFlexGrid.TextMatrix(r, 1) = objSubMatch(1)
如:strPattern = “(别名|地址|电话)/: (.+)
”
匹配:电话: 010-640718
结果:objSubMatch(0) = 电话 objSubMatch(1) = 010-640718 objMatch =“电话: 010-640718
”
————————————————
版权声明:本文为优快云博主「jarraytan」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.youkuaiyun.com/boythl/article/details/3028646