正则替换求助

loquat

研究了一下凭借我的水平一个表达式做不到，甚至感觉vbscripting.regexp可能一个表达式都做不到
第一步：^(?!\s*(Private|Declare)).+?\([^\(\)]+?\)[^\(\)]*?$
       1.作用提取不包含Private的自定义函数头
       2.可包含换行
       3.排除API声明行（也包括换行），但是不能排除以下胎神声明
          Declare _
             Sub RtlMoveMemory Lib "kernel32" (dst As Any, src As Any, ByVal lLength&)
第二步：参考之前的

leolee82

loquat 发表于 2023-2-26 16:49
研究了一下凭借我的水平一个表达式做不到，甚至感觉vbscripting.regexp可能一个表达式都做不到
第一步：^( ...

感觉写相同功能的代码容易，写复杂的正则总是找不到方法。就像用复杂公式和VBA一样

loquat

leolee82 发表于 2023-3-5 02:59
感觉写相同功能的代码容易，写复杂的正则总是找不到方法。就像用复杂公式和VBA一样

http://www.zjmainstay.cn/regexp-one
https://deerchao.cn/tutorials/regex/regex.htm
学完这俩，基本就够用了

ggmmlol

leolee82 发表于 2023-3-5 02:59
感觉写相同功能的代码容易，写复杂的正则总是找不到方法。就像用复杂公式和VBA一样

套用我的正则表达式万能公式，就很简单了： 替换为ByVal.rar (16.22 KB, 下载次数: 5)

2023-3-17 05:17 上传

点击文件名下载附件

leolee82

ggmmlol 发表于 2023-3-17 05:17
套用我的正则表达式万能公式，就很简单了：

感谢感谢。奇怪有人回复了帖子怎么没有见到提示

tcdatongye

leolee82 发表于 2023-4-4 18:40
感谢感谢。奇怪有人回复了帖子怎么没有见到提示

Sub aa()
ss = "Function Foo(v1 As Boolean, v, Optional v3 As Boolean = True, Optional ByVal cmpMethod As VbCompareMethod = vbTextCompare, Optional ByVal bStringLike As Boolean, Optional bShowWarning As Boolean = True) As Long"
k = VBA.InStr(ss, "Private")
If k <> 1 Then
Set reg = VBA.CreateObject("vbscript.regexp")
With reg
  .Global = True
  .ignorecase = True
  .Pattern = "(byval )?([\w]+)(?= as boolean)"
  jj = .Replace(ss, "byval $2")
End With
Debug.Print jj
End If
End Sub