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

smiletwo

wang-way 发表于 2021-2-8 15:53
请教一个问题，多选分支用括号包起来就被捕获到组1了对吗？

      是的啊

wang-way

ggmmlol 发表于 2021-2-8 13:22
排除法。

感谢大神，我好好学习

1055751654

wang-way 发表于 2021-2-8 11:29
感谢您的帮助了，您现在估计比我迷糊

                 

liu-aguang

1. Sub test()
   
2.     S = "Dim reg As New RegExp, a As Workbook" & vbLf & "Dim i2$, j2&, k2#"
   
3.     Set regx = CreateObject("vbscript.regexp")
   
4.     regx.Pattern = "\b(?:Public|Private|Static|Const|Dim)\b(.+)"
   
5.     regx.IgnoreCase = True
   
6.     regx.Global = True
   
7.     Set mh = regx.Execute(S)
   
8.     regx.Pattern = "(\w+)[^,]*"
   
9.     For Each mhs In mh
   
10.         Set mh1 = regx.Execute(mhs.submatches(0))
    
11.         For Each k In mh1
    
12.             MsgBox k.submatches(0)
    
13.         Next
    
14.     Next
    
15. End Sub
    

复制代码

loquat

1.     Dim a _
   
2.     As Long
   
3.    
   
4.     Dim b&

复制代码

wang-way

liu-aguang 发表于 2021-2-9 08:28

感谢大神 分步很准确