请教一个正则匹配的问题

ivor

正则匹配真伤啊。

1. 样本：江西省上饶市信州区分宜县
   
2. 
   
3. 优先匹配顺序  1.xx市  or  2. xx区  or 3.xx县  我的目标是只取一条匹配结果。
   
4. 前面开头可能没有xx省,开头也可能没有xx市

复制代码

a20150604

回复 1# ivor

1. 
   
2. ' 样本：江西省上饶市信州区分宜县
   
3. 
   
4. ' 优先匹配顺序1.xx市 2. xx区 3.xx县
   
5. ' 前面开头可能没有xx省,开头也可能没有xx市
   
6. 
   
7. arr_data = array( "江西省上饶市信州区分宜县",  "上饶市信州区分宜县",  "信州区分宜县")
   
8. Dim regEx                   ' 建立变量。
   
9. Set regEx = New RegExp      ' 建立正则表达式。
   
10. regEx.Pattern = "(?:\S+省|)(?:(\S+)市|)(\S+)区(\S+)县"
    
11. for each data in arr_data
    
12.     Set oMatches = regEx.Execute(data)
    
13.     If oMatches.Count > 0 Then
    
14.         Set oMatch = oMatches(0)
    
15.         msgbox "源数据:" & data & " 市:" & oMatch.SubMatches(0) & " 区:" & oMatch.SubMatches(1) & " 县:" & oMatch.SubMatches(2)
    
16.     Else
    
17.         msgbox "解析失败"
    
18.     End If
    
19. next
    
20. 
    

复制代码

ivor

附上自己的正则：(?<=[省市区]).*?[市区县]，还是差一条前面如果没有省份，就不行了

其实加一条if语句控制 开头是否有省份也可以解决问题，只是感觉那样做比较笨。

WHY

条件匹配的表达式

1. $str = '江西省上饶市信州区分宜县';
   
2. #$str = '上饶市信州区分宜县';
   
3. #$str = '信州区分宜县';
   
4. [regex]::Matches($str, '(?(.*省)(?<=省).*市|.*市)|(?(.*市)(?<=市).*区|.*区)|(?<=区).*县');

复制代码