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

小白龙 · 发表于 2023-3-11 21:01:40

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

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

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

abc$.+$

$s='xzc abc(s "(abc)"); dfg()'
$s -replace 'abc$.+$'

复制代码

went · 发表于 2023-3-11 21:59:01

abc$[^$]*[^$]*$

WHY · 发表于 2023-3-11 22:19:11

这个需要用到所谓的 "平衡组"
https://learn.microsoft.com/zh-c ... ng_group_definition

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

复制代码

小白龙 · 发表于 2023-3-11 22:53:13

回复 2# went

多谢大佬,

我把正则放到了字符串中让正则处理, 就不行了

$s='xzc abc(s "$[^$]*[^$]*$"); dfg()'
$s -replace 'abc$[^$]*[^$]*$'

复制代码

小白龙 · 发表于 2023-3-11 22:56:47

回复 3# WHY

多谢大佬,
灵了, 能处理下面这个复杂的情况, 就是正则太长了, 没精简点的吗?

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

复制代码

小白龙 · 发表于 2023-3-11 22:58:29

回复 3# WHY

另外, 我在另一个软件里执行会报错, 应该是不支持 <Open> 这种写法, 怎样更通用一些? 多谢

Five66 · 发表于 2023-3-11 23:48:05

像这种匹配成对括号的要正则引擎的支持,很复杂也可能不准确,建议先获取包含最外层左括号的字符串,然后手动解析字符串,找到匹配的最外层右括号的位置后截取字符串

WHY · 发表于 2023-3-11 23:50:37

回复 6# 小白龙

我要是你，我会打开链接，先了解一下什么是"平衡组"；
或者搜索一下网络，搞明白那些流派支持 "平衡组"，那些不支持。
像你这样，只想着要答案，一百年也学不会。

523066680 · 发表于 2023-3-12 00:07:11

本帖最后由 523066680 于 2023-3-12 00:23 编辑

其实我看题主四楼和五楼的例子都可以用 ); 来限定末尾。
当然更复杂的情况且有必要的话可以考虑设计grammar来解决

抄了一段perl6的文法案例

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 => ｢"｣

复制代码

并没有解决问题（逃

小白龙 · 发表于 2023-3-12 07:10:31

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

回复 8# WHY

多谢大佬指导,

我也看了一下那个平衡组的链接, 但是水平有限实在看不懂, 楼2的正则我能理解, 想着就是它了, 没想到它没有彻底解决问题, 大佬的正则不能看懂, 但确实能解决各种情况

我不是专业的程序员, 就是偶尔改改现成的代码, 感觉没有一定积累, 看懂平衡组真是有点难度

现在遇到的问题是, 我的那个程序不支持保存到 <Open> 这种命名的组中我把它改成数字组的形式, 还是不行, 其实还是自己没能理解整行正则的含义, 生搬硬套

大佬能再帮一把就太感谢了, 不是不想自己解决, 是实在积累不够, 看不懂

可能看的情况多了, 在某个时刻会豁然开朗, 就把它理解了

小白龙 · 发表于 2023-3-12 07:22:56

回复 7# Five66

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

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

小白龙 · 发表于 2023-3-12 10:57:18

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

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

idwma · 发表于 2023-3-12 18:18:21

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

小白龙 · 发表于 2023-3-12 18:59:01

本帖最后由小白龙于 2023-3-12 19:00 编辑

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

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

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

或者用别的办法也行

idwma · 发表于 2023-3-12 21:23:53

本帖最后由 idwma 于 2023-3-12 21:28 编辑

回复 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 '')

复制代码

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

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

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

评分

浏览过的版块