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

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

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

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

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 => ｢"｣
复制代码

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

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

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

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

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