正则表达式提取中间部分字符

早睡不早起

小花鹿 发表于 2017-1-4 13:49
行不行，你得试试才知道

不是说了逐一测试了吗？

shimakaze

早睡不早起 发表于 2017-1-4 11:15
逐一测试，好像只有6楼是正解，vba的正则和其它语言的不太一样，python里面是把.*?用小括号括起来就可以， ...

LS +1                    

ning84

Kaohsing 发表于 2017-1-3 18:50
Sub textRegExp()
        Dim strText$
        Dim i%

Excel A+B→MatchCollection获得字符串"+"-ExcelVBA程序开发-ExcelHome技术论坛 -  http://club.excelhome.net/thread-1390679-1-1.html

找到解决方法。

1. Sub Test20180109()
   
2.    Dim RegX As New RegExp, S$, Strnew$
   
3.    Dim Str, Str1, PattStr
   
4.    Dim Arr(0), PattArr(10)
   
5.    Dim MatColl As MatchCollection
   
6.         Arr(0) = "A/2+2*(B-C)/2"
   
7.         ''
   
8.         PattArr(0) = "A.*?C"
   
9.         With RegX
   
10.            .Global = True
    
11.            For ii = 0 To UBound(Arr)
    
12.                Str = Arr(ii)
    
13.                Debug.Print Str, IsEmpty(Str)
    
14.                If Not IsEmpty(Str) Then
    
15.                    .Pattern = PattArr(ii)
    
16.                    Set MatColl = .Execute(Str)
    
17.                    Str1 = .Replace(Str, "")
    
18.                    Debug.Print Str1
    
19.                    Stop
    
20.                End If
    
21.            Next ii
    
22.         End With
    
23.         Stop
    
24. End Sub

复制代码

05050818

[^>]*?(?=<)