[问题求助] PowerShell怎样用正则匹配成对的括号？

小白龙

xzc abc(s "(abc)"); dfg()

我想取上面红色字部分, 但是用下面的正则, 会串了括号, 把后面的也包括进来了

我要匹配与abc后面那个(成对的括号, 对这种正则一直没搞懂, 请路过高手帮忙, 谢谢

abc\(.+\)

$s='xzc abc(s "(abc)"); dfg()'
$s -replace 'abc\(.+\)'
复制代码

went

abc\([^\)]*[^\(]*\)

WHY

这个需要用到所谓的 "平衡组"
https://learn.microsoft.com/zh-c ... ng_group_definition

$s='xzc abc(s "(abc)"); dfg()';
[regex]::Match($s, 'abc\((?:(?>[^()]*)|\((?<Open>)|\)(?<-Open>))*(?(Open)(?!))\)').Value;
复制代码

小白龙

回复 2# went


    多谢大佬,

我把正则放到了字符串中让正则处理, 就不行了

$s='xzc abc(s "\([^\)]*[^\(]*\)"); dfg()'
$s -replace 'abc\([^\)]*[^\(]*\)'
复制代码

小白龙

回复 3# WHY

多谢大佬,
灵了, 能处理下面这个复杂的情况, 就是正则太长了, 没精简点的吗?

$s='xzc abc(s "\([^\)]*[^\(]*\)"); dfg()'
[regex]::Match($s, 'abc\((?:(?>[^()]*)|\((?<Open>)|\)(?<-Open>))*(?(Open)(?!))\)').Value;
复制代码

小白龙

回复 3# WHY

另外, 我在另一个软件里执行会报错, 应该是不支持 <Open> 这种写法, 怎样更通用一些? 多谢

Five66

像这种匹配成对括号的要正则引擎的支持,很复杂也可能不准确,建议先获取包含最外层左括号的字符串,然后手动解析字符串,找到匹配的最外层右括号的位置后截取字符串

WHY

回复 6# 小白龙


      我要是你，我会打开链接，先了解一下什么是"平衡组"；
或者搜索一下网络，搞明白那些流派支持 "平衡组"，那些不支持。
像你这样，只想着要答案，一百年也学不会。

523066680

其实我看题主四楼和五楼的例子都可以用  );  来限定末尾。
当然更复杂的情况且有必要的话可以考虑设计grammar来解决

抄了一段perl6的文法案例

grammar pair {
    token TOP     { <func> }
    rule func    { <name> '(s' <.ws> <string> ')' }
    rule name    { [\w]+ }
    rule string  { 
        (:ignoremark \") ~ \"
        [
            \w | 
            [ '\\' <[\\/bfnrt"():]> ] |
            <-[\\\"\n\t]>+
        ]*
    }
};

my $match = pair.parse('abc(s "\\:\/())))abc\([^\)]*[^\(]*\)")');
say $match;
复制代码

结果

｢abc(s "\:\/())))abc\([^\)]*[^\(]*\)")｣
 func => ｢abc(s "\:\/())))abc\([^\)]*[^\(]*\)")｣
  name => ｢abc｣
  string => ｢"\:\/())))abc\([^\)]*[^\(]*\)"｣
   0 => ｢"｣
复制代码

并没有解决问题 （逃

小白龙

回复 8# WHY

多谢大佬指导,

我也看了一下那个平衡组的链接, 但是水平有限实在看不懂, 楼2的正则我能理解, 想着就是它了, 没想到它没有彻底解决问题, 大佬的正则不能看懂, 但确实能解决各种情况

我不是专业的程序员, 就是偶尔改改现成的代码, 感觉没有一定积累, 看懂平衡组真是有点难度

现在遇到的问题是, 我的那个程序不支持保存到 <Open> 这种命名的组中 我把它改成数字组的形式, 还是不行, 其实还是自己没能理解整行正则的含义, 生搬硬套

大佬能再帮一把就太感谢了, 不是不想自己解决, 是实在积累不够, 看不懂

可能看的情况多了, 在某个时刻会豁然开朗, 就把它理解了

小白龙

回复 7# Five66

感谢指导, 以前遇也改过成对的<>的代码, 好像没有()这么复杂

用3楼大佬的, 确实能适应各种情况了,但是有的软件不支持这种写法, 搜索了一下, 说是这种<>号的组命名不支持, 改成数字的就可以了, 但是水平有限还是没有搞定

小白龙

也找到一篇非常不错的关于捕获组的文章, 写的也真是太用心了, 有前因, 有后果, 有动图, 大部分能看懂, 但是还是不会用,

https://www.cnblogs.com/piperck/p/15878834.html

idwma

那个程序不支持平衡组，可以试试用递归呀

小白龙

回复 13# idwma
多谢大佬指导,

应该不是不支持平衡组, 而不是不支持那种命名,

另外, 怎么递归呀, 不太懂, 能帮一把吗? 多谢

或者用别的办法也行

idwma

回复 14# 小白龙

$s='xzc abc(s "\([^\)]*[^\(]*\)"); dfg()'
$t='abc'
$a=0
0..$s.length|%{
    if(($s[$_..($_+$t.length-1)] -join '') -eq $t){
	$_..$s.length|%{
	    if($f -eq $null -and $s[$_] -eq '('){$f=1;$b=$_}
	    if($f -eq 1){
		if($s[$_] -eq '('){$a+=1}elseif($s[$_] -eq ')'){$a-=1}
                if($a -eq 0){$c=$_;break}
	    }
	}
    }
}
$t+($s[$b..$c] -join '')
复制代码