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

飞豹126

+10+0-155+99*1

求用正则怎么把以上文本中的10、0、155、99、1输出到一维数组Arr?怎们把+、+、-、+、*输出到另一个一维数组Brr?

grf1973

。。。。。。。。。。。

lushang2018

匹配数字 [0-9]+
匹配特殊字符 [\D]+

grf1973

。。。。。。。。。

飞豹126

grf1973 发表于 2024-2-8 09:01
。。。。。。。。。。。

您这个是vb里的吗

sj15627581616

仅供参考

tspliu

啊，不会用正则

limonet

方法一：公式textsplit
方法二：replace

limonet

Sub limonet()
    Dim Arr As Variant, Brr As Variant
    S$ = "+10+0-155+99*1"
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+"
        .Global = True
        Brr = Split(.Replace(S, "￥"), "￥")
        .Pattern = "[\+\-\*/]"
        Arr = Split(.Replace(S, "￥"), "￥")
    End With
End Sub

山菊花

Sub Test()
    Dim cTxt$, Matches, Arr(), Brr()
    cTxt = "+10+0-155+99*1"
    With CreateObject("VBSCRIPT.REGEXP")
        .Global = True
        .Pattern = "(\D)(\d+)"
        Set Matches = .Execute(cTxt)
        ReDim Arr(Matches.Count - 1), Brr(Matches.Count - 1)
        For i = 0 To Matches.Count - 1
            Brr(i) = Matches(i).submatches(0)
            Arr(i) = Matches(i).submatches(1)
        Next
    End With
    ’Range("a11").Resize(1, UBound(Arr) + 1).Value = Brr
    ’Range("a12").Resize(1, UBound(Arr) + 1).Value = Arr
End Sub