小白龙

回复 15# idwma

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

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

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

小白龙

回复 17# WHY


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

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

terse

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

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

小白龙

回复 20# terse


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

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

terse

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

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

小白龙

回复 22# terse


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

terse

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