Для тех, кто в танке

Пишем эффективно — Combine + Expand против FromRecords

#АнатомияФункций – Table.FromRecords



Всем привет!

В чат подкинули задачку. По этому поводу наиболее простым и логичным («красивым») показался такой код:

let

    f=(x)=>Function.Invoke(Record.FromList,List.Reverse(List.Zip(List.Split(List.RemoveNulls(x),2)))),

    

    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="TData"]}[Content]),

    nms = List.Select(Table.ColumnNames(from),(x)=>Text.Contains(x,"DL")),

    cmb = Table.Buffer(Table.CombineColumns(from,nms,f,"tmp")),

    newnms = List.Distinct(List.Combine(List.Transform(cmb[tmp],Record.FieldNames))),

    to = Table.ExpandRecordColumn(cmb,"tmp",newnms)

in

    to

Вроде всё логично… просто зачем два табличных преобразования, когда можно на списках? Риторический вопрос )))

let

    f=(x)=>[a=List.Zip(List.Split(List.RemoveNulls(List.Skip(x,pos)),2)),

            b=Record.FromList(List.FirstN(x,pos)&a{1},fnms&a{0})][b],

    

    from = Table.PromoteHeaders(Excel.CurrentWorkbook(){[Name="TData"]}[Content]),

    nms = Table.ColumnNames(from),

    pos = List.PositionOf(nms,"DL",Occurrence.First,Text.Contains),

    fnms = List.Buffer(List.FirstN(nms,pos)),

    lst = List.Buffer(Table.ToList(from,f)),

    newnms = List.Distinct(List.Combine(List.Transform(lst,Record.FieldNames))),

    to = Table.FromRecords(lst,newnms,MissingField.UseNull)

in

    to

Вроде сложнее, но реально быстрее.



А как так и почему смотрим

На рутубе дзене ютубе

Исходники уже лежат на спонсоре



Лайк, коммент, подписка приветствуются )))



Надеюсь, было полезно.

Всех благ!

@buchlotnik