正则替换求助

leolee82

最近在整理代码，遇到个问题，打算把所有函数和过程声明中的Boolean参数改为ByVal方式。
尝试用正则表达式，没搞定，最后手动调的。请高手帮忙看看替换的正则表达式怎么写，分几步也可以。
示例文本如下：
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

替换后:
Function Foo(ByVal v1 As Boolean, v, Optional ByVal v3 As Boolean = True, Optional ByVal cmpMethod As VbCompareMethod = vbTextCompare, Optional ByVal bStringLike As Boolean, Optional ByVal bShowWarning As Boolean = True) As Long

liulang0808

直接replace替换是否可行，不用正则吧？

taller

leolee82

taller 发表于 2023-1-29 10:28

感谢版主，我研究一下，有不懂的再来请教。

leolee82

taller 发表于 2023-1-29 10:28

看懂了，很简单。还是自己用的太少。再次感谢。


留个记录方便以后查询:
匹配:(\(|, )(Optional )*(\S+ As Boolean)
替换:$1$2Byval $3

leolee82

liulang0808 发表于 2023-1-29 10:02
直接replace替换是否可行，不用正则吧？

可以的，只是平时很少用到正则，学过也忘了。所以遇到问题想多用用正则。

smiletwo

替换后，再把 ByVal重复的（原来已经添加ByVal）替换下

leolee82

taller 发表于 2023-1-29 10:28

再增加个需求，版主再帮忙看看：只匹配替换Private以外函数
简单的零宽断言看的懂了，但没弄出来。
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
Private 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
Dim v As Boolean

loquat

leolee82 发表于 2023-1-29 18:40
再增加个需求，版主再帮忙看看：只匹配替换Private以外函数
简单的零宽断言看的懂了，但没弄出来。
Fun ...

如果不考虑换行 _ 的话简单
考虑换行就有点绕不过来了

leolee82

loquat 发表于 2023-2-26 12:50
如果不考虑换行 _ 的话简单
考虑换行就有点绕不过来了

兄弟有空帮看一下，不用考虑换行，我用的不多。我正则用的少，简单的用不上，想到正则时就是相对比较复杂的情况