分享一道PQ题。

cnmlgb9998

描述：将小括号内的学科及成绩，按成绩从小到大进行重排。

飞天篮球猪

供参考...

cnmlgb9998

飞天篮球猪 发表于 2024-9-24 20:53
供参考...

强！不过，用的硬代码，只约定了两次循环。如果此题，每行有三个 或 三个以上的 “（）”，比如：主科（），综合（），课外（）   将得不到正确结果。

我会尽量避免 hard code。


splitter. trans什么的那个函数，({“）”}，{“一".."龥"})，这样就完美了。

飞天篮球猪

cnmlgb9998 发表于 2024-9-24 21:01
强！不过，用的硬代码，只约定了两次循环。如果此题，每行有三个 或 三个以上的 “（）”，比如：主科（ ...

硬编码可以用计算左括号的个数解决，比如 {0..List.Count(Text.PositionOf(文本,"(",2))-1}。也可以用硬编码约定无数次迭代不会报错的，找不到时返回null，这个值不影响替换。

deadzlq

PQ参考解法

cjh-01

飞天篮球猪发表于 2024-9-24 20:53


供参考...

我想把每一行括号内的文本提取出来，怎么是空白？

飞天篮球猪

cjh-01 发表于 2024-9-29 17:23
我想把每一行括号内的文本提取出来，怎么是空白？

List.Accumulate换成List.Transform

wdx223

飞天篮球猪 发表于 2024-9-24 20:53
供参考...

大佬的PQ就是硬

wdx223

tcdatongye

cnmlgb9998 发表于 2024-9-24 21:01
强！不过，用的硬代码，只约定了两次循环。如果此题，每行有三个 或 三个以上的 “（）”，比如：主科（ ...

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表5"]}[Content],
   
3.     t = Table.TransformColumns( 源,{},(s)=>
   
4.         [ ax=List.Generate(()=>[a=0,b=s],(x)=>x[a]>=0,(y)=>
   
5.             [ ay=Text.BetweenDelimiters(s,"(",")",y[a]),
   
6.               a=if ay="" then -1 else y[a]+1,
   
7.               by=if ay="" then "" else List.Sort(Text.Split(ay,","),{each Number.From(Text.Split(_,":"){1}),0} ),
   
8.               b=if ay="" then "" else Text.Replace(y[b],ay,Text.Combine(by,",")) ]),
   
9.           bx=List.Last(ax)[b] ][bx])
   
10. in
    
11.     t

复制代码

可以对多列、字符串n段循环排序。因字符串分割后有索引号，所以稍微修改代码，可对字符串分数自定义排序，如前2个分割段升序，后面是降序，也可间隔升降序等。