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

bobij

感谢讲解的人和整理资料的人，很不错啊。

zhouzhongchi

liu-aguang 发表于 2014-6-16 10:50
第四篇   技巧篇     文本处理归根到底是对特定串的捕捉(查找),所以我们讨论的所谓”技巧”聚焦于对特定字 ...

老师，请问：^100|[1-9][0-9]?$似乎匹配的是1-99，不包括0？

liu-aguang

zhouzhongchi 发表于 2015-8-11 16:57
老师，请问：^100|[1-9][0-9]?$似乎匹配的是1-99，不包括0？

^100|[1-9]?[0-9]$

liu-aguang

zhouzhongchi 发表于 2015-8-11 16:57
老师，请问：^100|[1-9][0-9]?$似乎匹配的是1-99，不包括0？

^100|[1-9]?[0-9]$

zhouzhongchi

liu-aguang 发表于 2015-8-12 17:35
^100|[1-9]?[0-9]$

收到，谢谢！
还有个问题，昨天到现在一直困惑着：

1. txt = "中国J20隐形战斗机24架"
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "(\W+)(\w+)*"
   
5.         Set ms = .Execute(txt)
   
6.         MsgBox .Replace(s, "$1")
   
7. '       MsgBox .Replace(s, "$2")
   
8.     End With
   

复制代码

为何消息返回为空？明明有匹配的呀：架

liu-aguang

zhouzhongchi 发表于 2015-8-12 18:14
收到，谢谢！
还有个问题，昨天到现在一直困惑着：

不明白你希望得到什么结果.
另外,(\w+)*这个表达式是极端错误的,它可能带来灾难回溯.同意义的表达式为:(\w+)或(\w*)

zhouzhongchi

liu-aguang 发表于 2015-8-12 19:31
不明白你希望得到什么结果.
另外,(\w+)*这个表达式是极端错误的,它可能带来灾难回溯.同意义的表达式为:( ...

"中国J20隐形战斗机24架"进行分列操作：
中国  J20  隐形战斗机  24  架
各个部分的字符数不确定。
之前有个方法，思路是奇数列中文，偶数列英文+数字
分别采用"\W+"和"\w+"进行处理。
我琢磨用一个统一的表达式处理。
附件在楼下。烦请老师看看，谢谢！

zhouzhongchi

求助.zip (21.64 KB, 下载次数: 80)

2015-8-12 20:08 上传

点击文件名下载附件

liu-aguang

zhouzhongchi 发表于 2015-8-12 20:09

1. Sub test()
   
2.     arr = Range("a1").CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 5)
   
4.     Set regx = CreateObject("vbscript.regexp")
   
5.     regx.Pattern = "(\W+)(\w+)(\W+)(\d+)(.+)"
   
6.     For i = 2 To UBound(arr)
   
7.         Set mh = regx.Execute(arr(i, 1))
   
8.         If mh.Count <> 0 Then
   
9.             For j = 1 To mh(0).SubMatches.Count
   
10.                 brr(i - 1, j) = mh(0).SubMatches(j - 1)
    
11.             Next
    
12.         End If
    
13.     Next
    
14.     Range("c2").Resize(UBound(brr), 5) = brr
    
15. End Sub
    

复制代码

jorpion

非常感谢，学习了~~~~