从声明部分提取变量名称正则该如何写？

wang-way

最近在学习、实践正则表达式，萌生了一个想法，怎么从声明部分提取变量名称呢？请教一下高手们，怎么写正则表达式从测试代码中提取变量。是能直接提取呢？还是迂回替换掉不需要的部分？我已经在正则表达式的迷宫里迷路了~~~~

Sub test()
    Dim reg As New RegExp, a As Workbook
    Dim ms As VBScript_RegExp_55.MatchCollection
    Dim m As VBScript_RegExp_55.Match
    Dim i, j
    Dim x1, y1, z1 As String
    Dim x2 As String, y2, z2
    Dim x3, y3 As String, z3
    Dim x4 As String, y4 As String, z4
    Dim i2$, j2&, k2#
End Sub


观察了部分特征，却不会写表达式。。。。
特征1：变量名简单考虑为非空白\S
特征2：Dim之后  是不是用(?:Dim)来，确定声明所在的行
特征3：变量前面均有空白\s
特征4：变量后面可能是英文逗号（,）,或者本行结尾$，又或者是\sAs\s(New)??\S+

1. Public Sub Basic_CodeFrame2()
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     reg.Global = True
   
4.     reg.MultiLine = True
   
5.     'dim之后，前导空白，后面可能是逗号，可以是结尾，可能是空白+as
   
6.     reg.Pattern = "(?:Dim)(\s\S+[,$]|\s\S+\sAs\s(New\s)??\S+)+"
   
7.     Set ms = reg.Execute([b1].Value)
   
8.     n = 0
   
9.     For Each m In ms
   
10.         n = n + 1
    
11.         Debug.Print n, ">>>>", m.Value ', m.FirstIndex, m.Length
    
12.     Next
    
13.   
    
14. End Sub

复制代码

A1233515

就本例而言，正则表达式可写作：
\s+([0-9a-z]+)

A1233515

但是变量中一旦出现大写字母的情况，上述正则就失效了

wang-way

A1233515 发表于 2021-2-8 11:11
但是变量中一旦出现大写字母的情况，上述正则就失效了

默认忽略大小写的

A1233515

wang-way 发表于 2021-2-8 11:20
默认忽略大小写的

我记得正则的IgnoreCase默认值是false，对大小写敏感的的吧？

wang-way

A1233515 发表于 2021-2-8 11:26
我记得正则的IgnoreCase默认值是false，对大小写敏感的的吧？

感谢您的帮助了，您现在估计比我迷糊

wang-way

自己想到的  (,\s|Dim\s|Const\s)([^\s,!@#$%^&*]+)

ggmmlol

排除法。

1. reg.Pattern = "(^\s*\b(?!(Public|Private|Static|Const|Dim)\b).+|\b(Public|Private|Static|Const|Dim|As( New)? \S+)\b|\W)+"

复制代码

smiletwo

第2组为匹配结果

wang-way

smiletwo 发表于 2021-2-8 14:07
第2组为匹配结果

请教一个问题，多选分支用括号包起来就被捕获到组1了对吗？