正则表达式

弥山之梦

duquancai 发表于 2018-3-12 20:53
你没说清楚的地方，太多太多了！！！！！！！！！！！！！！

抱歉，我现在是用来两次正则匹配，第一次按元匹配，然后再判断那些没有匹配到的，再用还款，代扣匹配一次。

弥山之梦

duquancai 发表于 2018-3-12 20:53
你没说清楚的地方，太多太多了！！！！！！！！！！！！！！

这是我用两个正则表达式写的匹配，使用循环判断的方法，就是不知道怎么把两个正则合并成一个。

ggmmlol

弥山之梦 发表于 2018-3-13 09:08
这是我用两个正则表达式写的匹配，使用循环判断的方法，就是不知道怎么把两个正则合并成一个。

两个正则合并成一个，需要使用分支选择运算符"|"，且要按优先级来确定先后顺序。
本例中，优先取紧接在“元”之前的数值，否则取“代扣|还款|存"之后的数值，再否则取空值。
因此，
.Pattern = "[\s\S]*?(?:([.\d]+)元|(?:代扣|还款|存)([.\d]+))[\s\S]*|[\s\S]+"

1. Sub Test1()
   
2.     arr = Range("a1").CurrentRegion.Resize(, 2)
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "[\s\S]*?(?:([.\d]+)元|(?:代扣|还款|存)([.\d]+))[\s\S]*|[\s\S]+"
   
5.         .Global = True
   
6.         For i = 1 To UBound(arr)
   
7.             arr(i, 1) = .Replace(arr(i, 1), "$1$2")
   
8.         Next
   
9.     End With
   
10.     arr(1, 1) = "金额"
    
11.     Range("K1").Resize(i - 1) = arr
    
12. End Sub

复制代码

ggmmlol

附件在此： 工作簿1.rar (15.68 KB, 下载次数: 17)

2019-7-26 13:27 上传

点击文件名下载附件

ning84

chxw68 发表于 2018-3-12 18:57
提供一个提取日期数据的代码供楼主参考。

1. Sub test7_1()
   
2.   Dim reg As New RegExp
   
3.   ss = "2018年3月5号XXXX班表（1）"
   
4.   With reg
   
5.     .Pattern = "\d{4}年\d{1,2}月\d{1,2}(?:日|号)"
   
6.     Set mh = .Execute(ss)
   
7.     If mh.Count > 0 Then
   
8.       rq = mh(O)
   
9.     End If
   
10.   End With
    
11. End Sub
    
12. 
    

复制代码

学习(?:日|号)的用法