请教正则表达式

Amway@2022

请教老师，以下两句话，通过正则表达式取“～”与“报”之间的文字与符合，谢谢老师指点。
1.中&海油～？家乐旺报李伟
2.#华凯～张@槎报王强

taller

kevinchengcw

opiona

想模拟SQL查询数组, 但是正则能力不够, 版主能帮我看看不
拆解一段类似SQL的汇总部分的字符串
想分解出每个字段和字段表达式, 是凡字段前后都有 []  计算式后面都有 AS [别名]

StrSelect = "[班级],[姓名] AS [人员姓名],SUM(IIF(DATEDIFF('D',[日期],'2023-03-2')>0,[体重],0)) AS [TiZhong],MAX([体重]) AS [TiZhong],SUM(IIF([体重]>3,[体重]*3,[年龄]))+MAX([体重])+25 AS [字段名3],SUM(IIF([班级]='A',[体重],0))-MAX([体重]) AS [字段名4]"

希望得到的效果是:
[班级]
[姓名] AS [人员姓名]
SUM(IIF(DATEDIFF('D',[日期],'2023-03-2')>0,[体重],0)) AS [TiZhong]
MAX([体重]) AS [TiZhong]
SUM(IIF([体重]>3,[体重]*3,[年龄]))+MAX([体重])+25 AS [字段名3]
SUM(IIF([班级]='A',[体重],0))-MAX([体重]) AS [字段名4]

kevinchengcw

没有平衡组功能，就预处理一下

opiona

kevinchengcw 发表于 2024-3-22 10:42
没有平衡组功能，就预处理一下

完美解决,十分感谢

还有个问题,一直困扰我  已知的函数名:SUM|AVG|COUNT|MAX|MIN|FIRST|LAST
就是以函数名开头, 到此函数的最后一个括号, 不包含函数名的就不要了
各个函数段之间是 加减乘除等运算符
SUM(IIF(DATEDIFF('D',[日期],'2023-03-2')>0,[体重],0))+SUM(IIF([体重]>3,[体重]*3,[年龄]))*MAX([体重])+25-(21+5)

拆解为:  
SUM(IIF(DATEDIFF('D',[日期],'2023-03-2')>0,[体重],0))
SUM(IIF([体重]>3,[体重]*3,[年龄]))
MAX([体重])

limonet

opiona 发表于 2024-3-22 10:12
想模拟SQL查询数组, 但是正则能力不够, 版主能帮我看看不
拆解一段类似SQL的汇总部分的字符串
想分解出每 ...

关键字：￥￥￥￥￥

limonet

Sub limonet()
    StrSelect$ = "[班级],[姓名] AS [人员姓名],SUM(IIF(DATEDIFF('D',[日期],'2023-03-2')>0,[体重],0)) AS [TiZhong],MAX([体重]) AS [TiZhong],SUM(IIF([体重]>3,[体重]*3,[年龄]))+MAX([体重])+25 AS [字段名3],SUM(IIF([班级]='A',[体重],0))-MAX([体重]) AS [字段名4]"
    With CreateObject("vbscript.regexp")
        .Pattern = "(\[?.*?\]),(?=[\[SM])"
        .Global = True
        Range("A1").Resize(6, 1) = Application.Transpose(Split(.Replace(StrSelect, "$1￥"), "￥"))
    End With
End Sub

kevinchengcw

同样处理

limonet

opiona 发表于 2024-3-22 11:10
完美解决,十分感谢

还有个问题,一直困扰我  已知的函数名:SUM|AVG|COUNT|MAX|MIN|FIRST|LAST

25-(21+5)这段丢弃吗？