寻求一个正则表达式的解决之道

袁振涛

题目本来是一个坛友的问题，题目要求提取出所有属于“下”的指定的编号。例如 下：129694-2
后来我给出了自己的解答，但是我给出的正则，只能解决 如果下列情况   下：129694-2/129666-2/107492-6 不存在有两个及以上的相同的满足条件的数据，如果资料如下    下：129694-2/129694-2/129694-2/这样同一个有两个以上符合条件的数据时则无效
现特向大家请教，要求必须用正则表达式。并且尽量不要用分割成例如“129694-1/”“129694-2/”“129694-3/”再进一步判断的方法，那样就大大降低难度了，我也是为了想更好的学习。

1. Dim oRegex As Object
   
2.     Dim oMatchCollection  As Object
   
3.     Dim oText As String
   
4.     Dim oCount As Integer
   
5.     Dim oValue As String
   
6.         oCount = 0
   
7.         oText = InputBox("请输入要查找的值", "", "3214552-5")
   
8.         
   
9.     Set oRegex = CreateObject("Vbscript.Regexp")
   
10.         oRegex.Global = True
    
11.         oRegex.Pattern = "下[：:]\s*(?:(?:\d+(?:-\d+)+)/)*?" & oText
    
12.       
    
13.     For i = 1 To 9
    
14.         oValue = Cells(i, "A").Value
    
15.         Set oMatchCollection = oRegex.Execute(oValue)
    
16.         If oMatchCollection.Count > 0 Then
    
17.            MsgBox "第" & i & "行存在" & oMatchCollection.Count & "个符合条件的数据！"
    
18.            oCount = oCount + oMatchCollection.Count
    
19.         End If
    
20.     Next
    
21.    
    
22.     MsgBox "共有" & oCount & "个满足条件的数据"

复制代码

liu-aguang

用一个正则是无法实现的.要用两个:
第一次提取含关键字的"下";
第二次查询关键字个数.

39660519

我用了2重正则镶套才搞定，有点麻烦，要先合并

Sub PPPPPP()
    oText = InputBox("请输入要查找的值", "", "3214552-5")
    For A = 1 To 9
        B = B & Cells(A, "A").Value
    Next A
    Dim regex As Object, regex1 As Object
        Dim matchs As Object, match As Object, matchs1 As Object
        Dim X As String
        X = B & "上下"
        代表式 = "下(.*?\s*?)上"
        Set regex = CreateObject("VBScript.RegExp")
        With regex
            .Global = True
            .Pattern = 代表式
            Set matchs = .Execute(X)
            For Each match In matchs
                Set regex1 = CreateObject("VBScript.RegExp")
                With regex1
                    .Global = True
                    .Pattern = oText
                    Set matchs1 = .Execute(match)
                    D = matchs1.Count
                    E = E + D
                End With
            Next
        End With
        MsgBox "共有" & E & "个满足条件的数据"
End Sub