如何用正则分别提取+10+0-155+99*1中的数字，和对应运算符

ykcbf1100

正则拆分字串

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.8
   
2.     Dim arr(1 To 100), brr(1 To 100), s
   
3.     s = [a1]
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "(\d+)"
   
7.         Set mh = .Execute(s)
   
8.         For Each k In mh
   
9.             m = m + 1
   
10.             arr(m) = k.submatches(0)
    
11.         Next
    
12.         [b1].Resize(1, m) = arr
    
13.        .Pattern = "(\D)"
    
14.         Set mh = .Execute(s)
    
15.         For Each k In mh
    
16.             n = n + 1
    
17.             brr(n) = k.submatches(0)
    
18.         Next
    
19.         [b2].Resize(1, n) = brr
    
20.     End With
    
21. End Sub
    

复制代码

qydn

Sub ttt()
Dim arr, brr, a$, reg As New RegExp, sj, i%, j%
With reg
    .Global = 1
    .Pattern = "[^0-9]"
    Set sj = .Execute([a1])
    i = sj.Count
    ReDim arr(1 To i)
    For j = 1 To i
    arr(j) = sj(j - 1)
    Next j
End With
End Sub

perfect131

vba 正则不循环

perfect131

应该可以 一个正则搞定的，只能WorksheetFunction.Trim来凑了

阿卡夏

Sub test()
Dim arr(), brr()
Dim i%
Dim reg As Object: Set reg = CreateObject("vbscript.regexp")
Dim ex$: ex = "+10+0-155+99*1"
Dim matches As Object

With reg
    .Global = True
    .pattern = "([-\+\*\\])(\d+)"
    Set matches = .Execute(ex)        
End With

ReDim arr(matches.Count - 1), brr(matches.Count - 1)

For i = 0 To matches.Count - 1

    arr(i) = matches(i).submatches(1)
    brr(i) = matches(i).submatches(0)

Next

Debug.Print Join(arr, ",") & vbNewLine & Join(brr, ",")

End Sub

smiletwo