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

opiona

正则求助: 类似SQL 语句的Select 部分拆解
所有文本内容 前后都是两个双引号

1. StrSelect = "datediff(""D"",[日期],""2024-03-11"") AS [日期],"""" AS [代表],Mid([姓名],2,2) AS [NewName],[体重] AS [肥度],[班级]"

复制代码

用逗号隔开的内容, 但是括号内的不拆出来
希望得到的结果:  是5个内容

1. datediff(""D"",[日期],""2024-03-11"") AS [日期]
   
2. """" AS [代表]
   
3. Mid([姓名],2,2) AS [NewName]
   
4. [体重] AS [肥度]
   
5. [班级]

复制代码

fxl447098457

(\w+\(.+?\)[^,]+)|[^,]+

limonet

(?:^|,)(.*?AS )?\[.*?\](?=,|$)

opiona

limonet 发表于 2024-3-18 09:16
(?:^|,)(.*?AS )?\[.*?\](?=,|$)

在Excel中测试未通过  
网页工具也未通过 http://tool.openi.cn/regex/

2楼的没问题
能帮忙在看看么: 正则求助.rar (16.6 KB, 下载次数: 7)

2024-3-18 11:09 上传

点击文件名下载附件

正则好深奥啊, 上面2位的表达式完全看不懂啊
什么时候能有此功力呢!!?

limonet

关键字：￥￥￥￥￥￥

limonet

Sub limonet()
    StrSelect = "datediff(""D"",[日期],""2024-03-11"") AS [日期],"""" AS [代表],Mid([姓名],2,2) AS [NewName],[体重] AS [肥度],[班级]"
    With CreateObject("vbscript.regexp")
        .Pattern = "(.*?AS \[.*?\])(,)"
        .Global = True
        Range("A1").Resize(1, 5) = Split(.Replace(StrSelect, "$1￥"), "￥")
    End With
End Sub

opiona

limonet 发表于 2024-3-18 13:12
Sub limonet()
    StrSelect = "datediff(""D"",[日期],""2024-03-11"") AS [日期],"""" AS [代表],Mid([ ...

虽然看不懂  但是很好用!
十分感谢!!!

limonet

opiona 发表于 2024-3-18 21:46
虽然看不懂  但是很好用!
十分感谢!!!

谦虚了，正则只是VBA很小的一块知识，对于您来说很简单了。

opiona

再次求助    开头有: SUM,AVG,COUNT,MAX,MIN,FIRST,LAST

SUM(IIF([字段名E]='ABCD',[字段名F],0)+888)-MAX([字段名G])+35-8
拆解成:
          SUM(IIF([字段名E]='ABCD',[字段名F],0)+888)     再次拆解为:  SUM      IIF([字段名E]='ABCD',[字段名F],0)    888
          MAX([字段名G])                                                再次拆解为:  MAX     [字段名G]
          35
          8

这个年纪118

opiona 发表于 2024-3-19 20:14
再次求助    开头有: SUM,AVG,COUNT,MAX,MIN,FIRST,LAST

SUM(IIF([字段名E]='ABCD',[字段名F],0)+888)-M ...

\w+|\(.+?\)(?=\+)