此题，如何用递归方法来解决？

cnmlgb9998

要求如图所示。已用迭代的方法来解决，但是，考虑到万一末级明细长度不一致，就会遇到问题。

希望有大神能指导一下，如何用递归，来解决。

cnmlgb9998

只用PQ，只用PQ，重要的事情说两遍。

飞天篮球猪

选末级换一下，这种结果从末级选出所有父级就可以了，不用递归，供参考...

cnmlgb9998

飞天篮球猪 发表于 2024-10-31 13:56
选末级换一下，这种结果从末级选出所有父级就可以了，不用递归，供参考...

大神，再来个递归的方案。谢谢！

飞天篮球猪

单个深搜，供参考...

cnmlgb9998

飞天篮球猪 发表于 2024-10-31 14:36
单个深搜，供参考...

我有个疑问：你为啥这么强？？？？？怎么学来的？？？

ThxAlot

放在python里处理起来更有效率：

1. let
   
2.     Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("Vc7PCoJAEMfxd5mzF3sd2ZeJgiQsw4UILCIQPGgo1aGgfJr941u0MztqHb8ffrNsFEEIAehTbmUFInBJ3dwdcSPY9XOCGULRmWwEutmfTfsekUaystuhaXO7TECL9KgSD5hGPtSh9Bly1+mfMtvFjgHvdJyppNH5yxuS2pR61f2eDi/2Rd3LJRtNP1f3MTOPQYgv", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [level = _t, name = _t]),
   
3.     #"Changed Type" = Table.TransformColumnTypes(Source,{{"level", Int64.Type}, {"name", type text}}),
   
4.     #"Run Python script" = Python.Execute("dataset['sup'] = dataset['level'].apply(lambda x: x // 10)#(lf)#(lf)def fx_Upstream(sup, hierarchy):#(lf)    try:#(lf)        r = dataset[dataset['level']==sup].iloc[0]#(lf)        return fx_Upstream(r['sup'], r['name']+'|'+hierarchy)#(lf)    except Exception as e:#(lf)        return hierarchy#(lf)#(lf)dataset['hierarchy'] = dataset.apply(lambda row: fx_Upstream(row['sup'], row['name']), axis=1)",[dataset=#"Changed Type"]),
   
5.     dataset = #"Run Python script"{[Name="dataset"]}[Value],
   
6.     #"Split Column by Delimiter" = Table.SplitColumn(dataset, "hierarchy", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"hierarchy.1", "hierarchy.2", "hierarchy.3", "hierarchy.4"})
   
7. in
   
8.     #"Split Column by Delimiter"

复制代码

minchar

两种笨方法
方法一：函数递归
let
  源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
  Data = Table.TransformColumnTypes(源, {{"level", type text}}),
  L3 = Table.SelectRows(Data, each Text.Length([level]) = 3),
    重命名的列 = Table.RenameColumns(L3,{{"name", "level3"}}),
  query = Record.FromList(Data[name],Data[level]),
  fx = (x) => if Table.ColumnCount(x) = 4 then x else @fx(Table.AddColumn(x,"level"&Text.From(4-Table.ColumnCount(x)),each Record.FieldOrDefault(query,Text.Start([level],4-Table.ColumnCount(x))))),
    自定义1 = fx(重命名的列),
    删除的列 = Table.RemoveColumns(自定义1,{"level"}),
    重排序的列 = Table.ReorderColumns(删除的列,{"level1", "level2", "level3"})
in
  重排序的列

方法二：List.Generate将生成三张表，最终取最后一张表也能得到这个结果!
let
  源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
  Data = Table.TransformColumnTypes(源, {{"level", type text}}),
  L3 = Table.SelectRows(Data, each Text.Length([level]) = 3),
    int = Table.RenameColumns(L3,{{"name", "level3"}}),
  query = Record.FromList(Data[name],Data[level]),
  Generate = List.Generate(()=> int ,each  Table.ColumnCount(_) <= 4 , each Table.AddColumn(_ ,"level"&Text.From(4-Table.ColumnCount(_)),(x)=>Record.FieldOrDefault(query,Text.Start(x[level],4-Table.ColumnCount(_)),null))),
    取最后结果 = List.Last( Generate),
    删除的列 = Table.RemoveColumns(取最后结果,{"level"})
in
    删除的列