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

小白龙

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

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

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

abc\(.+\)

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

terse

多研究一下正则 这东西烧脑

小白龙

回复 22# terse


    哦, 看来WHY大佬的平衡组正则式, 确实是唯一正解了, 能适应各种情况

terse

回复 21# 小白龙
当出现如下的情况，便匹配不能，要修改这样
当然还会出现其他状况 所以不通用

$s = 'xzc abc(s "(abc)");a, d(fg())'
[regex]::Match($s, '(abc\([^\)\(]*)(\(.*?\))*([^\)\(]*\))').Value;
复制代码

小白龙

回复 20# terse


    大佬实在是高, 这个正则兼容性不错, 不支持平衡组的软件也能用, 目前还没遇到匹配不到的

难道还有匹配不了的情况吗? 能说说吗? 怕到时候掉坑里

terse

只能搞简单的匹配 复杂的不能

$s='xzc abc(s "(abc)"); dfg()'
[regex]::Match($s, '(abc\([^\)\(]*)(\(.*\))*([^\)\(]*\))').Value;
复制代码

Five66

说一下吧,正则匹配只有3种情况:
0次(包括多次0次)
最少次
最多次

字符串'xzc abc(s "(abc)"); dfg()' 中的 'abc(' 可以通过最少次1次匹配得到
但是与 'abc(' 中的左括号匹配的右括号是不属于上面三种情况
0次就是匹配不到
最少次会匹配到 'abc)'中的右括号
最多次会匹配到 'dfg()' 中的右括号
指定次数虽然可能匹配得到,但是不通用,除非所有需要匹配的都是所指定的次数

平衡组是在正则引擎的支持上实现这种不属于三种情况匹配的通用解决方案之一
平衡组其实就是命名组的自动计数,匹配到左括号就计数加1,匹配到右括号就计数减1,最后判断计数是否为0(或偶数)来判断是否匹配

也可以手动根据平衡组的实现来手动匹配,例如

$s='xzc abc(s "(abc)"); dfg()'
$ss=[regex]::Match($s, 'abc\(.+\)').value
$a=[Collections.ArrayList]::new()
$a.Add(-1)
(0..($ss.Length-1)).ForEach({
if($ss[$_] -eq '('){$a.Add($_)}
if($ss[$_] -eq ')'){
    $a.Removeat($a.Count-1)
    if($a.Count -eq 1){$a[0]=$_;break}
}
})
[Console]::WriteLine($ss.Substring(0,$a[0]+1))
复制代码

小白龙

回复 17# WHY


    多谢大佬, 太细心了, 感谢

WHY

Function Get-BalanceSet([ref]$str){
    $index = $str.Value.IndexOf('abc(');

    if ($index -lt 0){         #不含 'abc(' 子串，退出函数
        return;
    }

    $str.Value = $str.Value.SubString($index);   #删掉 'abc(' 之前的所有字符
    $arr = [Collections.ArrayList]@();
  
    $n = 0;
    $m = 0;

    for ($i=0; $i -lt $str.Value.Length; $i++){  #遍历字符串每个字符
        $s1 = $str.Value.SubString($i, 1);       #截取第i个字符，赋值给$s1
        [void]$arr.Add($s1);                     #再将$s1存放到数组
        if ( $s1 -eq ')' ){                      #右括弧，n减1
            $n--;
        } elseIf ( $s1 -eq '(' ){                #左括弧，n加1
            $n++;
            $m++;
        }
        if ($n -eq 0 -and $m -gt 0){             #若n=0且左括弧数不为0
            [void]$out.Add($arr -join '');       #匹配结果存放到$out
            break;                               #退出For
        }
    }
    $str.Value = $str.Value.SubString(4);        #删除开头的 'abc(' 4个字符
    Get-BalanceSet ([ref]$str.Value);            #递归
}

$s = 'xzc abc(s "(abc)"); dfg(); abc(123(ggg))';

$out = [Collections.ArrayList]@();               #数组，存放结果
Get-BalanceSet ([ref]$s);
$out;

echo 'Done';
[Console]::ReadLine();
复制代码

小白龙

回复 15# idwma

虽然看不懂, 但还是非常感谢!

难道我的问题, 用正则, WHY大佬的思路是唯一正解了吗?  不能在went大佬的正则基础上改改吗?

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 '')
复制代码

小白龙

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

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

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

或者用别的办法也行

idwma

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

小白龙

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

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

小白龙

回复 7# Five66

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

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