PowerShell怎样用正则匹配成对的括号？

小白龙 · 发表于 2023-3-12 21:55:09

回复 15# idwma

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

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

WHY · 发表于 2023-3-12 22:51:20

本帖最后由 WHY 于 2023-3-13 23:40 编辑

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();

复制代码

小白龙 · 发表于 2023-3-13 10:38:06

回复 17# WHY

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

Five66 · 发表于 2023-3-13 17:43:53

说一下吧,正则匹配只有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 · 发表于 2023-3-13 18:41:55

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

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

复制代码

小白龙 · 发表于 2023-3-13 20:05:46

本帖最后由小白龙于 2023-3-13 20:07 编辑

回复 20# terse

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

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

terse · 发表于 2023-3-13 20:45:48

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

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

复制代码

小白龙 · 发表于 2023-3-13 20:50:47

回复 22# terse

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

terse · 发表于 2023-3-13 22:24:43

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分

评分

评分

浏览过的版块