正则求助: 类似SQL 语句的Select 部分拆解

opiona

这个年纪118 发表于 2024-3-19 21:43
\w+|\(.+?\)(?=\+)

我想获得 帖子内的结果

limonet

第一次分拆关键字：￥￥￥

limonet

两次拆分就要xy循环了。

limonet

Sub limonet()
    Dim Arr As Variant, i%, j%, Brr As Variant
    StrSelect$ = "SUM(IIF([字段名E]='ABCD',[字段名F],0)+888)-MAX([字段名G])+35-8"
    With CreateObject("vbscript.regexp")
        .Pattern = "[\+-](?=\d+[\+-]|SUM|AVG|COUNT|MAX|MIN|FIRST|LAST|\d+$)"
        .Global = True
        Arr = Split(.Replace(StrSelect, "￥"), "￥")
        Range("A1").Resize(4, 1) = Application.Transpose(Arr)
        .Pattern = "([\+-]|SUM|AVG|COUNT|MAX|MIN|FIRST|LAST)"
        For i = 0 To UBound(Arr)
            If Arr(i) Like "*)" Then Arr(i) = Left(Arr(i), Len(Arr(i)) - 1)
            Brr = Split(Application.Trim(Replace(.Replace(Arr(i), "$1+"), "+", " ")))
            For j = 0 To UBound(Brr)
                If Brr(j) Like "(*" Then Brr(j) = Mid(Brr(j), 2)
            Next j
            Cells(i + 1, "B").Resize(1, UBound(Brr) + 1) = Brr
        Next i
    End With
End Sub

opiona

limonet 发表于 2024-3-20 11:02
Sub limonet()
    Dim Arr As Variant, i%, j%, Brr As Variant
    StrSelect$ = "SUM(IIF([字段名E]=' ...

非常感谢  已经解决了 我的问题

现在想升级一下:  这6个函数名之间 可能是  [+-*/]  等各种运算符号
函数名开头的 是一部分  不包含函数名的  单独一段(不拆开)
我只要在正则中十分害怕碰到: 符号,括号 就完全不会了
楼上的给出的表打死   我加了 / 还勉强, * 就不会处理了

SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*MAX([字段名G])-35/(38-20)*2

希望得到的结果:
SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)
MAX([字段名G])
35/(38-20)*2    '//不包含函数名的  单独一段(不拆开)

leolee82

如果是比较简单的需求就直接解析字符串吧。
遍历一次：括号外的运算符号替换成CHR(0)，括号里的不动，
再SPLIT

limonet

关键字：\d+[\*\+-/].*[\*\+-/]\d

limonet

Sub limonet()
    StrSelect$ = "SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*MAX([字段名G])-35/(38-20)*2"
    With CreateObject("vbscript.regexp")
        .Pattern = "((SUM|AVG|COUNT|MAX|MIN|FIRST|LAST).*?)[\*\+-/](?=SUM|AVG|COUNT|MAX|MIN|FIRST|LAST|\d+[\*\+-/].*[\*\+-/]\d)"
        .Global = True
        Range("A1").Resize(1, 3) = Split(.Replace(StrSelect, "$1￥"), "￥")
    End With
End Sub

opiona

limonet 发表于 2024-3-20 16:47
Sub limonet()
    StrSelect$ = "SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*MAX([字段名G])-35/(38-20 ...

十分感谢  万能的坛友!!!!

有个过分的想法:
如果不仅是2,3段, 而是不限个数的多段的 函数名
SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*MAX([字段名G])-35/(38-20)*2/SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*32-8

SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)
MAX([字段名G])
35/(38-20)*2
SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)
32-8

原本好像就能实现,  哈哈

    StrX = "SUM(IIF([字段名E]='ABCD',[字段名F],0)*isnull(888))*MAX([字段名G])-35/(38-20)*2/SUM(IIF([字段名E]='ABCD',[字段名F],0)*888)*32-(25-8)"
    Pattern = "[\*\+-/](?=\d+[\+-]|SUM|AVG|COUNT|MAX|MIN|FIRST|LAST|\d+$)"

limonet

抱歉，能力有限，暂时没有解出来，等大佬。