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